run autoit functions with runas

[gcue 8]

hello.

i am trying to run FileFindFirstFile and FileFIndNextFile with RunAs either I am doing it wrong or there may be some limitations that I am not aware of.. the return values certainly do not look right - i get numbers instead of filenames.  thanks in advance!

expandcollapse popup

#RequireAdmin

#include <array.au3>
$msg_normal = 0
$msg_error = 0

$tools_dir = "\\server\pdir\subdir"

$ad_username = "uTest"
$ad_password = "pTest"

$sCmd = ' /AutoIt3ExecuteLine "FileExists(''' & $tools_dir & ''')"'
$iReturn = RunAs($ad_username, @LogonDomain, $ad_password, 0, @AutoItExe & $sCmd)
debug($iReturn)

If Not FileExists($tools_dir) Then
    MsgBox($msg_error, "Check for Updates", $tools_dir & " is not accessible.")
    Exit
EndIf

$search_path = $tools_dir & "\script*.exe"
;~ $sCmd = ' /AutoIt3ExecuteLine "FileFindFirstFile(''' & $search_path & ''')"'
$sCmd = '"' & @AutoItExe & '" /AutoIt3ExecuteLine ' & '"FileFindFirstFile(""' & $search_path & '"", "", Null)"'
$remote_prod_search = RunAs($ad_username, @LogonDomain, $ad_password, 0, @AutoItExe & $sCmd);, @ScriptDir, "runas")
debug($remote_prod_search)

If $remote_prod_search = -1 Then
    FileClose($remote_prod_search)
    MsgBox($msg_error, "Check for Updates", "Script install file cannot be found in " & $tools_dir & ".")
    Exit
EndIf

While 1
    $tCmd = ' /AutoIt3ExecuteLine "FileFindNextFile(''' & $remote_prod_search & ''')"'
    $file = RunAs($ad_username, @LogonDomain, $ad_password, 0, @AutoItExe & $tCmd);, @ScriptDir, "runas")
    If @error Then ExitLoop
    debug($file)
    $remote_prod_file = StringTrimRight($file, 4)
WEnd

FileClose($remote_prod_search)

Debug($remote_prod_file)


Func Debug($variable1 = "", $variable2 = "", $variable3 = "")

    If IsArray($variable1) Then
        _ArrayDisplay($variable1)
    Else
        If $variable2 <> "" Then
            $variable1 &= @CRLF & $variable2
        EndIf

        If $variable3 <> "" Then
            $variable1 &= @CRLF & $variable3
        EndIf

        ClipPut($variable1)
        MsgBox($msg_normal, "Debug", $variable1)
    EndIf

EndFunc   ;==>Debug

example adopted from:

[gcue 8]

any ideas?

thanks in advance

[BrewManNH 1,146]

You can't do this the way you want to. RunAs returns a PID, not a search handle to the files. What you're trying to do is impossible this way.

The best you could do is to create a separate script and use RunAs to run that one.

[gcue 8]

yea i was trying to avoid that.. o well

thank you very much!

[AdamUL 72]

You could try re-execution of your script.  This will run the whole script as a different user.  This will require re-writing your script a bit.  Here is a snippet that will help with the re-execution.  

Global $sUser = "USERNAME"
Global $sPassword = "PASSWORD"
Global $sDomain = "AD"
Global $iLogOnFlag = 0
Global $sParameters = ""

;Run as a different user.
If @UserName <> $sUser Then
    $sParameters = ""
    If Not @Compiled Then
        $sParameters = ' "' & @ScriptFullPath & '"'
    EndIf

    If RunAs($sUser, $sDomain, $sPassword, $iLogOnFlag, @AutoItExe & $sParameters) Then
        Exit
    Else
        Exit MsgBox(16 + 262144, "ERROR!", "Unable to run as " & $sUser & ".")
    EndIf
EndIf

;Put rest of the script here.

Adam