bat 命令 开启某个服务

求解答，如何用命令开启ICS服务，共享本地连接，参数，命令。

'↓运行命令↓ 'cscript /nologo ics。vbs "无线网络连接" "本地连接" "off" '将以上代码保存为*。bat文件运行，三个参数分别为，供别人连接的网卡名字、提供共享的网卡名称、开启(on)关闭(off) ' VBScript source code OPTION EXPLICIT DIM ICSSC_DEFAULT, CONNECTION_PUBLIC, CONNECTION_PRIVATE, CONNECTION_ALL DIM NetSharingManager DIM PublicConnection, PrivateConnection DIM Eve...全部

  '↓运行命令↓ 'cscript /nologo ics。vbs "无线网络连接" "本地连接" "off" '将以上代码保存为*。bat文件运行，三个参数分别为，供别人连接的网卡名字、提供共享的网卡名称、开启(on)关闭(off) ' VBScript source code OPTION EXPLICIT DIM ICSSC_DEFAULT, CONNECTION_PUBLIC, CONNECTION_PRIVATE, CONNECTION_ALL DIM NetSharingManager DIM PublicConnection, PrivateConnection DIM EveryConnectionCollection DIM objArgs DIM priv_con, publ_con dim switch ICSSC_DEFAULT = 0 CONNECTION_PUBLIC = 0 CONNECTION_PRIVATE = 1 CONNECTION_ALL = 2 Main() sub Main( ) Set objArgs = WScript。
  Arguments if objArgs。Count = 3 then priv_con = objArgs(0)'内网连接名 publ_con = objArgs(1)'外网连接名 switch = objArgs(2)'状态切换开关 on 为 打开ics off 相反 if Initialize() = TRUE then GetConnectionObjects() FirewallTestByName priv_con,publ_con end if else DIM szMsg if Initialize() = TRUE then GetConnectionObjects() FirewallTestByName "list","list" end if szMsg = "To share your internet connection, please provide the name of the private and public connections as the argument。
  " & vbCRLF & vbCRLF & _ "Usage:" & vbCRLF & _ " " & WScript。scriptname & " " & chr(34) & "Private Connection Name" & chr(34) & " " & chr(34) & "Public Connection Name" & chr(34) WScript。
  Echo( szMsg & vbCRLF & vbCRLF) end if end sub sub FirewallTestByName(con1,con2) on error resume next DIM Item DIM EveryConnection DIM objNCProps DIM szMsg DIM bFound1,bFound2 WScript。
  echo(vbCRLF & vbCRLF) bFound1 = false bFound2 = false for each Item in EveryConnectionCollection set EveryConnection = NetSharingManager。
  INetSharingConfigurationForINetConnection(Item) set objNCProps = NetSharingManager。NetConnectionProps(Item) szMsg = "Name: " & objNCProps。
  Name & vbCRLF & _ "Guid: " & objNCProps。Guid & vbCRLF & _ "DeviceName: " & objNCProps。DeviceName & vbCRLF & _ "Status: " & objNCProps。
  Status & vbCRLF & _ "MediaType: " & objNCProps。MediaType if EveryConnection。SharingEnabled then szMsg = szMsg & vbCRLF & _ "SharingEnabled" & vbCRLF & _ "SharingType: " & ConvertConnectionTypeToString(EveryConnection。
  SharingConnectionType) end if if objNCProps。Name = con1 then bFound1 = true if EveryConnection。SharingEnabled = False and switch="on" then szMsg = szMsg & vbCRLF & "Not Shared。
  。。 Enabling private connection share。。。" WScript。Echo(szMsg) EveryConnection。EnableSharing CONNECTION_PRIVATE szMsg = " Shared!" elseif(switch = "off") then szMsg = szMsg & vbCRLF & "Shared。
  。。 DisEnabling private connection share。。。" WScript。Echo(szMsg) EveryConnection。EnableSharing CONNECTION_ALL end 希望能帮助到你，麻烦点击“有用”，谢谢！。
  收起