Cuestión : Una ayuda de la escritura de los vbs

Tengo ambiente de SMS y estoy buscando una cierta ayuda para quitar los viejos paquetes de las computadoras. el

I quisiera un VBScript que buscará estos softwares en los usuarios registy y quitar encuentra. el

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 que va a comprobar si hay más usos que necesito quitar pero para saber si hay ahora éstos hará.

Regards, class= del

Respuesta : Una ayuda de la escritura de los vbs

¿Hola, está realmente digno de buscar los paquetes primero?  ¿Qué si usted apenas intenta funcionar el desinstalar? Fallaría solamente si no existió el paquete.

Respetos,

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

arrCommands = arsenal (_
	“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} _ de /QN /X MsiExec.exe /NORESTART”
	)

Fijar el objShell = CreateObject (“WScript.Shell”)
el strResult = “software desinstaló: ” Y VbCrLf y secuencia (21, “=")
Para cada strCommand en arrCommands
	intReturn = objShell.Run (strCommand, 0, verdades)
	Si intReturn = 0 entonces
		strResult = strResult y VbCrLf y “ÉXITO: ” y strCommand
	
		strResult = strResult y VbCrLf y “FALTA: ” y strCommand
	Terminar si
Después

strResult de MsgBox
Otras soluciones  
 
programming4us programming4us