Bize Ulaşın / Contact Us

Script ile SMB calisirlik kontrolu yapmak

30 / 03 / 2010 by Uncategorized Yorum yok / No Comments

Asagidaki basit script ile SMB (Server Message Block) testi yapabilirsiniz.

Dim WshNetwork : Set WshNetwork = WScript.CreateObject(“WScript.Network”)
computerName = WshNetwork.ComputerName

Dim objFSO : Set objFSO = CreateObject(“Scripting.FileSystemObject”)
Dim pipeName : pipeName = “\\” & computername & “\pipe\srvsvc”
wscript.echo pipeName

const ForAppending = 8

Dim objPipe : Set objPipe = objFSO.OpenTextFile(pipeName, ForAppending, True)
If Err.Number = 0 Then
wscript.echo “SMB ok”
else
wscript.echo “SMB failed”
End If
objPipe.WriteLine(“SMB tested.”)
objPipe.Close

Leave a Reply

Your email address will not be published. Required fields are marked *

You may use these HTML tags and attributes: <a href="" title=""> <abbr title=""> <acronym title=""> <b> <blockquote cite=""> <cite> <code class="" title="" data-url=""> <del datetime=""> <em> <i> <q cite=""> <s> <strike> <strong> <pre class="" title="" data-url=""> <span class="" title="" data-url="">

*

Kontrol / Control * Time limit is exhausted. Please reload CAPTCHA.