code:

---

 
	Run '%comspec% /c wscript x:\script\vbs\runas.vbe'
	sleep 2
	
 

---

code:

---

 Dim vbOK: vbOK = 1
Dim vbCancel: vbCancel=2
Dim Wshell, ret, msg01, msghdr01, strUser, strPass
Dim CompName: CompName="Blank"

Set WshNetwork = WScript.CreateObject("WScript.Network")
CompName =  WshNetworK.ComputerName
Set WshNetwork = nothing

function execute()
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run "%windir%\system32\runas.exe /user:" & strUser & " " & Chr(34)& "Searchpathtokix32\kix32.exe \\Server_name\folder\of\kix_script\Name_of_kix_script.kix" & Chr(34)
Wscript.Sleep 100
WshShell.AppActivate "runas"
wScript.Sleep 100
WshShell.SendKeys strPass & "~"
wScript.Sleep 100
Wscript.Quit
end function

'** Start Encode **
strUser="my_domain\admin_account"
strPass="xxxxxx"
execute()
 

---

code:

---

 screnc.exe my_vbsfile.vbs myencodedvbs.vbe 

---

quote:

---

Su.exe or scripting towards the scheduler service is not an option for my.

---