RunAs & msi

Hiho,

ich wollte ein minitool schreiben, mit dem ich schnell sachen installieren kann.
ich starte das script, suche eine datei aus und diese wird mit admin-rechten gestartet.

exe-dateien gehen, .msi aber zB nicht. kann man das irgendwie einbauen?

RunAs($sUserName, @ComputerName, $sPassword, 0, FileOpenDialog("Run as Admin", "", "All (*.*)"), @SystemDir)

Zitat von oliverh

rechtsklick auf die datei -> ausführen als...

hat windoof doch schon integriert

1. geht das bei msi-dateien genau so wenig, wie in meinem script
2. will ich nicht immer das pw eingeben

genau weil ich darauf kein bock habe, will ich es ja anders machen =)

thx funkey, werds mal testen =)

funkey

deine Variante geht leider nicht.

gibt es nicht ShellExecuteAs oder sowas =)

das sollte heißen, dass nix passiert.
bei deinem code passiert zwar was, aber leider immer die meldung, dass das installationspaket nicht geöffnet werden konnte.

also hilft mir das leider auch nicht ganz weiter, denn wenn ich die datei mit ner admin-cmd ausführe, gehts (also msi-datei ist nicht defekt, habe auch mehrere probiert).

FileDelete(@TempDir & "\runmsi.bat")
$sCmdFile = '@echo off' & @CRLF _
& '"' & $File & '"' & @CRLF _
& 'del ' & @TempDir & '\runmsi.bat'
FileWrite(@TempDir & "\runmsi.bat", $sCmdFile)
RunAs($data[0], @ComputerName, $data[1], 0, "runmsi.bat", @TempDir)

Hallo, habe es jetzt mal so probiert.
wenn ich die batch datei mit admin-cmd ausführe, funzt das ... leider funktioniert hier der runas befehl iwie nicht, wobei ich nicht weiss, wieso?

ein anderer teil des tools sieht so aus und geht:

RunAs($data[0], @ComputerName, $data[1], 0, @ComSpec, @SystemDir)

nee, das ist es nicht, es ist komisch.

hier mal das ganze script:

Func _RunAs()
$File = FileOpenDialog("File", @DesktopCommonDir, "Executables (*.exe;*.msi;*.bat;*.cmd)")
If Not $File = "" Or @error Then
$Split = _PathSplit1($File)
If Not @error Then
If $Split[7] = "msi" Then
FileDelete(@TempDir & "\runmsi.bat")
$sCmdFile = '@echo off' & @CRLF _
& '"' & $File & '"' & @CRLF _
& 'del ' & @TempDir & '\runmsi.bat'
FileWrite(@TempDir & "\runmsi.bat", $sCmdFile)
$File = @TempDir & "\runmsi.bat"
EndIf

$Split = _PathSplit1($File)
If Not @error Then
_GetData()
$r = RunAs($data[0], @ComputerName, $data[1], 0, $Split[5], $Split[2])
MsgBox(0, $r & @CRLF & @error, $data[0] & @CRLF & $data[1] & @CRLF & $Split[5] & @CRLF & $Split[2])
EndIf
EndIf
EndIf
_ClearData()
EndFunc

ich habe es jetzt so umgeschrieben, das für msi-dateien eine bat erstellt wird und diese von der normalen routine ausgeführt wird.
die normale routine funktioniert bei exe, bat und cmd supi.

die msi-routine funktioniert aber auch im oben genannten bsp. nicht. die bat wird erstellt, aber runas gibt nen fehler zurück. führe ich aber die bat in der normaler routine per hand aus, funktioniert das auch. also syntay fehler gibt es wohl nicht, aber wo liegt der hund begraben???

geschafft ...

bei msi sollte wohl bei RunAs der ganze Pfad, anstatt nur das File stehen.

so geht es auf jeden Fall:

Func _RunAs()
$File = FileOpenDialog("File", @DesktopCommonDir, "Executables (*.exe;*.msi;*.bat;*.cmd)")
If Not $File = "" Or @error Then
$Split = _PathSplit1($File)
If Not @error Then
_GetData()
If $Split[7] = "msi" Then
FileDelete(@TempDir & "\runmsi.bat")
$sCmdFile = '@echo off' & @CRLF _
& '"' & $File & '"' & @CRLF _
& 'del ' & @TempDir & '\runmsi.bat'
FileWrite(@TempDir & "\runmsi.bat", $sCmdFile)
$File = @TempDir & "\runmsi.bat"
RunAs($data[0], @ComputerName, $data[1], 0, $File, @TempDir)
Exit
Else
RunAs($data[0], @ComputerName, $data[1], 0, $Split[5], $Split[2])
EndIf
EndIf
EndIf
_ClearData()
EndFunc