dim objWMI

dim strComputer

Computer = Admin412

For Each objWMI In

GetObject("winmgmts:\\strComputer\root\cimv2").InstancesOf("Win32

Service")

Wscript.EchoobjWMI.Name

Next