Question : VBscript pour le psexec

Salut All
I AM essayant d'employer le psexec dans un manuscrit d'ouverture qui désinstallera l'autocad sur un certain machines
I peut faire le travail scripting manuellement sur un monoposte using un message de sollicitation de cmd avec \ below du cmd

psexec \ ct1.xxxxxxx.local - u ct1 \ administrateur - problème de p xxxxx MsiExec.exe /norestart /q/x {5783F2D7-7001-0409-0002-0060B0CE6BBA} REMOVE=ALL

The que j'ai est que nous avons 3 versions différentes qu'étendu plus de 50 machines ainsi je voudrais pour employer un manuscrit d'ouverture qui emploie le repérage lu pour voir si 1 de 3 entrées de repérage est là et si désinstaller ainsi le
This est le manuscrit j'avais essayé de faire work.

Option Explicit

If KeyExists (« HKLM \ LOGICIEL \ 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 \ LOGICIEL \ MICROSOFT \ WINDOWS \ CURRENTVERSION \ UNINSTALL du "
Else

If KeyExists (« HKLM \ LOGICIEL \ MICROSOFT \ WINDOWS \ CURRENTVERSION \ UNINSTALL \ {5783F2D7-4001-0409-0002-0060B0CE6BBA} \ ") Then
\ {5783F2D7-5001-040 de/>9-0002-0060B0CE6BBA} \ ") le


Function KeyExists de /q/x /norestart de psexec de Then
« MsiExec.exe {5783F2D7-5001-0409-0002-0060B0CE6BBA} REMOVE=ALL " obscurcissent l'objShell
sur l'objShell réglé (principal) réglé du
d'objShell de Next
de résumé d'erreur = de
objShell.RegRead de CreateObject principal)/> (« WScript.Shell ») = le Nothing
si errent = 0 puis KeyExists = True
End If
End Function


I AM pas sure si j'ai besoin de toutes ces lignes ou même si elles sont le correct
TIA

WP class= de

Réponse : VBscript pour le psexec

hé essai ceci
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 :

Option explicite
Faible objShell, objNetwork
Placer l'objShell = le CreateObject (« WScript.Shell »)
Placer l'objNetwork = le CreateObject (« WScript.Network »)


Si KeyExists (« HKLM \ LOGICIEL \ MICROSOFT \ WINDOWS \ CURRENTVERSION \ DÉSINSTALLE \ {5783F2D7-7001-0409-0002-0060B0CE6BBA} \ ") puis
	objShell.Run « psexec - accepteula - e - u SA \ super11 - \ de p mine$22 \ » et objNetwork.ComputerName et « MsiExec.exe /norestart /q/x {5783F2D7-7001-0409-0002-0060B0CE6BBA} REMOVE=ALL », 1, vrai
ElseIf KeyExists (« HKLM \ LOGICIEL \ MICROSOFT \ WINDOWS \ CURRENTVERSION \ DÉSINSTALLENT \ {5783F2D7-4001-0409-0002-0060B0CE6BBA} \ ") puis
	objShell.Run « psexec - accepteula - e - u SA \ super11 - \ de p mine$22 \ » et objNetwork.ComputerName et « MsiExec.exe /norestart /q/x {5783F2D7-4001-0409-0002-0060B0CE6BBA} REMOVE=ALL », 1, vrai
ElseIf KeyExists (« HKLM \ LOGICIEL \ MICROSOFT \ WINDOWS \ CURRENTVERSION \ DÉSINSTALLENT \ {5783F2D7-5001-0409-0002-0060B0CE6BBA} \ ") puis
	objShell.Run « psexec - accepteula - e - u SA \ super11 - \ de p mine$22 \ » et objNetwork.ComputerName et « MsiExec.exe /norestart /q/x {5783F2D7-5001-0409-0002-0060B0CE6BBA} REMOVE=ALL », 1, vrai
Finir si

		
Fonction KeyExists (clef)
	Faible objShell
	Placer l'objShell = le CreateObject (« WScript.Shell »)
	Sur l'erreur reprendre après
	objShell.RegRead (clef)
	Si Err.number <> 0 puis 
		KeyExists = faux
		Err.Clear
	Autrement
		KeyExists = rectifient
	Finir si
Finir la fonction
Autres solutions  
  •  MS Excel 2007 et pdf - l'exportation vers le pdf prend de longues heures !
    •
  •  Dans le Perl, comment j'ajoute une valeur à la liste, puis le contrôle pour voir si la valeur existent avant d'ajouter une nouvelle valeur
    •
  •  Comment fais j'initialiser de la HP BL460c G6 de san et de la HP XP 240000
    •
  •  Comment fais j'employer une clef de permis de volume sur un ordinateur de HP avec du CD de restauration
    •
  •  Emplacement primaire de deux SCCM dans l'annuaire actif
    •
  •  L'initiateur et la HP D2D de l'iSCSI R2 du serveur 2008 de Windows GERCENT l'issue
    •
  •  Stocker le dossier dans le mysql using connector.net et le champ de goutte
    •
  •  Carte vidéo d'USB - bit 32 sur le matériel travaillant au niveau du bit 64 ?
    •
  •  asp.net que j'essaye de convertir une forme de HTML en forme d'aspx ou ? ce qui jamais. Aide du besoin sur la façon dont à à elle.
    •
  •  Winzip 12 issues de secours du travail ?
    •
     
    programming4us programming4us