Pergunta : VBscript para o psexec

Olá! All
I am que tenta usar o psexec em um certificado do início de uma sessão que desinstale o autocad em algum machines
I pode fazer o trabalho scripting manualmente em uma única estação de trabalho using um alerta do cmd com \ below do cmd

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

The eu estou tendo sou que nós temos 3 versões diferentes de que espalhado para fora sobre 50 máquinas assim que mim gostaria de usar um certificado do início de uma sessão que usasse o registro lido para considerar se 1 de 3 entradas do registro está lá e se desinstalar assim o
This é o certificado eu tenho tentado fazer 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 do " psexec “MsiExec.exe /norestart /q/x
Else

If KeyExists (“HKLM \ SOFTWARE \ MICROSOFT \ WINDOWS \ CURRENTVERSION \ UNINSTALL \ {5783F2D7-4001-0409-0002-0060B0CE6BBA} \ ") Then
{5783F2D7-4001-0409-0002-0060B0CE6BBA} REMOVE=ALL "
Else
If KeyExists (“HKLM \ SOFTWARE \ MICROSOFT \ WINDOWS \ CURRENTVERSION \ UNINSTALL \ {5783F2D7-5001-040 de/>9-0002-0060B0CE6BBA} \ ")


Function KeyExists de /q/x /norestart do psexec de Then
“MsiExec.exe {5783F2D7-5001-0409-0002-0060B0CE6BBA} REMOVE=ALL " escurece o objShell
em objShell ajustado (chave) ajustado do
do objShell de Next
do resumo do erro = do
objShell.RegRead de CreateObject chave)/> (“WScript.Shell”) = em Nothing
se erram = 0 então KeyExists = True
End If
End Function


I am não sure se eu preciso todas aquelas linhas ou mesmo se são o correct
TIA

WP class= do

Resposta : VBscript para o psexec

hey tentativa isto
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:

Opção explícita
objShell não ofuscante, objNetwork
Ajustar o objShell = o CreateObject (“WScript.Shell”)
Ajustar o objNetwork = o CreateObject (“WScript.Network”)


Se KeyExists (“HKLM \ SOFTWARE \ MICROSOFT \ WINDOWS \ CURRENTVERSION \ DESINSTALA \ {5783F2D7-7001-0409-0002-0060B0CE6BBA} \ ") então
	objShell.Run “psexec - accepteula - e - u sa \ super11 - \ de p mine$22 \” & objNetwork.ComputerName & “MsiExec.exe /norestart /q/x {5783F2D7-7001-0409-0002-0060B0CE6BBA} REMOVE=ALL”, 1, verdadeiro
ElseIf KeyExists (“HKLM \ SOFTWARE \ MICROSOFT \ WINDOWS \ CURRENTVERSION \ DESINSTALAM \ {5783F2D7-4001-0409-0002-0060B0CE6BBA} \ ") então
	objShell.Run “psexec - accepteula - e - u sa \ super11 - \ de p mine$22 \” & objNetwork.ComputerName & “MsiExec.exe /norestart /q/x {5783F2D7-4001-0409-0002-0060B0CE6BBA} REMOVE=ALL”, 1, verdadeiro
ElseIf KeyExists (“HKLM \ SOFTWARE \ MICROSOFT \ WINDOWS \ CURRENTVERSION \ DESINSTALAM \ {5783F2D7-5001-0409-0002-0060B0CE6BBA} \ ") então
	objShell.Run “psexec - accepteula - e - u sa \ super11 - \ de p mine$22 \” & objNetwork.ComputerName & “MsiExec.exe /norestart /q/x {5783F2D7-5001-0409-0002-0060B0CE6BBA} REMOVE=ALL”, 1, verdadeiro
Terminar se

		
Função KeyExists (chave)
	objShell não ofuscante
	Ajustar o objShell = o CreateObject (“WScript.Shell”)
	No erro recomeçar em seguida
	objShell.RegRead (chave)
	Se Err.number <> 0 então 
		KeyExists = falso
		Err.Clear
	Mais
		KeyExists = retifica
	Terminar se
Terminar a função
Outras soluções  
 
programming4us programming4us