VBS Script To Open Certain Applications Depending on Computer Name

Question

Trying to create a VBScript to open one of two different functions depending on the computer name. Here is my code:

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

However when I run it it gives me the error:

Varialble is undefined: 'objSysInfo'

Any solutions?

Possible duplicate of VBScript undefined variable error

user692942
– user692942

2019-02-16 09:22:11 +00:00
Commented Feb 16, 2019 at 9:22 — user692942
– user692942, Commented Feb 16, 2019 at 9:22

AHeyne · Accepted Answer · 2019-02-15 16:05:01Z

0

Option Explicit forces you to define all variables you use.

So add Dim objSysInfo above Set objSysInfo = CreateObject("WinNTSystemInfo").

answered Feb 15, 2019 at 16:05

AHeyne

3,5052 gold badges13 silver badges20 bronze badges

Sign up to request clarification or add additional context in comments.

Collectives™ on Stack Overflow

VBS Script To Open Certain Applications Depending on Computer Name

1 Answer 1

Comments

Your Answer

Linked

Hot Network Questions

Collectives™ on Stack Overflow

1 Answer 1

Comments

Your Answer

Sign up or log in

Post as a guest

Linked

Related