110,532
社区成员
发帖
与我相关
我的任务
分享
'Code By Coo_boi
'Cmd operates the Net-Connections
Dim owSh,Operations
cmd="cmd.exe /c netsh interface set interface name=" & Chr(34) & "本地连接" & Chr(34) & " admin="
Operations=InputBox("1.禁用" & vbNewLine & "2.启用","本地连接")
If Operations="" Then WScript.Quit
Set owSh=CreateObject("Wscript.Shell")
If Operations="1" Then
Operations="DISABLE"
ElseIf Operations="2" Then
Operations="ENABLE"
End If
cmd=cmd & Operations
owSh.Run cmd,True
Set owSh=Nothing