Questione : Un aiuto dello scritto dei vbs

Ho ambiente di SMS e sto cercando un certo aiuto per rimuovere i vecchi pacchetti dai calcolatori. il

I gradirebbe un VBScript che cercherà questi software sugli utenti registy e rimuovere quei trova. il

I del
AND
3) MsiExec.exe /X {BA3B0FA5-1EAD-476B-8E8D-6569CBC3E154} /QN /NORESTART del
AND
2) MsiExec.exe /X {5783F2D7-0301-0409-0002-0060B0CE6BBA} /QN /NORESTART del

1) MsiExec.exe /X {5783F2D7-5001-0409-0002-0060B0CE6BBA} /QN /NORESTART che va controllare se ci sono le più applicazioni che devo rimuovere ma per vedere se ci sono ora questi farà.

Regards, class= del

Risposta : Un aiuto dello scritto dei vbs

Ciao, è realmente degno cercare i pacchetti in primo luogo?  Che cosa se tentate appena di fare funzionare il disinstallare? Verrebbe a mancare soltanto se il pacchetto non esistesse.

Riguardi,

Rob.
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:

arrCommands = allineamento (_
	“MsiExec.exe /X {5783F2D7-5001-0409-0002-0060B0CE6BBA} /QN /NORESTART„, _
	“MsiExec.exe /X {5783F2D7-0301-0409-0002-0060B0CE6BBA} /QN /NORESTART„, _
	“MsiExec.exe _ di /QN /X {BA3B0FA5-1EAD-476B-8E8D-6569CBC3E154} /NORESTART„
	)

Regolare il objShell = CreateObject (“WScript.Shell„)
lo strResult = “software ha disinstallato: „ & VbCrLf & stringa (21, “=")
Per ogni strCommand nei arrCommands
	intReturn = objShell.Run (strCommand, 0, allineare)
	Se intReturn = 0 allora
		strResult = strResult & VbCrLf & “SUCCESSO: „ & strCommand
	Altrimenti
		strResult = strResult & VbCrLf & “GUASTO: „ & strCommand
	Concluder se
Dopo

strResult di MsgBox
Altre soluzioni  
 
programming4us programming4us