'//  select the VMWare services & Start them 
'     VMAuthdService
'     VMnetDHCP
'     vmount2
'     VMware NAT Service

mstop = Msgbox ( "             This Script will start the following services          " & vbcrlf & _
	vbcrlf & "                  VMware NAT Service                                " & _
	vbcrlf & "                  VMware DHCP Service                               " & _
	vbcrlf & "                  VMware Authorization Service                      " & _
	Vbcrlf & "                  VMware Virtual Mount Manager                      " & vbcrlf & _
	vbcrlf & "                       Do you wish to continue ? "& vbcrlf,vbYesNo," Start VMware Services")

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

  For Each objService in colServiceList
     errReturn = objService.startService()
  Next
end if