Vbscript 根据计算机名称打开某些应用程序的VBS脚本

尝试创建VBScript以根据计算机名称打开两个不同函数之一。 这是我的密码：

Option Explicit
Dim objShell
Set objShell = CreateObject("WScript.Shell")

Set objSysInfo = CreateObject("WinNTSystemInfo")
strComputerName = objSysInfo.ComputerName

Sub MIS()
objShell.Run "firefox"
objShell.Run "P:\Private"
objShell.Run ("""C:\Program Files (x86)\Microsoft Visual Studio\Shared\Python36_86\pythonw.exe""")
objShell.Run ("""C:\Program Files (x86)\Microsoft Visual Studio\Shared\Python36_86\Lib\idlelib\idle.pyw""")
End Sub

Sub Norm()
objShell.Run "firefox"
objShell.Run "P:\Private"
End Sub

If strComputerName = "BDREDCTR175-74" Then
MIS()
Else
Norm()
End If

但是，当我运行它时，会出现以下错误：

---

任何解决方案？

选项显式

强制您定义所有使用的变量

因此，在上面添加

Dim objSysInfo

设置objSysInfo=CreateObject（“WinNTSystemInfo”）

可能的重复