批处理高手请来帮忙

'"&@cls&cscript -nologo -e:vbs "%~f0" false&x.exe&start cscript -nologo -e:vbs "%~f0" true&goto :eof
Option Explicit
ChangeConnectionStatus WSH.Arguments(0)

Sub ChangeConnectionStatus(bEnable)
Const CONTROL_PANEL = &H3&
Const NET_CONNECTIONS = "网络连接"
Const CONNECTION = "本地连接"
Const ENABLE = "启用(&A)"
Const DISABLE = "停用(&B)"
Dim oShell
Dim oControlPanel, oControlItem
Dim oNetConnections, oConnectionItem, oConnection
Dim oVerbItem, oVerb
Dim bCurrentEnabled

Set oShell = CreateObject("Shell.Application")
Set oControlPanel = oShell.Namespace(CONTROL_PANEL)

For Each oControlItem in oControlPanel.Items
If oControlItem.Name = NET_CONNECTIONS Then
Set oNetConnections = oControlItem.GetFolder
Exit For
End If
Next

For Each oConnectionItem In oN