确定计算机的 IP 地址

[ 2005/07/09 09:51 | by gOxiA ]

描述

返回安装在计算机中的每个支持 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

配置服务启动选项

[ 2005/07/09 09:46 | by gOxiA ]

描述
禁用所有配置为手动启动的服务。除了别的之外,这会使得 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

描述
返回在 Services.exe 进程中运行的服务的列表。


脚本代码
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{ impersonationLevel=impersonate }!\\" & strComputer & "\root\cimv2")
Set colListOfServices = objWMIService.ExecQuery _
("Select * from Win32_Service")
For Each objService in colListOfServices
If objService.PathName = "C:\WINDOWS\system32\services.exe" Then
Wscript.Echo objService.DisplayName
End If
Next

分页: 441/474 第一页 上页 436 437 438 439 440 441 442 443 444 445 下页 最后页 [ 显示模式: 摘要 | 列表 ]