vbScript - Get running environment

The following vbScript Function delivers the value true if the script runs within a task sequence environment. If not the functions delivers the value false. This function can be useful in scripts like wrapper and so on.

view plainprint?

1. ...  
2. If RunningInTaskSequence = True Then  
3. ...  
4.   
5. Function RunningInTaskSequence()  
6.  On Error Resume Next  
7.  Err.Clear  
8.    Dim objTSEnv : Set objTSEnv = CreateObject("Microsoft.SMS.TSEnvironment")  
9.  If Err Then  
10.   'Script does not run within the Task Sequence environment  
11.      RunningInTaskSequence = False  
12.  Else  
13.   'Script does run within the Task Sequence environment  
14.   RunningInTaskSequence = True  
15.  End If  
16.  On Error GoTo 0  
17. End Function  

...
If RunningInTaskSequence = True Then
...

Function RunningInTaskSequence()
 On Error Resume Next
 Err.Clear
   Dim objTSEnv : Set objTSEnv = CreateObject("Microsoft.SMS.TSEnvironment")
 If Err Then
  'Script does not run within the Task Sequence environment
     RunningInTaskSequence = False
 Else
  'Script does run within the Task Sequence environment
  RunningInTaskSequence = True
 End If
 On Error GoTo 0
End Function