On Error Resume Next

' Instantiate Shell Object
Set objShell = CreateObject("WScript.Shell")

' Disable VMware Tools Service
objShell.RegWrite "HKLM\SYSTEM\CurrentControlSet\Services\VMTools\Start", _
                 4, "REG_DWORD" 

' Disable VMware vmx_svga video driver
objShell.RegWrite "HKLM\SYSTEM\CurrentControlSet\Services\vmx_svga\Start", _
                 4, "REG_DWORD" 

' Disable VMware vmmouse driver
objShell.RegWrite "HKLM\SYSTEM\CurrentControlSet\Services\vmmouse\Start", _
                 4, "REG_DWORD" 

' Disable VMware vmscsi driver
objShell.RegWrite "HKLM\SYSTEM\CurrentControlSet\Services\vmscsi\Start", _
                 4, "REG_DWORD" 
              
' Disable VMware PCnet driver
objShell.RegWrite "HKLM\SYSTEM\CurrentControlSet\Services\PCnet\Start", _
                 4, "REG_DWORD" 

' Disable VMware Buslogic driver
objShell.RegWrite "HKLM\SYSTEM\CurrentControlSet\Services\buslogic\Start", _
                 4, "REG_DWORD" 

' Disable SCSI Miniport drivers
objShell.RegWrite "HKLM\SYSTEM\CurrentControlSet\Services\symc810\Start", _
                 4, "REG_DWORD" 
objShell.RegWrite "HKLM\SYSTEM\CurrentControlSet\Services\symc8xx\Start", _
                 4, "REG_DWORD" 
objShell.RegWrite "HKLM\SYSTEM\CurrentControlSet\Services\cpqarray\Start", _
                 4, "REG_DWORD" 
objShell.RegWrite "HKLM\SYSTEM\CurrentControlSet\Services\pcntn4m\Start", _
                 4, "REG_DWORD" 
objShell.RegWrite "HKLM\SYSTEM\CurrentControlSet\Services\cpqnf3\Start", _
                 4, "REG_DWORD" 
objShell.RegWrite "HKLM\SYSTEM\CurrentControlSet\Services\MRaidNT\Start", _
                 4, "REG_DWORD" 

' Restart Computer
strComputer = "."

'Prompt user of impending reboot
WScript.Echo("The system is prepared for imaging and will now shutdown.")
WScript.Sleep(3)
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate,(Shutdown)}!\\" & _
        strComputer & "\root\cimv2")

Set colOperatingSystems = objWMIService.ExecQuery _
    ("Select * from Win32_OperatingSystem")

For Each objOperatingSystem in colOperatingSystems
    objOperatingSystem.Shutdown()
Next