Vraag : Een hulp van het vbsmanuscript

Ik heb milieu SMS en ik zoek één of andere hulp om oude pakketten uit de computers te verwijderen.

I zou van een VBScript houden die deze software op registy gebruikers zal zoeken en degenen zal verwijderen het vindt.

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

I am gaan controleren als er meer toepassingen die ik moet verwijderen maar zal voor nu deze zijn doen.

Regards,

Antwoord : Een hulp van het vbsmanuscript

Hallo, is het werkelijk de moeite waard eerst het zoeken van de pakketten?  Wat als u enkel probeert om de desinstallatie in werking te stellen? Het zou slechts ontbreken als het pakket niet bestond.

Achting,

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

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

Reeks objShell = CreateObject („WScript.Shell“)
strResult = „gedesinstalleerde Software: “ & VbCrLf & Koord (21, „=“)
Voor Elke strCommand in arrCommands
	intReturn = objShell.Run (strCommand, Ware 0,)
	Als intReturn = 0 toen
		strResult = strResult & VbCrLf & „SUCCES: “ & strCommand
	Anders
		strResult = strResult & VbCrLf & „MISLUKKING: “ & strCommand
	Eind als
Daarna

MsgBox strResult
Andere oplossingen  
 
programming4us programming4us