The WinOps Blog

Function GetTsVariable (ByVal strTsVariableName, ByRef strTsVariableValue)
  Dim objTSEnvironment

  On Error Resume Next
    Set objTSEnvironment = CreateObject("Microsoft.SMS.TSEnvironment")
    GetTsVariable = Err.number
  On Error GoTo 0

  If GetTsVariable=0 Then
    strTsVariableName =Trim(strTsVariableName)
    strTsVariableValue=Trim(objTSEnvironment(strTsVariableName))

    If strTsVariableValue="" Then
      TraceEvent strTsVariableName & " ts variable reading failed : TsVariable doesn't exist or is empty", "warning"
      GetTsVariable = 1
     Else
      GetTsVariable = 0
    End If
  Else
    If not objArguments.Exists(strTsVariableName) or objArguments.Item(strTsVariableName)="" Then
      TraceEvent strTsVariableName & " argument variable reading failed : Argument Variable doesn't exist or is empty", "warning"
      GetTsVariable = 1
     Else
     strTsVariableName =Trim(strTsVariableName)
     strTsVariableValue=Trim(objArguments.Item(strTsVariableName))
      GetTsVariable = 0
    End If
  End If
End Function

usage example:

toto.vbs use osdlang TS variable

TS variable osdlang=”FR” => use: toto.vbs without argument

TS variable osdlang does not exist =>use: toto.vbs with argument /osdlang:”FR”