'// define vars
strComputer = "."
'// define objects
set objShell = CreateObject("WScript.Shell")
set objWMI = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
set tblOS = objWMI.ExecQuery("Select * From Win32_OperatingSystem")
'// traverse tblOS
for each objRow in tblOS
strBootTime = objRow.LastBootUpTime
next
'// convert to date data type
strDate = cdate(left(strBootTime, 4) & "/" & mid(strBootTime, 5, 2) & "/" & mid(strBootTime, 7, 2))
intDays = datediff("d", strDate, now)
'// main
if (intDays > 7) then
do
intRestart = msgbox ("It's been " & intDays & "since your last reboot. We you like to reboot now?")
if (intRestart = vbYes) then
objShell.Run "shutdown -r -t 0 -f"
end if
wscript.sleep 1000 * 60 * 15 'milliseconds
loop
end if