Scripting

Hi guys

I need some help with the below code. We need to run a vbscript inside an HTA (have imported the HTA code only) which will detect a registry key (not a value) if present the script will invoke a shutdown and restart. If the key is not present it will write another registry value and exit.

Below is what i have so far. The problem seems to be that the logic inside the function is not working, the RegKeyMode value gets written, however the machine never reboots if the RebootRequired key is found. I'm a bit stuck any help would be appreciated.

Const HKEY_LOCAL_MACHINE = &H80000002

strComputer = "."

RegKeyMoe = "HKLM\Software\Build\MOEPreReq1"

Set objRegistry = GetObject("winmgmts:\\" & _ 

    strComputer & "\root\default:StdRegProv")

Set objShell = CreateObject("WScript.Shell")

'Set WshShell = WScript.CreateObject("Wscript.Shell")

'On Error Resume Next

If regValueExists("HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\WindowsUpdate\Auto Update\RebootRequired") Then

objShell.Run "shutdown.exe /R /F /T 60 /C """ & "MOE Update Complete. Rebooting your computer in 60 seconds!"""  

Else

objShell.RegWrite RegKeyMoe, 1, "REG_DWORD"

'Self.close()

'End If

End If

End Sub

Function regValueExists(key)

      'This function checks if a registry value exists and returns True of False

      On Error Resume Next

      'im oShell

      'Set oShell = CreateObject ("WScript.Shell")

      regKeyExists = True

   Err.Clear

      objShell.RegRead(key)

     If Err <> 0 Then regValueExists = False

      Err.Clear

      Set objShell = Nothing

End Function