Help with code

I have done my best but can seem to get my loop to stop. I am trying to make it run every 5 minutes on the hour. Any help would be great
 
strComputer = "."
Set objNetwork = CreateObject("Wscript.Network")
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_OperatingSystem")
Dim objNet
On Error Resume Next 
Set objNet = CreateObject("WScript.NetWork") 
Dim strInfo
strInfo = objNet.UserName 
strComputer = objNetwork.ComputerName
myLogOn = DateAdd ("n", 0, Time())
myEndTime = DateAdd ("n", 1, Time())
Do
If myLogOn > myEndTime Then
Wscript.Echo myLogOn & " is after " & myEndTime
'Exit Do

ElseIf myLogOn < myEndTime Then
'If last = Minute(current) Then
MsgBox "Please respond to the following message! Press OK"
MsgBox "This is a message from Information Services. We have recognized that this PC " & strComputer & " has not been migrated to the domain." & vbNewLine & "Please call Mathew in Information Services by dialing. " & vbNewLine & "Or please leave Voice Message with the following information: " & vbNewLine & strInfo & vbNewLine & strComputer & vbNewLine &"myLogOn Location of your PC " & vbNewLine & "Contact Number"
End If
Loop While myLogOn < myEndTime
 

mathew

myLogOn = DateAdd ("n", 0, Time())
myEndTime = DateAdd ("n", 1, Time())
Do
 '...
Loop While myLogOn < myEndTime

Neither myLogOn nor myEndTime ever change. And since you defined myEndTime as myLogOn + 1 min the condition "myLogOn < myEndTime" is always true. Thus your loop never terminates.

Then how would you suggest the change? Thanks for your time!
Mat

That depends on what you actually want to do. If you merely want the loop to terminate after 5 minutes, you need to check if the current time is greater than myEndTime. I'd recommend to use timestamps (including the date) rather than just Time for this, because otherwise you might run into issues when the date changes.

myEndTime = DateAdd ("n", 5, Now)
Do
 '...
Loop While Now < myEndTime

However, if you want to run some task every 5 minutes, It's probably more appropriate to remove the loop entirely and set up a scheduled task that runs the script every 5 minutes.

wow, something that simple. What was the logic behind that fix? Does Now automatically populate with current time and checks itself against the declared end time?
Thanks for your help

Yes, the builtin functions Time, Date and Now always return the current date and/or time.