Вопрос : VBscript для psexec

Hi All
I am пытаясь использовать psexec в сценарии имени пользователя деинсталлирует autocad на некотором machines
I может сделать scripting работу ручно на одиночном рабочем месте using подсказка cmd с внизу \ cmd

psexec \ ct1.xxxxxxx.local - u ct1 \ администратор - проблема p, котор xxxxx MsiExec.exe /norestart /q/x {5783F2D7-7001-0409-0002-0060B0CE6BBA} REMOVE=ALL

The я имею что мы имеем 3 по-разному варианта распространено вне над 50 машинами поэтому мной хотел был для использования сценария имени пользователя использует reg прочитанные, что увидел если 1 из 3 входов reg там и если так деинсталлируйте, то
This будет сценарий, то я пытался сделать work.

Option Explicit

If KeyExists («HKLM \ СРЕДСТВО ПРОГРАММИРОВАНИЯ \ 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
Else

If KeyExists («HKLM \ СРЕДСТВА ПРОГРАММИРОВАНИЯ \ MICROSOFT \ WINDOWS \ CURRENTVERSION \ UNINSTALL \ {5783F2D7-4001-0409-0002-0060B0CE6BBA} \ ") Then
{5783F2D7-4001-0409-0002-0060B0CE6BBA} REMOVE=ALL "
Else
If KeyExists («HKLM \ СРЕДСТВО ПРОГРАММИРОВАНИЯ \ MICROSOFT \ WINDOWS \ CURRENTVERSION \ UNINSTALL \ {5783F2D7-5001-040/>9-0002-0060B0CE6BBA} \ ")



Function KeyExists /q/x /norestart psexec Then
«MsiExec.exe {5783F2D7-5001-0409-0002-0060B0CE6BBA} REMOVE=ALL " (ключевое) затемняет objShell
на objShell
objShell Next
резюма ошибки установленном =
objShell.RegRead CreateObject («WScript.Shell») (ключевом) установленном = Nothing
если заблуждаются = 0 после этого KeyExists = True
End If
End Function


I am конечно, то если мне нужны всеми теми линиями или даже если они будет correct
TIA

WP class=

Ответ : VBscript для psexec

hey попытка это
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:

Вариант точный
Тусклое objShell, objNetwork
Установите objShell = CreateObject («WScript.Shell»)
Установите objNetwork = CreateObject («WScript.Network»)


Если KeyExists («HKLM \ СРЕДСТВО ПРОГРАММИРОВАНИЯ \ МАЙКРОСОФТ \ WINDOWS \ CURRENTVERSION \ ДЕИНСТАЛЛИРУЙТЕ \ {5783F2D7-7001-0409-0002-0060B0CE6BBA} \ ") после этого
	objShell.Run «psexec - accepteula - e - u sa \ super11 - \ p mine$22 \» & objNetwork.ComputerName & «MsiExec.exe /norestart /q/x {5783F2D7-7001-0409-0002-0060B0CE6BBA} REMOVE=ALL», 1, поистине
ElseIf KeyExists («HKLM \ СРЕДСТВО ПРОГРАММИРОВАНИЯ \ МАЙКРОСОФТ \ WINDOWS \ CURRENTVERSION \ ДЕИНСТАЛЛИРУЙТЕ \ {5783F2D7-4001-0409-0002-0060B0CE6BBA} \ ") после этого
	objShell.Run «psexec - accepteula - e - u sa \ super11 - \ p mine$22 \» & objNetwork.ComputerName & «MsiExec.exe /norestart /q/x {5783F2D7-4001-0409-0002-0060B0CE6BBA} REMOVE=ALL», 1, поистине
ElseIf KeyExists («HKLM \ СРЕДСТВО ПРОГРАММИРОВАНИЯ \ МАЙКРОСОФТ \ WINDOWS \ CURRENTVERSION \ ДЕИНСТАЛЛИРУЙТЕ \ {5783F2D7-5001-0409-0002-0060B0CE6BBA} \ ") после этого
	objShell.Run «psexec - accepteula - e - u sa \ super11 - \ p mine$22 \» & objNetwork.ComputerName & «MsiExec.exe /norestart /q/x {5783F2D7-5001-0409-0002-0060B0CE6BBA} REMOVE=ALL», 1, поистине
Закончитесь если

		
Функция KeyExists (ключ)
	Тусклое objShell
	Установите objShell = CreateObject («WScript.Shell»)
	На ошибке возобновьте затем
	objShell.RegRead (ключ)
	Если Err.number <> 0 после этого 
		KeyExists = ложно
		Err.Clear
	Еще
		KeyExists = True
	Закончитесь если
Закончите функцию
Другие решения  
  •  Как я добавляю кнопки на форме PDF для того чтобы добавить/извлекаю рядки данных?
    •
  •  Шнур ошибки в блоке задвижки?
    •
  •  сколько вариант сервера SQL на одной машине
    •
  •  Внешний вид 2007 не может архивный файл открытой сети сохраненный
    •
  •  Активно директория DNS записывает вопрос
    •
  •  Отчет о доступа 2010 экспорта к CSV с коллекторами?
    •
  •  Прокладчик OCE 9400 не начинает
    •
  •  как добавить десятичное место в формуле в отчете о кристалла seagate
    •
  •  Windows XP и Мичрософт Оутлоок и проблемы установителя Windows
    •
  •  VB6 к VS2010 - консультации тренировки?
    •
     
    programming4us programming4us