NbtstatPacket = toByte("000000000001" &_
"00000000000020434b" &_
"4141414141414141" &_
"4141414141414141" &_
"4141414141414141" &_
"4141414141410000210001")
DIM WSTATE,ip,HOST,MAC,NSTATE
Set Winsock = Wscript.CreateObject("MSWinsock.Winsock","sck_")
Winsock.Protocol = 1
Set FSO = CreateObject("Scripting.FileSystemObject")
Set objFile = FSO.OpenTextFile(fso.GetBaseName(WScript.ScriptName) & ".txt", 2,True)
BeginTimer = Timer()
objFile.WriteLine "IPAddress" & vbTab & "Host" & vbTab & "MAC"
objFile.WriteLine String(39,"-")
For i = 1 To 254
NSTATE = True
HOST = "":MAC = ""
ip = "192.168.1." & i
CALL Nbtstat(ip)
If NSTATE Then
objFile.WriteLine ip & vbTab & HOST & vbTab & MAC
End If
Next
EndTimer = Timer()
TimeSpan_Send = EndTimer - BeginTimer
TimeSpan=CStr(Round(TimeSpan_Send, 4))
objFile.WriteLine String(39,"-")
objFile.WriteLine "用时：" & TimeSpan & " 秒"
Wscript.echo "用时：" & TimeSpan & " 秒"
Function Nbtstat(ip)
Winsock.RemoteHost = ip
Winsock.RemotePort = 137
Winsock.SendData NbtstatPacket
Dim WAIT
WSTATE = False
While WAIT < 2 AND Not WSTATE
Wscript.Sleep 15
WAIT = WAIT + 1
Wend
If WAIT=2 Then
NSTATE = False
'objFile.WriteLine Winsock.state & " - 超时退出！"
End If
End Function
Sub sck_DataArrival(ByVal bytesTotal)
On Error Resume Next
Winsock.GetData RevData
If Err.Number = 0 Then
toHex RevData
Else
'NSTATE = False
HOST = "Host not found."
End If
Err.Clear
WSTATE = True
Winsock.Close
End Sub
Function toByte(data)
set xml_dom = CreateObject("Microsoft.XMLDOM")
set l_node = xml_dom.createElement("byte")
l_node.dataType = "bin.hex"
l_node.Text = data
toByte = l_node.nodeTypedvalue
End Function
Function toHex(data)
set xml_dom = CreateObject("Microsoft.XMLDOM")
set l_node = xml_dom.createElement("byte")
l_node.dataType = "bin.hex"
l_node.nodeTypedvalue = data
StrHex = l_node.Text
B = Eval("&H" & Mid(StrHex,56*2+1,1*2))
HOST = Trim(Hex2Ascii(Mid(StrHex,57*2+1,15*2)))
MAC = UCase(Mid(StrHex,57*2+1+(B*18*2),6*2))
End Function
Function Hex2Ascii(strHex)
dim i
for i = 1 To Len(strHex) Step 2
Hex2Ascii = Hex2Ascii & Chr(Eval("&H" & Mid(strHex, i, 2)))
Next
End FunctionVBS版MAC扫描器，需要安装MSWinsock...
附件中包含：
MSWINSCK(Setup).vbs---->MSWinsock安装
SCANMAC(Batch).vbs ---->扫描程序
扫描结果：
IPAddress Host MAC
---------------------------------------
192.168.1.1 Host not found.
192.168.1.2 PC-08 00E04C87C737
192.168.1.254 PC-01 00E04C87C106
---------------------------------------
用时：8.875 秒
附件内文件有误请自行修改一下：
MAC = UCase(Mid(StrHex,57*2+1+(6*18*2),6*2))
改为
MAC = UCase(Mid(StrHex,57*2+1+(B*18*2),6*2))
下载：
http://upload.cn-dos.net/img/216.rar
[ Last edited by HAT on 2010-6-4 at 10:04 ]
