Вопрос : Превосходно деинсталлируйте сценарий от Zoofan. Нужна дорога быстро пройти она вверх или побежать множественные машины в тоже время.

Hi,

Excellent деинсталлирует сценарий от Zoofan. Нужна дорога быстро пройти она вверх или побежать множественное
Rather машин в тоже время. чем деинсталлирующ одно после того как other

Can любое помощь с этим change

REgards
Sharath class= " ясное " >
> " codeSnippet " class=
class= " lineNumbers "
class= 
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:
>Option " class= " id= " codeSnippet743235 
 «завершило» после этого
						objOutputFile.WriteLine strReadPCfile
						objOutputFile.Close
						WScript.Quit (0)
					<> ElseIf strReadAppfile «завершенное» после этого
						objOutputFile.WriteLine strReadAppfile
						objOutputFile.Close
						WScript.Quit (0)								
					Еще
						Для каждого strPCName в arrPcnames
							arrPCappList ReDim (0)
							strConnectionTest = IsServerOn (strPCName)
							Если strConnectionTest <> «он-лайн» после этого
								strPCName objOutputFile.WriteLine & «, ошибка пока соединяющся: » & strConnectionTest
							Еще
								arrPCappList ReDim (0)
								strGetRemApps = getRemoteApps (strPCName, arrPCappList)
								Если <> «gotlist» strGetRemApps после этого
									strPCName objOutputFile.WriteLine & «, ошибка пока получающ дистанционный список применения: » & strGetRemApps
								Еще
									arrTargetApps ReDim (0)
									strCompApps = compareArray (arrUninstallApps, arrPCappList, arrTargetApps) 										 
									Если <> strCompApps «завершило» после этого
										strPCName objOutputFile.WriteLine & «, ошибка пока сравнивающ список применения: » & strCompApps
									Еще
										Если 0) <> «noAppsToDo» arrTargetApps (после этого
											Для каждого strTargetapp в arrTargetApps
											arrAppSplit = разделило (strTargetapp, ««*u*» ")
											strUnistallRet = uninstallTarget (strPCName, strTargetapp)																
												Если <> strUnistallRet «деинсталлировало» после этого
													strPCName objOutputFile.WriteLine & «, ошибка пока деинсталлировать» & arrAppSplit (0)
												Еще
													strPCName objOutputFile.WriteLine & «,» & arrAppSplit (0) & «успешно были ы»
												Закончитесь если																
											Затем
										Еще
											strPCName objOutputFile.WriteLine & «, никакие применения, котор нужно деинсталлировать.»
										Закончитесь если															
									Закончитесь если
								Закончитесь если	
							Закончитесь если
						Затем														
						objOutputFile.Close
					Закончитесь если
			Закончитесь если                                                
	Закончитесь если
WScript.Quit (0)          
 
Приватная функция readFileToArray (strTxtFile, arrname ())
Err.Clear
На резюме ошибки затем
      Тусклое intFuncErr, intFuncLines
      Тусклые objFuncTxtLines, objFuncReadFile, objFuncFso      
            Установите objFuncFso = CreateObject («Scripting.FileSystemObject»)
            Установите objFuncTxtLines = objFuncFso.GetFile (strTxtFile)
            Установите objFuncReadFile = objFuncTxtLines.OpenAsTextStream (ForReading, TristateUseDefault)
                  Не сделать до objFuncReadFile.AtEndOfStream
                        Arrname заповедника ReDim (intFuncLines)
                        arrname (intFuncLines) = objFuncReadFile.ReadLine
                        intFuncLines = intFuncLines + 1
                  Петля
            objFuncReadFile.Close
            Установите objFuncFso = ничего
            Установите objFuncTxtLines = ничего
            Установите objFuncReadFile = ничего                    
		Если <> 0 Err.Number после этого
			readFileToArray = «архив чтения ошибки: » & strTxtFile & VbCrLf & «описания: » & Err.Description		
		Еще
			readFileToArray = «завершил»
		Закончитесь если
  На ошибке переход 0
Функция конца
getRemoteApps функции (strRemotePC, arrname ())
Err.Clear
На резюме ошибки затем
Тусклое objFuncWMIService
Тусклое colFuncSoftware
Тусклое objFuncSoftware
Тусклые intFuncLines
        Установите objFuncWMIService = GetObject («winmgmts: » & «{impersonationLevel=impersonate}! \ \» & strRemotePC & «\ корень \ cimv2»)
        Установите colFuncSoftware = objFuncWMIService.ExecQuery («ВЫБЕРИТЕ * ОТ Win32_Product»)   
                Если colFuncSoftware.Count > 0 после этого
                        Для каждого objFuncSoftware в colFuncSoftware                     		
                      			arrname (intFuncLines) = objFuncSoftware.Name & ««*u*»» & objFuncSoftware.IdentifyingNumber
                      			intFuncLines = intFuncLines + 1
                      			Arrname заповедника ReDim (intFuncLines)
                        Затем
                Закончитесь если
        Если <> 0 Err.Number после этого
              getRemoteApps = Err.Description
        Еще
              getRemoteApps = «gotlist»
        Закончитесь если		                
      На ошибке переход 0                
Функция конца
Функция IsServerOn (strserver)                        
      Err.Clear
      На резюме ошибки затем
      Тусклое Testme
      Тусклое strTestConn
            Установите Testme = GetObject («winmgmts: /» & strserver & «/root/cimv2»)
                  Установите strTestConn = GetObject («winmgmts: /» & strserver & «/root/default: StdRegProv»)
                        Если <> 0 Err.Number после этого
                              IsServerOn = Err.Description
                        Еще
                              IsServerOn = «он-лайн»
                        Закончитесь если
      На ошибке переход 0
Функция конца
Приватная функция compareArray (arrOne (), arrTwo (), arrReturn ())
Err.Clear
На резюме ошибки затем
Тусклое strArrElement1
Тусклое strArrElement2
Тусклое intFuncLoop
	intFuncLoop = 0
	Для каждого strArrElement1 в arrOne
		Для каждого strArrElement2 в arrTwo
			Если strArrElement1 = strArrElement2 после этого
			arrReturn заповедника ReDim (intFuncLoop)
				arrReturn (intFuncLoop) = strArrElement2
			=intFuncLoop intFuncLoop + 1
			Закончитесь если
		Затем
	Затем
	Если arrReturn (0) = arrReturn "" после этого (0) = «noAppsToDo», то
    Если <> 0 Err.Number после этого
          compareArray = Err.Description
    Еще
          compareArray = «завершил»
    Закончитесь если	
На ошибке переход 0	
Функция конца
Приватное uninstallTarget функции (strComputer, strAppInfo)
Err.Clear
На резюме ошибки затем
Тусклое objFuncWMIService
Тусклое colFuncSoftware
Тусклое objFuncSoftware
	strAppInfo = разделило (strAppInfo, ««*u*» ")
	Установите objFuncWMIService = GetObject («winmgmts: » & «{impersonationLevel=impersonate}! \ \» & strComputer & «\ корень \ cimv2»)
	Установите colFuncSoftware = objFuncWMIService.ExecQuery («выберите * от Win32_Product где имя = «» & strAppInfo (0) & «» и IdentifyingNumber = ««& strAppInfo (1) &»» ")	
		Для каждого objFuncSoftware в colFuncSoftware
		    objFuncSoftware.Uninstall ()
		Затем
	    Если <> 0 Err.Number после этого
          uninstallTarget = Err.Description
    	Еще
          uninstallTarget = «деинсталлировало»
    	Закончитесь если			
На ошибке переход 0			
Функция конца
class=

Ответ : Превосходно деинсталлируйте сценарий от Zoofan. Нужна дорога быстро пройти она вверх или побежать множественные машины в тоже время.

То будет довольно хороший статья на раскрытии iTunes.  

Я никогда не имел вопрос побежать архив .bat от «линии передачи команд» программы SCCM.  Возможно using .bat вместо .cm d поможет разрешить ваш вопрос.

«Программа: кажется, что показывают iTunes 9.2 уточняют после того как они преуспеты с Кодим выхода 0» что клиент SCCM мог загружать и исполнить архив.  В примере ЛЕТУЧЕЙ МЫШИ windows-noob.com Кодий всегда возвращает «0» («выход 0» делает).  Так, даже если один из терпеть неудачу MSIs архив ЛЕТУЧЕЙ МЫШИ всегда будет возвращать сообщение «успеха» к клиенту SCCM.

Это будет каверзный вопрос и единственная дорога, котор я мог посмотреть в вопросы должна внести все MSI в журнал устанавливает.

Например «iTunes 9.1.1.12 .msi /qn /norestart /log c:\isdept\iTunes9.1 .1.12.log /i msiexec» создадут архив журнала когда MSI будет установлено.

Также,

UserContext = «\ АВТОРИТЕТА NT \ СИСТЕМА»;  подразумевает что клиент SCCM исполняет архив летучей мыши/cmd как местный потребитель системы.  Маловероятно что этот потребитель имеет доступ к архивам если они находятся на курсе, то UNC (по мере того как статья windows-noob.com предлагает).
Другие решения  
  •  Как я добавляю кнопки на форме PDF для того чтобы добавить/извлекаю рядки данных?
    •
  •  Шнур ошибки в блоке задвижки?
    •
  •  сколько вариант сервера SQL на одной машине
    •
  •  Внешний вид 2007 не может архивный файл открытой сети сохраненный
    •
  •  Активно директория DNS записывает вопрос
    •
  •  Отчет о доступа 2010 экспорта к CSV с коллекторами?
    •
  •  Прокладчик OCE 9400 не начинает
    •
  •  как добавить десятичное место в формуле в отчете о кристалла seagate
    •
  •  Windows XP и Мичрософт Оутлоок и проблемы установителя Windows
    •
  •  VB6 к VS2010 - консультации тренировки?
    •
     
    programming4us programming4us