Option Explicit
'On Error Resume Next
dim oShell, oEnv, oString, oLength, oPos

set oShell = CreateObject ("WScript.Shell")
set oEnv = oShell.Environment("System")

oString = oEnv("LM_LICENSE_FILE")
oLength = Len (oString)
oPos = InStr(oString,"1713@matlablic1.ee.byu.edu")

If oLength = 0 Then
	oEnv("LM_LICENSE_FILE") = "1713@matlablic1.ee.byu.edu"
ElseIf oPos = Null Or oPos = 0 Then
	oString = "1713@matlablic1.ee.byu.edu" & ";" & oEnv("LM_LICENSE_FILE")
	oEnv("LM_LICENSE_FILE") = oString
End If