Windows 7 Executing BATH as admin

[Dampe]

Hey all, trying to automate an office 2010 install.

Working fine on XP but no-go on Win7.

Even though I am forcing admin execution, the script still refuses to actually launch the batch script as admin.

expandcollapse popup

#include <GUIConstants.au3>
#NoTrayIcon
#RequireAdmin
#NoAutoIt3Execute

$hWnd = GUICreate ("Processing..", 300, 150)
$Edit = GUICtrlCreateEdit ("Webster Computers Office 2010 Auto-Installer" & @CRLF & "Starting installation process" & @CRLF, 5, 5, 290, 140)
GUISetState (@SW_SHOW)

$TempDir = @HomeDrive & "\" & Random (1, 99999, 1)

DirCreate ($TempDir)
If @error Then
    MsgBox (48, "Error", "Could not create directory at " & $TempDir)
    Exit 0
EndIf
_LOG("Created temp directory at " & $TempDir)
_LOG("Copying files to " & $TempDir & " please wait..")
DirCopy (@ScriptDir, $TempDir, 1)
_LOG("Finished cache file copy, installing Office 2010")
If IsAdmin() Then
    $PID = Run ($TempDir & "\oemsetup.en-us.bat", $TempDir)
Else

    While 1
        $user = InputBox ("Admin-Logon", "You must be an Administrator to continue setup." & @CRlf & "Please enter your username:", "Administrator")
        $pass = InputBox ("Admin-Logon", "Please enter your password", "", "*")
        If $user <> "" AND $pass <> "" Then
            $PID = RunAs ($user, @ComputerName, $pass, 0, $TempDir & "\oemsetup.en-us.bat", $TempDir)
            If @error Then
                MsgBox (48, "Authentication Error", "You have entered an invalid username / password")
            EndIf
                ExitLoop
        EndIf
    WEnd

EndIf

While 1

    If not ProcessExists ($PID) Then
        ExitLoop
    EndIf

    Sleep (50)

WEnd

Sleep (1000)
_LOG("Installer Finished, removing Temp directory at " & $TempDir)
DirRemove ($TempDir, 1)
MsgBox (32, "Success", "Finished installing successfully")

Func _LOG($string)

    GUICtrlSetData ($Edit, GUICtrlRead ($Edit) & $string & @CRLF)
    ConsoleWrite ($string & @CRLF)

EndFunc

Edited September 23, 2010 by Dampe

[Dampe]

Nevermind, resolved.