启用网络适配器上的 IPSec
描述
启用网络适配器的 IP 安全性。在此脚本中,所有的l TCP 和 UDP 端口以及所有的l IP 协议都是允许的;因此在每种情况下都传送值 0。如果只允许特定的端口或协议,则应该以数组的形式发送这些值。
有关在这段代码中使用的 EnableIPSec 方法的更多信息,请单击 此处。
支持平台
Windows Server 2003 | 是 |
Windows XP | 是 |
Windows 2000 | 是 |
Windows NT 4.0 | Yes, with WMI installed |
脚本代码
On Error Resume Next
Const ALLOW_ALL = 0
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colNetCards = objWMIService.ExecQuery _
("Select * From Win32_NetworkAdapterConfiguration Where IPEnabled = True")
For Each objNetCard in colNetCards
arrPermittedTCPPorts = Array(ALLOW_ALL)
arrPermittedUDPPorts = Array(ALLOW_ALL)
arrPermittedIPProtocols = Array(ALLOW_ALL)
objNetCard.EnableIPSec arrPermittedTCPPorts, arrPermittedUDPPorts, arrPermittedIPProtocols
Next
EnableIPSec Method of the Win32_NetworkAdapterConfiguration Class:
uint32 EnableIPSec(
string IPSecPermitTCPPorts[],
string IPSecPermitUDPPorts[],
string IPSecPermitIPProtocols[]
);
确定计算机的 IP 地址
描述
返回安装在计算机中的每个支持 IP 的网络适配器的 IP 地址。
脚本代码
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set IPConfigSet = objWMIService.ExecQuery _
("Select IPAddress from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")
For Each IPConfig in IPConfigSet
If Not IsNull(IPConfig.IPAddress) Then
For i=LBound(IPConfig.IPAddress) to UBound(IPConfig.IPAddress)
WScript.Echo IPConfig.IPAddress(i)
Next
End If
Next
描述
禁用所有配置为手动启动的服务。除了别的之外,这会使得 Power User 不能启动这些服务。
脚本代码
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{ impersonationLevel=impersonate }!\\" & strComputer & "\root\cimv2")
Set colServiceList = objWMIService.ExecQuery _
("Select * from Win32_Service where StartMode = 'Manual'")
For Each objService in colServiceList
errReturnCode = objService.Change( , , , , "Disabled")
Next