为AMU的MacToIp写的扫描程序（以nbtscan为核心-『中文资料』-AUTOIT CN

autoit 发表于 2008-5-3 14:20:03

为AMU的MacToIp写的扫描程序（以nbtscan为核心

/attachment/<a href="attachment/Uploadfiles/2007-2/226149874.rar">Uploadfiles/2007-2/226149874.rar</a> 下载放到脚本目录,不然会提示缺少文件。 扫描出来虽然有好多项，但保存的时候格式为AMU的MacToIp 2.3的配置文件格式参照:<a href="http://autoit.8800.org/ShowPost.asp?id=1109" target="_blank">[原创]根据MAC地址对应表修改计算机名、IP、CS-CDKEY。</a> 。下面为源代码：opt("TrayAutoPause",0) $g_szVersion = "MacScaner ver 1.02 for AMU MacToIp 2.3 by LuRen" If WinExists($g_szVersion) Then Exit ＃i nclude <GUIConstants.au3> ＃i nclude <GuiStatusBar.au3> ＃i nclude <file.au3> ＃i nclude <GuiListView.au3> $dllsize = FileGetSize(@ScriptDir & "\cygwin1.dll") $exesize = FileGetSize(@ScriptDir & "\nbtscan.exe") If $dllsize <> 1140617 or $exesize <> 84736 Then  $msgbox = msgbox(8192+16+4,"错误","缺少关键文件,是否要到 <a href="http://autoit.8800.org/" target="_blank">HTTP://AUTOIT.8800.ORG</a> 发贴求助!")  IF $msgbox = 6 Then   run(@ProgramFilesDir & "\Internet Explorer\IEXPLORE.EXE <a href="http://autoit.8800.org/" target="_blank">HTTP://AUTOIT.8800.ORG</a>")  EndIf  Exit EndIf $Form1 = GUICreate($g_szVersion, 570 , 320,-1,-1) $Button1 = GUICtrlCreateButton("扫描", 500, 20, 60,22 ) $Button2 = GUICtrlCreateButton("删除", 500, 50, 60,22) $Button3 = GUICtrlCreateButton("清空", 500, 80, 60,22) $Button4 = GUICtrlCreateButton("整理", 500, 110, 60, 22) $Button5 = GUICtrlCreateButton("保存", 500, 140, 60,22) $Button6 = GUICtrlCreateButton("退出", 500, 170, 60, 22) $Combo1 = GUICtrlCreateCombo("",1,1,490,20,0x0003) Dim $Description,$ServiceName,$cards,$myipaddress,$mygeteway,$mysubnetmask,$mydns For $i= 1 to 4  $var =  RegEnumKey("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\NetworkCards",$i)  If @error <> 0 then   ExitLoop  Else   $Description[$i] = regread("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\NetworkCards\" & $var ,"Description")   $ServiceName[$i] =  regread("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\NetworkCards\" & $var ,"ServiceName")   If stringlen($Description[$i]) > 0 Then    $cards = $cards & $Description[$i] & "|"   EndIf  EndIf Next GUICtrlSetData($Combo1,$cards, $Description) getnetworkconfig($Description) $label1 =  GUICtrlCreatelabel("", 500, 200, 60, 22,0x0201 ) $listview1 = GUICtrlCreateListView("IP Address       |NetBIOS Name    |Server   |User           |MAC Address   ",1,20,490 ,280 ) Local $gui, $StatusBar1 Local $a_PartsRightEdge = Local $a_PartsText = ["本机名:" & @ComputerName,"本机IP:" & $myipaddress,"本机MAC:"& _GetMACFromIP($myipaddress),"技术支持:Http://AutoIt.8800.org"] $StatusBar1 = _GUICtrlStatusBarCreate ($Form1, $a_PartsRightEdge, $a_PartsText)GUISetState(@SW_SHOW)While 1  $msg = GuiGetMsg()  Select   Case $msg = $GUI_EVENT_CLOSE or $msg = $Button6    ExitLoop   Case $msg = $Button1    scan()   Case $msg = $Button2    deleteitem()   Case $msg = $Button3    clearall()   Case $msg = $Button4    clearup()   Case $msg = $Button5    saveas()   Case $msg = $Combo1    getnetworkconfig(GUICtrlRead($Combo1))    _GUICtrlStatusBarSetText($StatusBar1, "本机IP:" & $myipaddress,1)    _GUICtrlStatusBarSetText($StatusBar1, "本机MAC:"& _GetMACFromIP($myipaddress),2)   case $msg = $listview1    Dim $B_DESCENDING    _GUICtrlListViewSort($listview1, $B_DESCENDING, GUICtrlGetState($listview1))  EndSelect WEnd Exit ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; Func OnAutoItExit()    ;;;脚本退出时清理临时文件 FileDelete(@TempDir & "\scaneripadd.txt") EndFunc ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; Func _GetMACFromIP($sIP)    ;;根椐IP取MAC,此程序中只是为了取本机的MAC用以显示在状态栏中  Local $MAC, $MACSize  Local $i, $s, $r, $iIP  $MAC = DllStructCreate("byte")  $MACSize = DllStructCreate("int")  DllStructSetData($MACSize, 1, 6)  $r = DllCall("Ws2_32.dll", "int", "inet_addr", "str", $sIP)  $iIP = $r  $r = DllCall("iphlpapi.dll", "int", "SendARP", "int", $iIP, "int", 0, "ptr", DllStructGetPtr($MAC), "ptr", DllStructGetPtr($MACSize))  $s = ""  For $i = 0 To 5   If $i Then $s = $s & "-"   $s = $s & Hex(DllStructGetData($MAC, 1, $i + 1), 2)  Next  Return $s EndFunc   ;==>_GetMACFromIP ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; Func scan()     ;;;扫描,创建列表 $pid = Run(@ComSpec & ' /c "' & @ScriptDir & '\nbtscan.exe" -r ' & $myipaddress & "/" & CountSubnetMaskBit($mysubnetmask) & ">" & @TempDir & "\scaneripadd.txt",@TempDir,@SW_HIDE) $x = True  Do   If $x Then    GUICtrlSetData($label1,"扫描中")    GUICtrlSetBkColor($label1,0x00FF00)   Else    GUICtrlSetBkColor($label1,-1)   EndIf   $x = not $x   sleep(300)  Until Not ProcessExists($pid)  GUICtrlSetBkColor($label1,-1)  GUICtrlSetData($label1,"处理中")  dim $arrayiplist ;~  dim $arrayiplist  If Not _FileReadToArray(@tempdir & "\scaneripadd.txt",$arrayiplist) Then   SetError(1)   Return -1  EndIf  For $x = $arrayiplist to 1 step -1   $line = $arrayiplist[$x]   If $line = "------------------------------------------------------------------------------" Then    ExitLoop   ElseIf  stringlen($line) = 0 Then    ContinueLoop   Else    $ipaddress = StringStripWS(stringleft($line,17),3)    $netbios>   $server = StringStripWS(stringmid($line,35,10),3)    $user = StringStripWS(stringmid($line,45,17),3)    $macaddress = StringUpper(stringmid($line,62,17))    GUICtrlCreateListViewItem($ipaddress & "|" & $netbios>  EndIf  Next  GUICtrlSetData($label1,"完成") EndFunc   ;==>scan ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; Func CountSubnetMaskBit($subnetmask)      ;;;;统计子网掩码的位数  $subnetmasksp = StringSplit($subnetmask, ".")  If $subnetmasksp <> 4 Then   SetError(1)   Return 32  EndIf  $bit = 0  For $x = 1 To 4   If $subnetmasksp[$x] = 255 Then    $bit = $bit + 8   ElseIf $subnetmasksp[$x] = 254  Then    $bit = $bit + 7   ElseIf $subnetmasksp[$x] = 252  Then    $bit = $bit + 6   ElseIf $subnetmasksp[$x] = 248  Then    $bit = $bit + 5   ElseIf $subnetmasksp[$x] = 240  Then    $bit = $bit + 4   ElseIf $subnetmasksp[$x] = 224  Then    $bit = $bit + 3   ElseIf $subnetmasksp[$x] = 192  Then    $bit = $bit + 2   ElseIf $subnetmasksp[$x] = 128  Then    $bit = $bit + 1   ElseIf $subnetmasksp[$x] <> 0 Then    SetError(1)    Return 32   EndIf  Next  If $bit >= 1 And $bit <= 32 Then   Return $bit  Else   SetError(1)   Return 32  EndIf EndFunc   ;==>CountSubnetMaskBit ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; Func clearall()      ;;;清空  _GUICtrlListViewDeleteAllItems($listview1)  guictrlsetdata($label1,"") EndFunc   ;==>clearall ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; Func clearup()      ;;;整理重复  Local $count  $count = _GUICtrlListViewGetItemCount($listview1)  If $count Then   dim $itemarray[$count]  EndIf  for $x = 0 to $count - 1   $itemarray[$x] = _GUICtrlListViewGetItemText($listview1,$x)  Next  For $x = 0 to $count - 1   For $y = $x + 1 to $count - 1    If $itemarray[$x] = $itemarray[$y] Then     $itemarray[$y] = ""    EndIf   Next  Next  _GUICtrlListViewDeleteAllItems($listview1)  For $x = 0 to $count - 1   If StringLen($itemarray[$x]) > 0 then    GUICtrlCreateListViewItem($itemarray[$x],$listview1)   EndIf  Next  guictrlsetdata($label1,"") EndFunc   ;==>clearup ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; Func deleteitem()      ;;;;删除一项  If _GUICtrlListViewGetSelectedCount($listview1) Then   _GUICtrlListViewDeleteItemsSelected($listview1)  EndIf EndFunc   ;==>deleteitem ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; Func saveas()    ;;;保存  Local $count,$lines  $count = _GUICtrlListViewGetItemCount($listview1)  If $count >=1 Then   Local $savetextarray   For $x = 0 to $count - 1    $savetextarray = _GUICtrlListViewGetItemTextArray($listview1,$x)    $lines = $lines &  $savetextarray & "=" & $savetextarray & "|" & $savetextarray & @CRLF   Next   $lines = "" & @CRLF & "Mask=" & $mysubnetmask & @CRLF & "GateWay=" & $mygeteway & @CRLF & "主DNS=" & $mydns & @CRLF & "副DNS=" & $mydns & @CRLF  & "" & @CRLF & $lines & ";;CSCDK自己根椐格式复制一下，太多了，不好写。"   If fileexists(@ScriptDir & "\Mac2Ip.ini") Then    $count = MsgBox(8192+256+32+4,"文件已存在","文件" & @ScriptDir & "\Mac2Ip.ini" & "已经存在，是否覆盖？")    If $count = 6 Then     $inifile = fileopen(@ScriptDir & "\Mac2Ip.ini",2)     $x = FileWrite($inifile,$lines)     FileClose($inifile)     If $x Then      GUICtrlSetData($label1,"保存成功")     Else      GUICtrlSetData($label1,"写入失败")     EndIf    EndIf   Else     $inifile = fileopen(@ScriptDir & "\Mac2Ip.ini",2)     $x = FileWrite($inifile,$lines)     FileClose($inifile)     If $x Then      GUICtrlSetData($label1,"保存成功")     Else      GUICtrlSetData($label1,"写入失败")     EndIf   EndIf  EndIf EndFunc   ;==>saveas ;;;;;;;;;;;;;;; Func getnetworkconfig($tempstr)  for $i = 1 to 4   If $tempstr = $Description[$i] Then    $myipaddress = regread("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\Tcpip\Parameters\Interfaces\"& $ServiceName[$i] ,"IPAddress")    $mysubnetmask = regread("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\Tcpip\Parameters\Interfaces\"& $ServiceName[$i] ,"SubnetMask")    $mygeteway = regread("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\Tcpip\Parameters\Interfaces\"& $ServiceName[$i] ,"DefaultGateway")    $mydns = regread("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\Tcpip\Parameters\Interfaces\"& $ServiceName[$i] ,"NameServer")    $mydns = StringSplit($mydns,",")    ExitLoop   EndIf  Next EndFunc   ;==>getnetworkconfig

stardust 发表于 2008-8-31 19:57:53

居然没人回帖……:face (32):

楼主好象没讲清楚做什么用的。

haodd 发表于 2010-8-10 12:30:50

神人啊相当有用滴啊

tsui 发表于 2011-11-11 20:53:35

nbtscan生成列表太慢了啊，纠结

页: [1]

AUTOIT CN's Archiver

为AMU的MacToIp写的扫描程序（以nbtscan为核心