class= " lineNumbers " do
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:
126:
127:
128:
129:
130:
131:
132:
133:
134:
135:
136:
137:
138:
139:
140:
141:
142:
143:
144:
145:
146:
147:
148:
149:
150:
151:
152:
153:
154:
155:
156:
157:
158:
159:
160:
161:
162:
163:
164:
165:
166:
167:
168:
169:
170:
171:
172:
173:
174:
175:
176:
177:
178:
179:
180:
181:
182:
183:
184:
185:
186:
187:
188:
189:
190:
191:
192:
193:
194:
195:
196:
197:
198:
199:
200:
201:
202:
203:
204:
205:
206:
207:
208:
209:
210:
211:
|
class= do
>Option notpretty " do class= " do id= " codeSnippet743235 do “terminou” então
objOutputFile.WriteLine strReadPCfile
objOutputFile.Close
WScript.Quit (0)
<> strReadAppfile de ElseIf “terminado” então
objOutputFile.WriteLine strReadAppfile
objOutputFile.Close
WScript.Quit (0)
Mais
Para cada strPCName nos arrPcnames
arrPCappList de ReDim (0)
mais strConnectionTest = IsServerOn (strPCName)
Se o <> o mais strConnectionTest “em linha” então
strPCName de objOutputFile.WriteLine & “, erro ao conetar: ” & mais strConnectionTest
Mais
arrPCappList de ReDim (0)
strGetRemApps = getRemoteApps (strPCName, arrPCappList)
Se <> “gotlist” dos strGetRemApps então
strPCName de objOutputFile.WriteLine & “, erro ao começ a lista remota da aplicação: ” & strGetRemApps
Mais
arrTargetApps de ReDim (0)
strCompApps = compareArray (arrUninstallApps, arrPCappList, arrTargetApps)
Se o <> dos strCompApps “terminou” então
strPCName de objOutputFile.WriteLine & “, erro ao comparar a lista da aplicação: ” & strCompApps
Mais
Se 0) <> “noAppsToDo” dos arrTargetApps (então
Para cada strTargetapp nos arrTargetApps
arrAppSplit = separação (strTargetapp, ““*u*” ")
strUnistallRet = uninstallTarget (strPCName, strTargetapp)
Se o <> do strUnistallRet “desinstalou” então
strPCName de objOutputFile.WriteLine & “, erro ao desinstalar” & ao arrAppSplit (0)
Mais
o strPCName de objOutputFile.WriteLine & “,” & o arrAppSplit (0) & “foram desinstalados com sucesso”
Terminar se
Em seguida
Mais
strPCName de objOutputFile.WriteLine & “, nenhuma aplicação a desinstalar.”
Terminar se
Terminar se
Terminar se
Terminar se
Em seguida
objOutputFile.Close
Terminar se
Terminar se
Terminar se
WScript.Quit (0)
Função confidencial readFileToArray (strTxtFile, arrname ())
Err.Clear
No resumo do erro em seguida
intFuncErr não ofuscante, intFuncLines
objFuncTxtLines não ofuscantes, objFuncReadFile, objFuncFso
Ajustar o objFuncFso = o CreateObject (“Scripting.FileSystemObject”)
Ajustar os objFuncTxtLines = o objFuncFso.GetFile (strTxtFile)
Ajustar objFuncReadFile = objFuncTxtLines.OpenAsTextStream (ForReading, TristateUseDefault)
Fazer até objFuncReadFile.AtEndOfStream
Arrname da conserva de ReDim (intFuncLines)
arrname (intFuncLines) = objFuncReadFile.ReadLine
intFuncLines = intFuncLines + 1
Laço
objFuncReadFile.Close
Ajustar o objFuncFso = nada
Ajustar objFuncTxtLines = nada
Ajustar objFuncReadFile = nada
Se <> 0 de Err.Number então
readFileToArray = do “lima da leitura erro: ” & strTxtFile & VbCrLf & “descrição: ” & Err.Description
Mais
readFileToArray = “terminou”
Terminar se
No erro 0 empreendedores
Função do fim
getRemoteApps da função (strRemotePC, arrname ())
Err.Clear
No resumo do erro em seguida
objFuncWMIService não ofuscante
colFuncSoftware não ofuscante
objFuncSoftware não ofuscante
intFuncLines não ofuscantes
Ajustar o objFuncWMIService = o GetObject (“winmgmts: ” & “{impersonationLevel=impersonate}! \ \” & strRemotePC & “\ raiz \ cimv2”)
Ajustar o colFuncSoftware = o objFuncWMIService.ExecQuery (“SELECIONAR * de Win32_Product”)
Se colFuncSoftware.Count > 0 então
Para cada objFuncSoftware no colFuncSoftware
arrname (intFuncLines) = objFuncSoftware.Name & ““*u*”” & objFuncSoftware.IdentifyingNumber
intFuncLines = intFuncLines + 1
Arrname da conserva de ReDim (intFuncLines)
Em seguida
Terminar se
Se <> 0 de Err.Number então
getRemoteApps = Err.Description
Mais
getRemoteApps = “gotlist”
Terminar se
No erro 0 empreendedores
Função do fim
Função IsServerOn (strserver)
Err.Clear
No resumo do erro em seguida
Testme não ofuscante
strTestConn não ofuscante
Ajustar Testme = GetObject (“winmgmts: /” & strserver & “/root/cimv2”)
Ajustar o strTestConn = o GetObject (“winmgmts: /” & strserver & “/root/default: StdRegProv”)
Se <> 0 de Err.Number então
IsServerOn = Err.Description
Mais
IsServerOn = “em linha”
Terminar se
No erro 0 empreendedores
Função do fim
Função confidencial compareArray (arrOne (), arrTwo (), arrReturn ())
Err.Clear
No resumo do erro em seguida
strArrElement1 não ofuscante
strArrElement2 não ofuscante
intFuncLoop não ofuscante
intFuncLoop = 0
Para cada strArrElement1 no arrOne
Para cada strArrElement2 no arrTwo
Se strArrElement1 = strArrElement2 então
arrReturn da conserva de ReDim (intFuncLoop)
arrReturn (intFuncLoop) = strArrElement2
=intFuncLoop do intFuncLoop + 1
Terminar se
Em seguida
Em seguida
Se arrReturn (0) = arrReturn do "" então (0) = “noAppsToDo”
Se <> 0 de Err.Number então
compareArray = Err.Description
Mais
compareArray = “terminou”
Terminar se
No erro 0 empreendedores
Função do fim
uninstallTarget confidencial da função (strComputer, strAppInfo)
Err.Clear
No resumo do erro em seguida
objFuncWMIService não ofuscante
colFuncSoftware não ofuscante
objFuncSoftware não ofuscante
strAppInfo = separação (strAppInfo, ““*u*” ")
Ajustar o objFuncWMIService = o GetObject (“winmgmts: ” & “{impersonationLevel=impersonate}! \ \” & strComputer & “\ raiz \ cimv2”)
Ajustar o colFuncSoftware = o objFuncWMIService.ExecQuery (“selecionar * de Win32_Product onde nome = “” & strAppInfo (0) & “” e IdentifyingNumber = ““& strAppInfo (1) &”” ")
Para cada objFuncSoftware no colFuncSoftware
objFuncSoftware.Uninstall ()
Em seguida
Se <> 0 de Err.Number então
uninstallTarget = Err.Description
Mais
o uninstallTarget = “desinstalou”
Terminar se
No erro 0 empreendedores
Função do fim
|