Starting lnk-Files with "RunAs"

[wpz]

Hi supporters,

I am logged on as a normal User and I want to start serveral Admin-Tools with my Dom-Admin-Credentials. Therfore I tried to use this code:

$ret = RunAs ( $USER, $DOMAIN, $PW, 1, $CmdLine[1], @ScriptDir )

; The $variables are filled correctly!

This is working fine, if I let from the explorer the real exe-file fall onto the compiled AutoItScript-Icon. But unfortunately on my desktop are only the links (lnk-files) for the admin-tools and if I draw one of this lnk-Files to the AutoIt-RunAs-Programm-Shortcut nothing happens.

Do you have any idea how I can get this problem solved?

Thanks a lot

Wolfgang

[jvanegmond]

http://www.autoitscript.com/forum/index.php?showtopic=33098

[AdmiralAlkex]

I would do a check with StringRight() to see if it is a lnk and if it is use FileGetShortcut() to get the real paths.

Something like this

If StringRight(string, 4) = ".lnk" then
$car = FileGetShortcut()
Run($car)
Else
Run(string)

Pseudocode FTW

[GEOSoft]

Here is some example usage of a function I use for shortcuts since FileGetShortcut() does not work with .url files.

ClipPut("")
$hSearch = FileFindFirstFile(@DesktopDir & "\*")
If $hSearch <> -1 Then
    While 1
        $sFile = FileFindNextFile($hSearch)
        If @Error Then ExitLoop
        ClipPut(ClipGet() & _GetShortcut($sFile) & @CRLF)
    WEnd
    FileClose($hSearch)
EndIf

Func _GetShortcut($sCheck) ;; $sCheck = FULL path and filename
    If NOT StringRegExp(StringRight($sCheck, 4), "(?i)\.(url|lnk)") Then Return $sCheck
    Local $aShortcut = FileGetShortcut($sCheck)
    If NOT @Error Then Return $aShortcut[0]
    Return IniRead($sCheck, "InternetShortCut", "URL", "")
EndFunc

Edited September 25, 2009 by GEOSoft

[GEOSoft]

Oooops. Just found this old one too which actually may be better for you so I just changed the example usage.

$sClip = ""
$hSearch = FileFindFirstFile(@DesktopDir & "\*")
If $hSearch <> -1 Then
    While 1
        $sFile = FileFindNextFile($hSearch)
        If @error Then ExitLoop
        If _File_IsLink($sFile) Then $sClip &= _File_GetShortcut($sFile) & @CRLF
    WEnd
    FileClose($hSearch)
    ClipPut(StringStripWS($sClip, 2))
EndIf

Func _File_GetShortcut($sCheck) ;; $sCheck = FULL path and filename
    Local $aShortcut = FileGetShortcut($sCheck)
    If Not @error Then Return $aShortcut[0]
    Return IniRead($sCheck, "InternetShortCut", "URL", "")
EndFunc   ;==>_File_GetShortcut

Func _File_IsLink($sCheck) ;; $sCheck = FULL path and filename
    If StringRegExp($sCheck, "(?i)\.(url|lnk)") Then Return 1
    Return 0
EndFunc   ;==>_File_IsLink

[wpz]

Thank you for your input, now I have this working solution. The problem was, that a link can contain a real exe-file but it also can contain a filetype like msc or xls .... Unfortunately there is no "ShellExecute" with "RunAs":

If (StringLower($tmp) == ".lnk") then

$CMD = FileGetShortcut($CmdLine[1])

If ($CMD[2] > "" ) Then

$tmp = $CMD[0] & " " & $CMD[2]

Else

$tmp = $CMD[0]

EndIf

If ($CMD[1] > "" ) Then

$WDIR = $CMD[1]

Else

$WDIR = @SystemDir

EndIf

$tmp2 = StringRight($tmp, 4)

If (StringLower($tmp2) == ".exe") Then

$CLINE = $tmp

$SHOWFLAG = ""

Else

$CLINE = @COMSPEC & " /C " & $tmp

$SHOWFLAG = @SW_HIDE

EndIf

$ret = RunAs ( $USER, "NVG", $PW, 4, $CLINE, $WDIR, $SHOWFLAG )

EndIf

If you know a better solution, I would like to know it.

Best regards

Wolfgang