ayuda con codigo .vbs

[dantemc]

hola lo que sucede es que este codigo conjunto con el psexec tal vez pueda ejecutar programas al meos como administrador, desde una cuenta de usuario.

Código [Seleccionar] Expandir

SET WshShell = WScript.CreateObject("WScript.Shell")
SET WshSysEnv = WshShell.Environment("SYSTEM")
SET FSO = CreateObject("Scripting.FileSystemObject")
IF WScript.Arguments.Count <> 0 Then
    FOR EACH arg IN WScript.Arguments
        iArgCount = iArgCount + 1
        strCmdArg = (arg)
        strCmdArray = Split(strCmdArg, " ", 2, 1)
        IF iArgCount = 1 THEN
        strExe = strCmdArray(0)
        ELSEIF iArgCount = 2 THEN
        strRun = strCmdArray(0)
        ELSE
        strParams = strParams&" "&strCmdArray(0)
        END IF
    NEXT
END IF
'/t:0A && title ***** Admin *****
        strExt = LCase(Right(strExe, 3))

IF strExt <> "exe" AND strExt <> "bat" AND strExt <> "cmd" THEN
WshShell.Run "psexec.exe -d -i -e -u COMPUTERNAME\USER -p PASSWORD  cmd /c start "&strExe&"
    "&strRun&" "&strParams, 0, FALSE
ELSE
WshShell.Run "psexec.exe -d -i -e -u COMPUTERNAME\USER -p PASSWORD "&strExe&" "&strRun&"
    "&strParams, 0, FALSE
END IF

    SET WshShell = NOTHING
    SET WshSysEnv = NOTHING
    SET FSO = NOTHING

gmuchas gracias

[Novlucker]

Duda... para que creaste FSO si no la usaste en todo el code??

Cual seria la finalidad del script... creo que entendi.. pero en realidad para pasarle parametros debes hacerlo desde ms-dos... y el psexec funciona en modo ms-dos.. entonces para que crear un script que pasa parametros de este modo cuando ya lo puedes hacer.... no le veo ninguna utilidad....

salu2

[Hans el Topo]

existe una función, que es el administrador de tareas de windows, que puedes dejar lotes de comandos y otros comandos para que las lance el sistema, cuando las lanza lo hace como system y por lo tanto con el máximo rango de privilegios