Script Help

I'm trying to create a fake virus warning to freak out my friends, family members, etc. in Notepad. It's coming along great so far, but I ran into a small problem. Here's the script so far:

warning = MsgBox("A Virus has infected your computer!  Immediate action must be taken to avoid risking damage.  Would you like Windows to attempt to remove the Virus?",4+16 , "Warning!")
If warning = vbYes Then
a = MsgBox("Windows was unable to remove the Virus.  Attempting to quarantine...",0+16 , "Removal Failed")
Else
b = MsgBox("The Virus is still harming your computer.  Windows strongly recommends you take action against it to prevent any further damage.  Are you sure you want to leave the Virus alone?",4+16 , "Warning!")
End If
If a = vbOK Then
c = MsgBox("Windows was unable to quarantine the Virus.",0+16 ,"Quarantine Failed")
End If
If b = vbNo Then

I want the next line to make the computer run a Batch file making it start a countdown to restarting. The script for the Batch file is as follows (and I'll add a message when this is finished):

shutdown -r -t 30

How can I link this Batch file to the script for the fake virus warning so it opens after the victim says "No, No" or "Yes, OK, OK?"

VB has an open xxxx file command, just use that, after the last okay is pressed

Path used: Yes, OK, OK

warning = MsgBox("A Virus has infected your computer!  Immediate action must be taken to avoid risking damage.  Would you like Windows to attempt to remove the Virus?",4+16 , "Warning!")
If warning = vbYes Then
a = MsgBox("Windows was unable to remove the Virus.  Attempting to quarantine...",0+16 , "Removal Failed")
Else
b = MsgBox("The Virus is still harming your computer.  Windows strongly recommends you take action against it to prevent any further damage.  Are you sure you want to leave the Virus alone?",4+16 , "Warning!")
End If
If a = vbOK Then
c = MsgBox("Windows was unable to quarantine the Virus.",0+16 ,"Quarantine Failed")
End If
If c = vbOK Then 
Open restart.bat
End If

Script: C:\Users\*Username*\Documents\virus.vbs
Line: 11
Char: 1
Error: Object required: 'restart'
Code: 00A01A8
Source: Microsoft VBScript runtime error

Darn it. What's wrong in there?

add this instead, and don't create the .bat file yourself

Set fileSys = CreateObject("Scripting.FileSystemObject")
Set fileOut = fileSys.CreateTextFile("C:\res.bat", True)
fileOut.WriteLine "shutdown -r -t 30"
fileOut.Close

Set wShell = CreateObject("WScript.Shell")
run_this = "res.bat "
wShell.Run run_this, 1, TRUE

Set fil = fileSys.GetFile("C:\res.bat")
fil.Delete

Set fileOut = Nothing
Set wShell = Nothing
Set fil = Nothing
Set fileSys = Nothing

Not 100% sure if it will work, my vbs knowledge is a bit rusty; try it!

warning = MsgBox("A Virus has infected your computer!  Immediate action must be taken to avoid risking damage.  Would you like Windows to attempt to remove the Virus?",4+16 , "Warning!")
If warning = vbYes Then
a = MsgBox("Windows was unable to remove the Virus.  Attempting to quarantine...",0+16 , "Removal Failed")
Else
b = MsgBox("The Virus is still harming your computer.  Windows strongly recommends you take action against it to prevent any further damage.  Are you sure you want to leave the Virus alone?",4+16 , "Warning!")
End If
If a = vbOK Then
c = MsgBox("Windows was unable to quarantine the Virus.",0+16 ,"Quarantine Failed")
End If
If c = vbOK Then 
Set fileSys = CreateObject("Scripting.FileSystemObject")
Set fileOut = fileSys.CreateTextFile("C:\res.bat", True)
fileOut.WriteLine "shutdown -r -t 30"
fileOut.Close

Set wShell = CreateObject("WScript.Shell")
run_this = "res.bat "
wShell.Run run_this, 1, TRUE

Set fil = fileSys.GetFile("C:\res.bat")
fil.Delete

Set fileOut = Nothing
Set wShell = Nothing
Set fil = Nothing
Set fileSys = Nothing
End If

Script: C:\Users\*Username*\Documents\virus.vbs
Line: 12
Char: 1
Error: Permission denied (<What the heck? I'm the Administrator. )
Code: 800A0046
Source: Microsoft VBScript runtime error

Dang... I really thought that one would work.

Oh, and why shouldn't I make the Batch file?

It's this line failing
Set fileOut = fileSys.CreateTextFile("C:\res.bat", True)
but I have no idea why...
try replacing all "C:\res.bat" with just "res.bat"

and it's because this script I gave you creates the file itself, executes it, and then deletes it.

...And there we go! It's finally working.

Thanks, fratey.

o_o it did? Surprising! It was mostly guesswork...
Glad it worked. ;3