Questione : VBscript per psexec

Ciao All
I che prova a utilizzare lo psexec in uno scritto di inizio attività che disinstallerà il autocad su un certo machines
I può fare manualmente il lavoro scripting su una singola stazione di lavoro using un richiamo del cmd con \ sotto \ ct1.xxxxxxx.local - u ct1 \ coordinatore del cmd

psexec - problema che di p xxxxx MsiExec.exe /norestart /q/x {5783F2D7-7001-0409-0002-0060B0CE6BBA} REMOVE=ALL

The sto avendo sono che abbiamo 3 versioni differenti che distribuito fuori in 50 macchine in modo da nell'io vorrebbe per usare uno scritto di inizio attività che usa il registro colto per vedere se 1 di 3 entrate del registro è là ed in caso affermativo disinstallare il
This è lo scritto sto provando a fare work.

Option Explicit

If KeyExists (“HKLM \ SOFTWARE \ MICROSOFT \ WINDOWS \ CURRENTVERSION \ UNINSTALL \ {5783F2D7-7001-0409-0002-0060B0CE6BBA} \ ") Then
psexec.exe “MsiExec.exe /norestart /q/x {5783F2D7-7001-0409-0002-0060B0CE6BBA} REMOVE=ALL " psexec “MsiExec.exe /norestart /q/x {5783F2D7-4001-0409-0002-0060B0CE6BBA} REMOVE=ALL "
Else
If KeyExists (“HKLM \ SOFTWARE \ MICROSOFT \ WINDOWS \ CURRENTVERSION \ UNINSTALL del
Else

If KeyExists (“HKLM \ SOFTWARE \ MICROSOFT \ WINDOWS \ CURRENTVERSION \ UNINSTALL \ {5783F2D7-4001-0409-0002-0060B0CE6BBA} \ ") Then
\ {5783F2D7-5001-040 di/>9-0002-0060B0CE6BBA} \ ") il
del


Function KeyExists di /q/x /norestart {5783F2D7-5001-0409-0002-0060B0CE6BBA} dello psexec di Then
“MsiExec.exe REMOVE=ALL " oscura il objShell
sul objShell stabilito (chiave) stabilito del
del objShell di Next
del riassunto di errore = del
objShell.RegRead di CreateObject (“WScript.Shell„) = su Nothing
se errano = 0 allora KeyExists = True
End If
End Function


I non sure se ho bisogno di tutte quelle linee o persino se sono correct
TIA

WP class= del

Risposta : VBscript per psexec

hey prova questo
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:

Opzione esplicita
objShell fioco, objNetwork
Regolare il objShell = CreateObject (“WScript.Shell„)
Regolare il objNetwork = CreateObject (“WScript.Network„)


Se KeyExists (“HKLM \ SOFTWARE \ MICROSOFT \ WINDOWS \ CURRENTVERSION \ DISINSTALLANO \ {5783F2D7-7001-0409-0002-0060B0CE6BBA} \ ") allora
	objShell.Run “psexec - accepteula - e - u sa \ super11 - \ \„ di p mine$22 & objNetwork.ComputerName & “MsiExec.exe /norestart /q/x {5783F2D7-7001-0409-0002-0060B0CE6BBA} REMOVE=ALL„, 1, allineare
ElseIf KeyExists (“HKLM \ SOFTWARE \ MICROSOFT \ WINDOWS \ CURRENTVERSION \ DISINSTALLANO \ {5783F2D7-4001-0409-0002-0060B0CE6BBA} \ ") allora
	objShell.Run “psexec - accepteula - e - u sa \ super11 - \ \„ di p mine$22 & objNetwork.ComputerName & “MsiExec.exe /norestart /q/x {5783F2D7-4001-0409-0002-0060B0CE6BBA} REMOVE=ALL„, 1, allineare
ElseIf KeyExists (“HKLM \ SOFTWARE \ MICROSOFT \ WINDOWS \ CURRENTVERSION \ DISINSTALLANO \ {5783F2D7-5001-0409-0002-0060B0CE6BBA} \ ") allora
	objShell.Run “psexec - accepteula - e - u sa \ super11 - \ \„ di p mine$22 & objNetwork.ComputerName & “MsiExec.exe /norestart /q/x {5783F2D7-5001-0409-0002-0060B0CE6BBA} REMOVE=ALL„, 1, allineare
Concluder se

		
Funzione KeyExists (chiave)
	objShell fioco
	Regolare il objShell = CreateObject (“WScript.Shell„)
	Sull'errore riprendere dopo
	objShell.RegRead (chiave)
	Se Err.number <> 0 allora 
		KeyExists = falso
		Err.Clear
	Altrimenti
		KeyExists = allinea
	Concluder se
Concludere la funzione
Altre soluzioni  
 
programming4us programming4us