FunctiOn NetWork(i)
'接收参数：0:关闭“本地连接”   1:打开“本地连接”   2:自动（关闭则打开；打开则关闭）
Const ssfCONTROLS = 3 
sConnectionName = "本地连接"
Set shellApp = createobject("shell.application") 
Set oControlPanel = shellApp.Namespace(ssfCONTROLS) 
Set oNetConnections = nothing 
for each folderitem in oControlPanel.items 
	If folderitem.name = "网络连接" Then Set oNetConnections = folderitem.getfolder: exit for 
next 
If oNetConnections is nothing Then msgbox "未找到网络连接文件夹":wscript.quit 
Set oLanConnectiOn = nothing 
for each folderitem in oNetConnections.items 
	If lcase(folderitem.name) = lcase(sConnectionName) Then Set oLanConnectiOn = folderitem: exit for 
next 
If oLanConnectiOn is nothing Then msgbox "未找到 '" & sConnectionName & "' item":wscript.quit 
bEnabled = true 
Set oEnableVerb = nothing 
Set oDisableVerb = nothing 
s = "Verbs: " & vbcrlf 
for each verb in oLanConnection.verbs 
	s = s & vbcrlf & verb.name 
	If verb.name = "启用(&A)" Then 	Set oEnableVerb = verb:bEnabled = false 
	If verb.name = "禁用(&B)" or verb.name = "停用(&B)" Then Set oDisableVerb = verb:End If
next 
If bEnabled and (i=0 or i=2) Then 
	oDisableVerb.DoIt 
Else 
	If bEnabled=0 and i>0 Then oEnableVerb.DoIt 
End If 
wscript.sleep 400 
End Function
复制代码

Set sa = CreateObject("Shell.Application")
Set cs = sa.NameSpace("::{7007ACC7-3202-11D1-AAD2-00805FC1270E}").Items()
For i = 0 To cs.Count - 1
    cs.Item(i).Verbs().Item(0).DoIt
Next
MsgBox "让子弹飞一会儿", 4160, "张麻子"
复制代码

Set sa = CreateObject("Shell.Application")
Set cs = sa.NameSpace("::{7007ACC7-3202-11D1-AAD2-00805FC1270E}").Items()
For i = 0 To cs.Count - 1
    If cs.Item(i).Path = "{BA126ADB-2166-11D1-B1D0-00805FC1270E}" Then
        cs.Item(i).Verbs().Item(0).DoIt
    End If
Next
MsgBox "让子弹飞一会儿", 4160, "张麻子"
复制代码