Dim objShell
Set objShell = CreateObject("WScript.Shell")

Set objWMIService  = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")
Set colServiceList = objWMIService.ExecQuery  ("Select * from Win32_Service where Name like 'vm%'")


' -- Open Notepad & wait until is active
objShell.Run "notepad"
Do Until Success = True
    Success = objShell.AppActivate("Notepad")
    Wscript.Sleep 100
Loop

For Each objService in colServiceList
    objShell.SendKeys objService.name
    objShell.SendKeys "{ENTER}"
'    errReturn = objService.stopService()
Next



'//  VMware Authorization Service    where Name='VMware Authorization Service'
'//  VMware DHCP Service
'//  VMware NAT Service
'//  VMware Virtual Mount Manager Extended