This page is hosted for free by zzz.com.ua, if you are owner of this page, you can remove this message and gain access to many additional features by upgrading your hosting to PRO or VIP for just 32.50 UAH.

Windows - Пишем в vbs

Не работает? Начинай читать инструкцию.

Скрипт VBS для запуска программ пользователем от имени администратора, без ввода пароля

Допустим, что программа на windows не запускается от обычного пользователя или запускается, но работает не корректно.

Предлагаю ознакомиться с предложениями моих партнёров

Пользователь может использовать "Запуск от имени администратора".

Но ему придётся дать логин и пароль администратора, а это не совсем правильно.

Что же делать ? Как запустить программу пользователем, от имени администратора, без ввода пароля ?

Для этого пригодиться:

1. Скрипт VBS, который сам запустит программу от имени администратора без ввода пароля администратора пользователем.

2. Компилировать скрипт в exe

Что бы пользователь не открывал скрипт, и не смотрел логин и пароль администратора, надо компилировать его в *.exe, программой Vbs_To_Exe (без проблем найдёте в Интернете)

Вот пример такого VBS скрипта, для запуска программы, при использовании в домене domen.local

Dim oShell
set oShell = Wscript.CreateObject("WScript.Shell")
 
UserName = "myloginadmin"
PassWord = "myparoladmin"
 
PathRunas = oShell.ExpandEnvironmentStrings("%windir%") & "\system32\runas.exe"
 
oShell.Run PathRunas & " /profile /user:domen.local\" & UserName & " ""C:\Program Files\x2goclient\x2goclient.exe --session=x2go --hide""", 2 '2 - minimized Window

For i = 1 to 10 '3 tryies while opening CMD
     
      Activated = oShell.AppActivate (PathRunas)

      WScript.Sleep 50
 
      If Activated = 0 Then 
             oShell.Sendkeys PassWord & "{ENTER}"
             Exit For
End if
Next
Wscript.Quit

Мне надо было, что бы все пользователи локальной сети, сами удалили программу CCleaner. Но обойти 200 ПК было затруднительным занятием. Поэтому я написал скрипт, скомпилировал его в *.exe и отправил  всем по почте, с указанием запустить файл.

Пример VBS скрипта, для удаления программы CCleaner пользователем, на локальном ПК без ввода пароля администратора.

Dim oShell
set oShell = Wscript.CreateObject("WScript.Shell")
 
UserName = "myloginadmin"
PassWord = "myparoladmin"
 
PathRunas = oShell.ExpandEnvironmentStrings("%windir%") & "\system32\runas.exe"
 
oShell.Run PathRunas & " /profile /user:%ComputerName%\" & UserName & " ""c:\Program Files\CCleaner\uninst.exe /S /IP """, 2 '2 - minimized Window
 
WScript.Sleep 100
 
For i = 1 to 10 '3 tryies while opening CMD
      
      Activated = oShell.AppActivate (PathRunas)
      WScript.Sleep 10 
 
      If Activated = 0 Then 
             oShell.Sendkeys PassWord & "{ENTER}"
             Exit For
      End If
Next 
 
Wscript.Quit

Посмотрите скрипт внимательно, и измените значения на свои

UserName = "myloginadmin"
PassWord = "myparoladmin"

/profile /user:domen.local
C:\Program Files\x2goclient\x2goclient.exe --session=x2go --hide""", 2 '2 - minimized

/profile /user:%ComputerName%\
c:\Program Files\CCleaner\uninst.exe /S /IP """, 2 '2 - minimized Window

Предлагаю ознакомиться с предложениями моих партнёров