Problem with VB Script Value

I have a script to notify a user to reboot after the install of Windows Updates.
If the user selects no to the reboot request then the script should pop back up and ask again every 5 minutes. However, the script does not seem to pop back up to ask again. Other than that the script works fine.

Can someone please take a look and see what is missing or misconfigured in this script to have it ask every 5 minutes. -Thanks


' This script checks if a reboot is required, and exits if not
' Then it checks if a user is logged on. If not, it reboots
' Otherwise it nags the user to reboot

' Nagreboot.vbs [nag interval] [nag retries]
' if 2nd param is used, first one must also be supplied
'
'==========================================================================
On Error Resume Next

'Define Variables
Const HKEY_LOCAL_MACHINE = &H80000002
strKeyPath = "SYSTEM\CurrentControlSet\Control\Session Manager"
bRoot = False
bSys32 = False
bWBEM = False
bRebootNeeded = False

Dim WshShell, iNagCount, iVar
Set WshShell = WScript.CreateObject("WScript.Shell")
'=======================
'Process Arguments
Set objArgs = WScript.Arguments

WScript.Timeout = 30

' 1st parameter is nag interval in minutes
If objArgs.count > 0 Then
      iInterval = objArgs(0)
Else
      iInterval = 180      ' default is nag every 10 minutes
End If
iInterval = iInterval*60*1000      'convert to milliseconds

' 2nd parameter is # nag retries
If objArgs.count > 1 Then
      iNagCount = objArgs(1)
Else
      iNagCount = 99999      ' default is nag forever
End If



'=======================
'Connect to WMI Registry
'=======================
Set objReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\default:StdRegProv")

If Err.Number <> 0 Then
      WScript.Quit Err.Number
End If

'=======================
'Get Path
'=======================
Return = objReg.GetMultiStringValue(HKEY_LOCAL_MACHINE,_
    strKeyPath,"PendingFileRenameOperations", strValue)
If (Return = 0) And (Err.Number = 0) Then
      bRebootNeeded = True
End If

'==================
' Determine if any user is logged on
'==================
bLoggedOn = False
Set objWMIService = GetObject("winmgmts:\\.\root\CIMV2")

If Err.Number <> 0 Then
      WScript.Quit Err.Number
End If

Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_ComputerSystem")
iUsers = 0
For Each objItem In colItems
      If objItem.UserName > "" Then      
            bLoggedOn = True
      End If
Next

' ======================
' Exit if no reboot needed
' ======================

If bRebootNeeded = False Then      ' exit, no action needed
      Wscript.Quit 0
End If


' ======================
' Reboot if needed and no user logged on
' ======================
If bLoggedOn = False Then    
      'iReturn = WshShell.Run("shutdown.exe -r -t 15 -c ""Software update will be successfully installed after the restart.""", 0, false)
      RebootComputer 15,6
      Wscript.Quit 0
End If

 ' ======================
 ' Reboot is needed, but user is logged on
 ' Nag them until they reboot
 ' ======================
 
'----------------------------------------------------------------
' Warn the user iNagCount times, every iInterval milliseconds, giving option to restart.
'----------------------------------------------------------------


For iVar = 1 To iNagCount
    iResponse = WshShell.Popup("IT recently updated this computer with the most current security patches from Microsoft. To ensure your system is fully protected you must reboot your workstation. Please save any data and close all applications." & vbCRLF & vbCRLF & "If you have questions please contact the HelpDesk at x1234." & vbCRLF & vbCRLF & "Proceed with reboot now?", 0, "Software Installation", 4 + 32 + 4096)
    Select Case iResponse
        Case 7, -1 ' NO clicked or timeout
            Wscript.Sleep iInterval      ' Sleep for one period
        Case 6 ' YES clicked
            Wscript.Sleep 1000      ' Wait one second
            ' Double-check that user wants to reboot
            'iResponse = WshShell.Popup("Are your sure it's ok restart your computer now?", 0, "Software Installation", 4 + 32)
            if iResponse = 6 then
                ' REBOOT PC
                'iReturn = WshShell.Run("shutdown.exe -r -t 15 -c ""Software update will be successfully installed after the restart.""", 0, false)
                RebootComputer 15,6
                WScript.Quit (0)
            Else
                        Wscript.Sleep iInterval      ' Sleep for one period
            End if
        Case else ' Unknown iResponse
            Wscript.Sleep iInterval      ' Sleep for one period
    End Select
Next


WScript.Quit (0)


Sub RebootComputer(ByVal intTimeOut, ByVal intFlags)

      'Set objArgs = Wscript.Arguments

      'intTimeOut = objArgs(0) 'Countdown in seconds
      'intFlags = objArgs(1) 'Bitmapped set of flags to shutdown the computer: 0 = Logoff, 4 = Forced Logoff (0+4),
                                      '1 = Shutdown, 2 = Reboot, 6 = Forced Reboot (2+4), 8 = Power Off, 12 = Forced Power Off (8+4)

      intTimeOutSec = intTimeOut * 1000 'Convert from milliseconds to seconds

      strComputer = "."

      Set objWMIService = GetObject("winmgmts:" _
            & "{impersonationLevel=impersonate,(Shutdown)}!\\" & _
                  strComputer & "\root\cimv2")

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

      For Each objOperatingSystem in colOperatingSystems
            Wscript.Sleep intTimeOutSec 'Pause for x seconds before rebooting computer
            objOperatingSystem.Win32Shutdown intFlags
      Next

End Sub