RunAs, auto administrator

Runas jednak lekko kaleczy swoja funkcjonalnością i nie pozwala na automatyczne podanie hasła przy próbie uruchomienia aplikacji wymagających określonych uprawnień, jednym z rozwiązań jest użycie VBA. Tworzymy plik “Test.vba“, i używamy poniższego skryptu

set WshShell = CreateObject("WScript.Shell")
WshShell.Run "runas /user:Administrator /noprofile /savecred " & chr(34) & " polecenie" & chr(34)
WScript.Sleep 500
WshShell.Sendkeys "haslo~"

znak tyldy ~ oznacza koniec wiersza/enter.

WshShell.Run "runas /user:Administrator /savecred "& chr(34) &" net start spooler "& chr(34) &" "

Jeżeli istnieje konieczność użycia cudzysłowu, to można zastosować powyższy trick