Script ile SMB calisirlik kontrolu yapmak

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