Fråga : Utmärkt uninstall skrivar från Zoofan. Behöv a långt att rusa upp det, eller körningsmultipeln bearbetar med maskin samtidigt.

Hi

Excellent uninstall skrivar från Zoofan. Behöv a långt att rusa upp det, eller körningsmultipeln bearbetar med maskin på den samma time.Rather än uninstalling en efter other
Can någon hjälp med denna change

REgards
Sharath > för

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:

" codeBody " " >Option för class= " för ”avslutade” därefter strReadPCfile objOutputFile.WriteLine objOutputFile.Close WScript.Quit (0) ElseIf strReadAppfile <> ”som därefter avslutas” strReadAppfile objOutputFile.WriteLine objOutputFile.Close WScript.Quit (0) Annars För varje strPCName i arrPcnames ReDim arrPCappList (0) mest strConnectionTest = IsServerOn (strPCName) Om mest strConnectionTest <> ”direktanslutet” därefter objOutputFile.WriteLine-strPCName & ”, felet fördriver att förbinda: ” & mest strConnectionTest Annars ReDim arrPCappList (0) strGetRemApps = getRemoteApps (strPCName, arrPCappList) Om strGetRemApps<> ”gotlist” därefter objOutputFile.WriteLine-strPCName & ”, felstunder som får avlägsen applikation, listar: ” & strGetRemApps Annars ReDim arrTargetApps (0) strCompApps = compareArray (arrUninstallApps, arrPCappListen, arrTargetApps) Om strCompApps<> ”avslutade” därefter objOutputFile.WriteLine-strPCName & ”, felstunder som jämför applikation, listar: ” & strCompApps Annars Om 0) <> ”noAppsToDo” för arrTargetApps (därefter För varje strTargetapp i arrTargetApps arrAppSplit = splittring (strTargetapp, ””*u*””) strUnistallRet = uninstallTarget (strPCName, strTargetapp) Om strUnistallRet<> ”uninstalled” därefter objOutputFile.WriteLine-strPCName & ”, felstunder som uninstalling”, & arrAppSplit (0) Annars objOutputFile.WriteLine-strPCName & ”,” & arrAppSplit (0) & ”uninstalled lyckat”, Avsluta om Därefter Annars objOutputFile.WriteLine-strPCName & ”, inga applikationer som ska uninstalls.”, Avsluta om Avsluta om Avsluta om Avsluta om Därefter objOutputFile.Close Avsluta om Avsluta om Avsluta om WScript.Quit (0) Privat fungera readFileToArray (strTxtFile, arrname ()) Err.Clear På felmeritförteckning därefter Dunkel intFuncErr, intFuncLines Dunkla objFuncTxtLines som är objFuncReadFile, objFuncFso Fastställd objFuncFso = CreateObject (”Scripting.FileSystemObject”) Fastställda objFuncTxtLines = (strTxtFile) objFuncFso.GetFile, Fastställdt objFuncReadFile = objFuncTxtLines.OpenAsTextStream (ForReading, TristateUseDefault) Gör till objFuncReadFile.AtEndOfStream ReDim syltarrname (intFuncLines) arrname (intFuncLines) = objFuncReadFile.ReadLine intFuncLines = intFuncLines + 1 Kretsa objFuncReadFile.Close Fastställd objFuncFso = ingenting Fastställda objFuncTxtLines = ingenting Fastställdt objFuncReadFile = ingenting Om Err.Number-<> 0 därefter readFileToArray = ”felläsning sparar: ” & strTxtFile & VbCrLf & ”beskrivning: ” & Err.Description Annars readFileToArray = ”avslutade”, Avsluta om På fel GoTo 0 Avsluta fungerar Fungera getRemoteApps (strRemotePC, arrname ()) Err.Clear På felmeritförteckning därefter Dunkel objFuncWMIService Dunkel colFuncSoftware Dunkel objFuncSoftware Dunkla intFuncLines Fastställd objFuncWMIService = GetObject (”winmgmts: ” & ”{impersonationLevel=impersonate}! \ \” & strRemotePC & ”\ rotar \ cimv2”) Fastställd colFuncSoftware = objFuncWMIService.ExecQuery (”VÄLJ * FRÅN Win32_Product”), Om colFuncSoftware.Count > 0 därefter För varje objFuncSoftware i colFuncSoftware arrname (intFuncLines) = objFuncSoftware.Name & ””*u*”” & objFuncSoftware.IdentifyingNumber intFuncLines = intFuncLines + 1 ReDim syltarrname (intFuncLines) Därefter Avsluta om Om Err.Number-<> 0 därefter getRemoteApps = Err.Description Annars getRemoteApps = ”gotlist”, Avsluta om På fel GoTo 0 Avsluta fungerar Fungera IsServerOn (strserver) Err.Clear På felmeritförteckning därefter Dunkla Testme Dunkel strTestConn Fastställda Testme = GetObject (”winmgmts: /” & strserver & ”/root/cimv2”) Fastställd strTestConn = GetObject (”winmgmts: /” & strserver & ”/root/default: StdRegProv”) Om Err.Number-<> 0 därefter IsServerOn = Err.Description Annars IsServerOn = ”direktanslutet”, Avsluta om På fel GoTo 0 Avsluta fungerar Privat fungera compareArray (arrOne (), arrTwoen (), arrReturn ()) Err.Clear På felmeritförteckning därefter Dunkel strArrElement1 Dunkel strArrElement2 Dunkel intFuncLoop intFuncLoop = 0 För varje strArrElement1 i arrOne För varje strArrElement2 i arrTwo Om strArrElement1 = strArrElement2 därefter ReDim syltarrReturn (intFuncLoop) arrReturn (intFuncLoop) = strArrElement2 intFuncLoop=intFuncLoop + 1 Avsluta om Därefter Därefter Om arrReturn (0) = arrReturn för "" därefter (0) = ”noAppsToDo”, Om Err.Number-<> 0 därefter compareArray = Err.Description Annars compareArray = ”avslutade”, Avsluta om På fel GoTo 0 Avsluta fungerar Privat fungera uninstallTarget (strComputer, strAppInfoen) Err.Clear På felmeritförteckning därefter Dunkel objFuncWMIService Dunkel colFuncSoftware Dunkel objFuncSoftware strAppInfo = splittring (strAppInfo, ””*u*””) Fastställd objFuncWMIService = GetObject (”winmgmts: ” & ”{impersonationLevel=impersonate}! \ \” & strComputer & ”\ rotar \ cimv2”) Fastställd colFuncSoftware = objFuncWMIService.ExecQuery (”välj * från Win32_Product var känt = ”” & strAppInfo (0) & ”” och IdentifyingNumber = ””& strAppInfo (1) &”” ”) För varje objFuncSoftware i colFuncSoftware objFuncSoftware.Uninstall () Därefter Om Err.Number-<> 0 därefter uninstallTarget = Err.Description Annars uninstallTarget = ”uninstalled”, Avsluta om På fel GoTo 0 Avsluta fungerar " klar "

Svar : Utmärkt uninstall skrivar från Zoofan. Behöv a långt att rusa upp det, eller körningsmultipeln bearbetar med maskin samtidigt.

Det är en nätt bra artikel på iTunesutplacering.  

Jag har aldrig haft en utfärdaskötsel en .bat att spara från ”befaller fodrar” av ett SCCM-program.  Kanske using .bat i stället för .cm D ska hjälp löser ditt utfärdar.

”Program: iTunes 9.2 uppdaterar efterföljande med går ut kodifierar 0” verkar för att indikera att SCCM-beställaren var kompetent att nedladda och utföra spara.  I det windows-noob.com SLAGTRÄexemplet kodifiera går alltid ”0 tillbaka” (som är vad ”gå ut 0” gör).  Så, om även en av den MSIs kuggningen SLAGTRÄET sparar ska alltid retur ”framgång meddelande till SCCM-beställaren.

Detta är ett knepigt utfärdar, och det enda långt har jag varit kompetent att se in i utfärdar ska logga alla av MSI installerar.

Till exempel ”msiexec/i iTunes som 9.1.1.12 .msi /qn /norestart /log ska c:\isdept\iTunes9.1 .1.12.log” skapar en logga, sparar när MSIEN installeras.

Också,

UserContext = ”NT-MYNDIGHETS\ \ SYSTEM”;  antyder att SCCM-beställaren utför slagträet/cmden sparar som lokalsystemanvändaren.  Det är osannolikt att denna användare har att ta fram till sparar, om de är på en UNC-bana (som den windows-noob.com artikeln föreslår).