Option Explicit
Dim objNetwork, objComputer
Dim objFSO, objFSOText, objFolder, objFile, objShell
Dim strDirectory, strFile, MakeObject, RunCommand

strDirectory= "c:\windows\IE7\spuninst\spuninst.exe"
Set objFSO = CreateObject("Scripting.FileSystemObject")
'MsgBox(strDirectory)
If objFSO.FileExists(strDirectory) Then
'MsgBox("Folder Exists")
Dim strmsgbox
strmsgbox = MsgBox("Internet Explorer 7.0 was detected on your computer. Would you like to Uninstall?",4, "IE7 Uninstall")
If strmsgbox = vbYes Then
MsgBox("You have choosen to uninstall IE7. You will have to reboot your system when the uninstall proccess has completed.")
Set objShell = CreateObject("WScript.Shell")
	RunCommand="c:\windows\IE7\spuninst\spuninst.exe /passive /warnrestart:60"
          objshell.run RunCommand,1,true
	
Else
	If strmsgbox = vbNo Then
		MsgBox("You have choosen NOT to Uninstall IE7. Please be aware that IE7 is NOT full compatible with Banner Applications or MEMO options.")
	End if
End If
Else
'MsgBox("Folder does not Exist")
WScript.quit
End if