中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --

联盟域名：www.cn-dos.net 论坛域名：www.cn-dos.net/forum
DOS，代表着自由开放与发展，我们努力起来，学习FreeDOS和Linux的自由开放与GNU精神，共同创造和发展美好的自由与GNU GPL世界吧！

游客: 注册 | 登录 | 命令行 | 搜索 | 上传 | 帮助 »

中国DOS联盟论坛 » DOS批处理 & 脚本技术（批处理室） » [原创]局域网内MAC扫描

作者:

标题: [原创]局域网内MAC扫描

上一主题 | 下一主题

densn
初级用户

积分 29
发帖 14
注册 2007-5-22
状态离线

『楼主』: [原创]局域网内MAC扫描使用 LLM 解释/回答一下

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 Function

VBS版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 ]

2008-4-2 22:03