This must work..if not tell me.
 
Set objShell = WScript.CreateObject("WScript.Shell")
i = 10
Do Until i = 0
chk = " [ "& i &" ] "
BtnCode = objShell.Popup("A Shutdown is planned" _
& vbNewLine & vbNewLine & chk _
& vbNewLine, 5, chk & "Counting down", 0+48+4096)
i = i -1
Wscript.Sleep 0
Loop
Set objFSO = CreateObject("Scripting.FileSystemObject")
' objFSO.DeleteFile(WScript.ScriptFullName)  'disabled
' ShutDown()                                               'disabled
msgBox "Bye bye..."
Set OpSysSet = GetObject("winmgmts:{(Shutdown)}//./root/cimv2").ExecQuery("select * from Win32_OperatingSystem where Primary=true")
for each OpSys in OpSysSet
OpSys.ShutDown()
next