arp -s静态绑定脚本

2009-9-2 09:14 667 0

摘要: Set objShell = CreateObject("WScript.Shell")Set objFSO = CreateObject("Scripting.FileSystemObject")S...

关键词： nbsp WScript objExec objReg Set objShell strTemp strScriptPath strIPPattern CreateObject

Set objShell = CreateObject("WScript.Shell")Set objFSO = CreateObject("Scripting.FileSystemObject")Set objFile = objFSO.CreateTextFile("temp.bat")Set objReg = New RegExpstrMacPattern = "((\d|([a-f]|[A-F])){2}-){5}(\d|([a-f]|[A-F])){2}"strIPPattern = "((2[0-4]\d|25[0-5]|1?\d?\d)\.){3}(2[0-4]\d|25[0-5]|1?\d?\d)"Set objExec = objShell.Exec("arp -a")Do strTemp = objExec.StdOut.ReadLine objReg.Pattern = strMacPattern Set arrMac = objReg.Execute(strTemp) objReg.Pattern = strIPPattern Set arrIP = objReg.Execute(strTemp) For Each strMac In arrMac For Each strIP In arrIP objFile.WriteLine "arp -s " & strIP & " " & strMac Next NextLoop Until objExec.StdOut.AtEndOfStreamobjFile.ClosestrScriptPath = Replace(WScript.ScriptFullName,WScript.ScriptName,"")Set objExec = objShell.Exec(strScriptPath & "temp.bat")Do While objExec.Status = 0 WScript.Sleep 1000LoopobjFSO.DeleteFile strScriptPath & "temp.bat"WScript.Echo "Done!"

声明：文章版权归原作者所有部分文章转自互联网如有侵权请联系 [邮箱地址] 删除