Вот самый новый:
If WScript.Arguments.length =0 Then
Set objShell = CreateObject("Shell.Application")
objShell.ShellExecute "wscript.exe", Chr(34) & _
WScript.ScriptFullName & Chr(34) & " uac", "", "runas", 1
Else
Dim L2run, L2start, Login, Password, currentDirectory
currentDirectory = left(WScript.ScriptFullName,(Len(WScript.ScriptFullName))-(len(WScript.ScriptName)))
'==========================='
Login = "mylogin"
Password = "mypassword"
'==========================='
L2start = 10 '====количество секунд для запуска клиента===='
Set L2run = WScript.CreateObject("WScript.Shell")
If L2run.Run (Chr(34) & currentDirectory & "l2.exe" & Chr(34), 1) = 0 then
WScript.Sleep L2start * 1000
L2run.SendKeys Login
WScript.Sleep 50
L2run.SendKeys "{TAB}"
WScript.Sleep 50
L2run.SendKeys Password
WScript.Sleep 50
L2run.SendKeys "{ENTER}"
WScript.Sleep 2500
L2run.SendKeys "{ENTER}"
WScript.Sleep 2500
L2run.SendKeys "{ENTER}"
End if
set L2run = Nothing
End If