Fråga : Vbs skrivar hjälp

Jag har SMS-miljön, och I-förmiddagen som söker efter någon hjälp för att ta bort gammalt, paketerar från datorerna. skulle något liknande för

I en VBScript, som ska, söker efter dessa programvara på registy användare och tar bort som den finner. förmiddagen för

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

1) MsiExec.exe /X {5783F2D7-5001-0409-0002-0060B0CE6BBA} /QN /NORESTART går att kontrollera, om det finns mer applikationer som jag behöver att ta bort, men för ska dessa gör nu.

Regards, " klar "

Svar : Vbs skrivar hjälp

Hi är det egentligen att söka efter för värd paketerar först?  Vad om dig precis försök att köra uninstallen? Den skulle endast kuggning, om paketera inte fanns.

Hälsningar,

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

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

Fastställd objShell = CreateObject (”WScript.Shell”)
strResult = ”programvara uninstalled: ” & VbCrLf & stränger (21, ”=”)
För varje strCommand i arrCommands
	intReturn = objShell.Run (strCommand, 0 som, är riktiga)
	Om intReturn = 0 därefter
		strResult = strResult & VbCrLf & ”FRAMGÅNG: ” & strCommand
	Annars
		strResult = strResult & VbCrLf & ”FEL: ” & strCommand
	Avsluta om
Därefter

MsgBox strResult
Andra lösningar  
 
programming4us programming4us