VBS Script для открытия некоторых приложений в зависимости от имени компьютера

Question

Попытка создать 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

Однако, когда я запускаю его, он выдает мне ошибку:

Любые решения?

Answer 1

Option Explicit заставляет вас определять все переменные, которые вы используете.

Поэтому добавьте Dim objSysInfo выше Set objSysInfo = CreateObject("WinNTSystemInfo").