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

'restart, wait 15 seconds, force running apps to close
oShell.Run "%comspec% /c shutdown /r /t 15 /f", , TRUE