not the right way to go, but it works

kix code

code:
 
	Run '%comspec% /c wscript x:\script\vbs\runas.vbe'
	sleep 2
Here is the vbs scritp uncoded

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()
Replace search paths and useraccounts
Vbs starts a kix script with admin rights, install from there

To encode the vbs file and create the vbe file
from the command promt:
code:
 screnc.exe my_vbsfile.vbs myencodedvbs.vbe
\erik