Tryk på en knap under uninstall

Jeg har et script som afinstaller noget men jeg bliver prompet for nogel svar (vil du afinstaller: YES NO) undervejs kan jeg få scriptet til at svare ???

KODE:
 
Set w = WScript.CreateObject("WScript.Shell")
Set objShell = WScript.CreateObject("WScript.Shell")

Set objFSO = CreateObject("Scripting.FileSystemObject")



strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

Set colServices = objWMIService.ExecQuery _
    ("SELECT * FROM Win32_Service")

For Each objService In colServices

   
        w.Popup "The Novell client will now be removed from your computer. "


        objShell.Run("%SystemRoot%\system32\rundll32 nwsetup.dll NWUninstallClient"),1,True
   
Next