VBS获得外网ip且断网
发布网友
发布时间：2022-04-25 03:40
共1个回答
热心网友
时间：2023-10-23 20:02
Public Function GetIP
ComputerName="."
Dim objWMIService,colItems,objItem,objAddress
Set objWMIService = GetObject("winmgmts:\\" & ComputerName & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * From Win32_NetworkAdapterConfiguration Where IPEnabled = True")
For Each objItem in colItems
For Each objAddress in objItem.IPAddress
If objAddress <> "" then
GetIP = objAddress
Exit Function
End If
Next
Next
End Function
MyIP = "127.0.0.1"
Do
If Not GetIP = MyIP Then
strNICName = " disable =net pci\*"
Set objShell = CreateObject("Wscript.Shell")
strCommand = "devcon.exe"& strNICName
objShell.Run strCommand, 0, False
End If
Wscript.Sleep 3000
Loop
步骤二:
微软网站上下载：http://download.microsoft.com/download/1/1/f/11f7dd10-272d-4cd2-896f-9ce67f3e0240/devcon.exe
下载下来的 解压文件，解开它！里面有两个文件夹，分别为32位(I365)，和64位的，根据你自己的系统然后把刚才的vbs文件复制到对应的devcon.exe一个文件夹内。
运行vbs 文件。
已在我电脑上测试过，完全通过。
步骤三:
可以加分了。
有疑必问，有问必答！
