page606.vbs

来自「Apress - Managing Enterprise Systems Wit」· VBS 代码 · 共 10 行

'list all services on the computer Odin
'get a reference to a computer
Set objComputer = GetObject("WinNT://Odin")
'filter on the Service object class
objComputer.Filter = Array("Service")
'enumerate the services
   For Each objService In objComputer
    Wscript.Echo objService.Name, objService.DisplayName
   Next