' browse.vbs
' (C) Fujimoto san
' http://winfaq.jp/

Const ForReading = 1
TemporaryFolder = 2

wscript.echo "Looking for Master Browser(s)."
Set fso = Wscript.CreateObject("Scripting.FileSystemObject")
Set WShell = WScript.CreateObject("WScript.Shell")
tname = fso.BuildPath(fso.GetSpecialFolder(TemporaryFolder),"__nview.txt")
strcmd = "command /c net.exe view > " & tname
WShell.Run strcmd,0,true
Set fs = fso.OpenTextFile(tname, ForReading)
Do While Not fs.AtEndOfStream
 buf = fs.Readline
 pos = InStr(buf,"\\")
 If pos <> 0 Then
  If nbt(mid(buf,pos+2,15)) Then
   wscript.echo trim(mid(buf,pos+2)) & "is Master Browser."
  End If
 End If
Loop
fs.close
fso.DeleteFile(tname)
wscript.echo "Master Browser search is finished."

Function nbt(target)
 Dim fs, tname, pos, buf
 tname = fso.BuildPath(fso.GetSpecialFolder(TemporaryFolder),"__nbt.txt")
 strcmd ="command /c nbtstat -a " & target & " > " & tname
 WShell.Run strcmd,0,true
 Set fs = fso.OpenTextFile(tname, ForReading)
 Do While Not fs.AtEndOfStream
  buf = fs.Readline
  pos = InStr(buf,"MSBROWSE")
  If pos <> 0 Then nbt = 1
 Loop
 fs.close
 fso.DeleteFile(tname)
End Function