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 *

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

This site uses Akismet to reduce spam. Learn how your comment data is processed.