-
Notifications
You must be signed in to change notification settings - Fork 1
/
Dump_TS_vars.vbs
125 lines (53 loc) · 2.17 KB
/
Dump_TS_vars.vbs
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
On error resume next
Set wshShell = CreateObject( "WScript.Shell")
Set env = wshShell.Environment("System")
Set env1 = CreateObject("Microsoft.SMS.TSEnvironment")
If Err Then
wscript.echo "TS Environment not availble"
wscript.echo "The script can only be used while the Task Sequence components are loaded"
wscript.quit()
End if
If Wscript.Arguments.Count = 0 Then
wscript.echo "No first letter(s) of variable provided so showing all"
wscript.echo "list all environment variables"
For Each strItem In env
WScript.Echo strItem
Next
wscript.echo "list all TS variables"
For each v in env1.GetVariables
WScript.Echo v & " = " & env1(v)
Next
Else
If Wscript.Arguments.Count > 0 Then
VarLetter=WScript.Arguments.Item(0)
If Len(Varletter) = 1 Then
wscript.echo "list all environment variables starting with: " & Varletter
For Each strItem In env
If Ucase(Left(strItem,1)) = Ucase(Varletter) Then
WScript.Echo strItem
End if
Next
wscript.echo "list all TS variables starting with: " & Varletter
For each v in env1.GetVariables
If Ucase(Left(v,1)) = Ucase(Varletter) Then
WScript.Echo v & " = " & env1(v)
End if
Next
Else
wscript.echo "list variable: " &Varletter
varlen=Len(Varletter)
For Each strItem In env
If Ucase(Left(strItem,varlen)) = Ucase(Varletter) Then
WScript.Echo strItem
End if
Next
wscript.echo "list TS variable: " &Varletter
varlen=Len(Varletter)
For each v in env1.GetVariables
If Ucase(Left(v,varlen)) = Ucase(Varletter) Then
WScript.Echo v & " = " & env1(v)
End if
Next
End if
End If
End If