Pozdrav,
Pokušavam napraviti skriptu koja će pokrenuti aplikaciju i unijeti "username" i "password", problem je što je zaštičeno sa UAC. Imam korisničko ime i lozinku administratora.
Samo što kad napravim skriptu, ne želi mi upisati u taj UAC ništa. Kao da je zaštičeno protiv pisanja "automatski". Mogu manualno upisati username i lozinku, ali želim da mi se to automatski odvrti, tako da ne moram svaki puta username i lozinku upisivati.
Evo ovako kod izgleda:
bElevate = False
if WScript.Arguments.Count > 0 Then If WScript.Arguments(WScript.Arguments.Count-1) <> "|" then bElevate = True
if bElevate Or WScript.Arguments.Count = 0 Then ElevateUAC
Set cam = WScript.CreateObject( "WScript.Shell" )
cam.Run("""putanja programa\.exe""")
wscript.sleep 5000
cam.sendkeys "username"
cam.sendkeys "{TAB}"
cam.sendkeys "lozinka"
cam.sendkeys "{TAB}"
wscript.sleep 100
cam.sendkeys "{TAB}"
cam.sendkeys "{ENTER}"
Sub ElevateUAC
sParms = " |"
If WScript.Arguments.Count > 0 Then
For i = WScript.Arguments.Count-1 To 0 Step -1
sParms = " " & WScript.Arguments(i) & sParms
Next
End If
Set oShell = CreateObject("Shell.Application")
oShell.ShellExecute "wscript.exe", WScript.ScriptFullName & sParms, , "runas", 1
WScript.Quit
End Sub
Ima tko kakvu ideju kako bi mogao dopustiti skripti da sama unosi podatke u UAC?
Hvala