If statement 使用vbYesNo的if then语句有问题

我试图创建一个脚本，询问用户是否希望将网络打印机设置为默认打印机。我的问题是，无论他们选择“是”或“否”，它都会将其设置为默认值，并且总是在else下使用echo语句。有人能告诉我我做错了什么吗

`'Printers.vbs-Windows登录脚本

   printername = "DCPTTEAM462W"
   server = "DCDEPLOY03"

   Dim objectNetwork, printer
   printer = "\\DCPRINT03\DCPTTEAM462W"

   Msgbox printername & " will now install on your computer.",0, "Add printer" & printername  


   intRespnseY = Msgbox("Would you like " & printername & " to be set as your default printer", vbYesNo, "Set as Default")


   If intResponseY = vbNo Then

   Set objNetwork = CreateObject("WScript.Network")
   objNetwork.AddWindowsPrinterConnection printer
   WScript.Echo "DCPTTEAM462W was added as a printer."

   Else

   Set objNetwork = CreateObject("WScript.Network")
   objNetwork.AddWindowsPrinterConnection printer
   objNetwork.SetDefaultPrinter printer
   WScript.Echo "DCPTTEAM462W has been set as your default printer."

   End If

`使用

Option Explicit

为避免出现以下错误：

intRespnseY = Msgbox("...")
If intResponseY = vbNo Then

标记缺失的o

如果您有输入错误：

intRespnseY = Msgbox(....

应该是

intResponseY = Msgbox(....

---

非常感谢您修复了回音问题，但仍将打印机设置为默认设置。感谢您的帮助。我发现我的问题是，在卸下打印机后，它将Workshare PDF Publisher设置为默认打印机。如果我将默认打印机更改为另一台打印机并运行脚本，它将按设计工作。罪魁祸首是下文提到的“o”。