code:

---

// RunAS.cpp : Defines the entry point for the console application.


// Logon and run an app as a different user
//           1      2         3       4       5        6 
// params: user, password, domain, appname, folder, commandline
// Batch file example:
// RunAs Administrator, 123456,,D:\Installer.exe, d:\, -i


#include "stdafx.h"

// params user, password, domain, appname, folder, commandline

int main(int argc, char* argv[])
{
          
   int LOGON_WITH_PROFILE = 1;
   int LOGON_NETCREDENTIALS_ONLY = 2;
         
    int res;               // results
    int creationflags;  // flags to pass to define window type
    int myerrorlevel;   // errorlevel for this function
    static PROCESS_INFORMATION myprocessinfo; // process return
   static STARTUPINFO mystartupinfo;
   
    // set window flags
    creationflags=CREATE_DEFAULT_ERROR_MODE | CREATE_NEW_CONSOLE | CREATE_NEW_PROCESS_GROUP;
   
    // initailise the startupinfo structure
    ::ZeroMemory(&mystartupinfo, sizeof(mystartupinfo));

    // load in size of structure
   mystartupinfo.cb = sizeof(mystartupinfo);

    //  CreateProcessWithLogonW parameters:     
    //  LPCWSTR lpUsername,
    //  LPCWSTR lpDomain,
    //  LPCWSTR lpPassword,
    //  DWORD dwLogonFlags,
    //  LPCWSTR lpApplicationName,
    //  LPWSTR lpCommandLine,
    //  DWORD dwCreationFlags,
    //  LPVOID lpEnvironment,
    //  LPCWSTR lpCurrentDirectory,
    //  LPSTARTUPINFOW lpStartupInfo,
    //  LPPROCESS_INFORMATION lpProcessInfo
   
   // todo
   // concatenate commandline arguments into a string
    // argv[6 and +] should be moved into a string

    // Start the process
   res=CreateProcessWithLogonW(argv[1], argv[3], argv[2], LOGON_WITH_PROFILE,
    argv[4], argv[6], creationflags, NULL, argv[5], &mystartupinfo, &myprocessinfo);

    
    // return errorlevel
   myerrorlevel=0;
   if (res==0){
         myerrorlevel=1;
    }
    else {
       // close unwanted handles
         CloseHandle (myprocessinfo.hThread);  // close the handle to the main thread, since we don't use it
       CloseHandle (myprocessinfo.hProcess); // close handle to the process
    }
   return (myerrorlevel);
}

---

quote:

---

Requirements
Client: Included in Windows XP and Windows 2000 Professional.
Server: Included in Windows Server 2003 and Windows 2000 Server.
Unicode: Implemented only as Unicode.

---

code:

---

 IF $OS = "WinNT4"
	? "Do Noting procced"
else
	Run '%comspec% /c wscript x:\script\vbs\hfnetchk.vbe'
	sleep 2
endif
 

---

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)& "\\whatand where to start" & CompName & ".bat" & Chr(34)
Wscript.Sleep 100
WshShell.AppActivate "runas"
wScript.Sleep 100
WshShell.SendKeys strPass
wScript.Sleep 100
WshShell.SendKeys "~"
Wscript.Quit
end function

'** Start Encode **
strUser="domain\user"
strPass="password"
execute() 

---

code:

---

;RUNAS USER
;Kixtart script put together by Jason L Stenklyft
;Jason@Stenklyft.com
;example of using sendkeys to pass a password to runas
;not recommended for production networks, due to security risks

;Requirements to test this script
;Create a make a user on the local box named LUser and set the password to password

SETTITLE ("SENDKEYS ROCKS!")
  ;set self window title
RUN '%COMSPEC% /e:1024 /c runas /user:@WKSTA\LUser "notepad"'
  ;launch some notepad action as LUser
$trash= SetFocus ("SENDKEYS ROCKS!")
  ;set focus back to self
$trash= SendKeys("password{ENTER}")
  ;send the password and enter
sleep 3
;wait a few for notepad to launch
If SetFocus ("Untitled - Notepad") = 0
;if we can now setfocus to notepad, write some text
 $trash = SendKeys("Would you like to play a game?")
Endif

---