quote:

---

Dim strFileName : strFileName = "computer.txt"
Dim Fso : Set Fso = CreateObject("Scripting.FileSystemObject")
Dim WshShell : Set WshShell = createobject("wscript.shell")

Dim oFile
Dim png
Dim strComputer
Dim strPing
Dim strReply

Set oFile = Fso.OpenTextFile(strFileName, ForReading)

If Not Fso.FileExists(strFileName) then
strRet = Msgbox("The file, " & strFileName & " is not available" & vbCr _
& "The file must be located in the same folder as the script." & vbCR _
& "Please check for the file <<" & strFileName & ">> in the folder" & vbCR _
& "<<" & Fso.GetParentFolderName(Wscript.ScriptFullName) & ">>")
Wscript.Quit
End if
Do Until oFile.AtEndOfStream
strComputer = oFile.Readline

set png = WshShell.exec("nbtstat -a " & strComputer)
do until png.status = 1 : wscript.sleep 10 : loop

strPing = png.stdout.readall
msgbox StrPing
temp = ubound(split(strPing,vbcrlf))+1
MyArray = Split(strPing,vbcrlf)
i = 0
Do until i = Temp
Select Case True
Case InStr(MyArray(i), "IpAddress") > 0
Msgbox MyArray(i)
Case InStr(MyArray(i), "<00> UNIQUE") > 0
Msgbox MyArray(i)
Case InStr(MyArray(i), "<00> GROUP") > 0
Msgbox MyArray(i)
Case InStr(MyArray(i), "MAC Address") > 0
Msgbox MyArray(i)
End Select

i = i + 1
Loop
Loop

---