Šarže nebo VB script zahájit Win7 RunAs přihlašovací okno?

Question

Šarže nebo VB script zahájit Win7 RunAs přihlašovací okno?

hlasů

0

Sháním dávkového příkazu nebo VBscript vykonat, co by to byla Shift + klepněte pravým tlačítkem myši> „Spustit jako jiný uživatel“ To vyskočí s přihlašovacím okně, které se prostě říká: „Windows Security“ v názvu

http://i.imgur.com/EDeCCND.jpg

Prohledal jsem široko daleko a nejbližší dostal jsem byl jen „runas“ z příkazového řádku, a já jsem zjistil, VBScript, který umí „Spustit jako správce“. Ale já chci skript, který bude iniciovat přihlašovací okno, jako na obrázku výše, která je stejná jako „Spustit jako jiný uživatel“

dík

Edit - Některé pozadí mého problému: Mám dávkový soubor, který mohu použít k instalaci softwaru na vzdáleném počítači přes PsExec, stejně jako běh některé skripty a další věci. Nyní, aby se úspěšně spustit svůj dávkový soubor, uživatel bude muset spustit pod domény účtu správce. A já se v podstatě snaží donutit, aby se to stalo.

Zpočátku jsem se snažil nutit UAC přijít prostřednictvím této krásné skriptu ... a funguje to skvěle! Bohužel jsem zjistil, že nebude fungovat, pokud je přihlášen místním správcem a spustí soubor (to bude vidět, že již má práva správce v místním počítači, ale nebude to mít práva na vzdáleném počítači, pokud jde o spuštění psexec).

Nemůžu dělat runas přes šarže, protože nevím, co domény admin se bude spuštěn šarže. Také bych raději neměl uživatel zadat své přihlašovací údaje v okně příkazového řádku ... A mohl bych jen říct jim to posun + klepněte pravým tlačítkem myši na soubor bat, ale rád bych, aby se zabránilo, že pokud je to možné, protože uživatelé mohou být zapomnětlivý :)

Takže řešení mého problému, věřím, že je skript, který bude dělat přesně to, co Shift + klepněte pravým tlačítkem myši> „Spustit jako jiný uživatel“ bude dělat.

Každá pomoc je velmi ceněn

batch-file vbscript runas

Položena 20/05/2014 v 03:03
uživatelem stilljammin313

V jiných jazycích...

2 odpovědí

user3654095 · Answer 1 · 2014-05-20 04:16

Shverb - seznamy nebo spustí průzkumníka sloveso (vpravo v menu click)

Drag and drop nebo použití v příkazovém řádku.

HelpMsg = vbcrlf & "  ShVerb" & vbcrlf & vbcrlf & "  David Candy 2014" & vbcrlf & vbcrlf & "  Lists or runs an explorer verb (right click menu) on a file or folder" & vbcrlf  & vbcrlf & "    ShVerb <filename> [verb]" & vbcrlf & vbcrlf & "  Used without a verb it lists the verbs available for the file or folder" & vbcrlf & vbcrlf
HelpMsg = HelpMsg & "  The program lists most verbs but only ones above the first separator" & vbcrlf & "  of the menu work when used this way" & vbcrlf & vbcrlf 
HelpMsg = HelpMsg & "  The Properties verb can be used. However the program has to keep running" & vbcrlf & "  to hold the properties dialog open. It keeps running by displaying" & vbcrlf & "  a message box." 
Set objShell = CreateObject("Shell.Application")
Set Ag = WScript.Arguments 
set WshShell = WScript.CreateObject("WScript.Shell") 
Set fso = CreateObject("Scripting.FileSystemObject")

    If Ag.count = 0 then 
        wscript.echo "  ShVerb - No file specified"
        wscript.echo HelpMsg 
        wscript.quit
    Else If Ag.count = 1 then 
        If LCase(Replace(Ag(0),"-", "/")) = "/h" or Replace(Ag(0),"-", "/") = "/?" then 
            wscript.echo HelpMsg 
            wscript.quit
        End If
    ElseIf Ag.count > 2 then 
        wscript.echo vbcrlf & "  ShVerb - To many parameters" & vbcrlf & "  Use quotes around filenames and verbs containing spaces"  & vbcrlf
        wscript.echo HelpMsg 
        wscript.quit
    End If

    If fso.DriveExists(Ag(0)) = True then
        Set objFolder = objShell.Namespace(fso.GetFileName(Ag(0)))
'       Set objFolderItem = objFolder.ParseName(fso.GetFileName(Ag(0)))
        Set objFolderItem = objFolder.self
        msgbox ag(0)
    ElseIf fso.FolderExists(Ag(0)) = True then
        Set objFolder = objShell.Namespace(fso.GetParentFolderName(Ag(0)))
        Set objFolderItem = objFolder.ParseName(fso.GetFileName(Ag(0)))
    ElseIf fso.fileExists(Ag(0)) = True then
        Set objFolder = objShell.Namespace(fso.GetParentFolderName(Ag(0)))
        Set objFolderItem = objFolder.ParseName(fso.GetFileName(Ag(0)))
    Else
        wscript.echo "  ShVerb - " & Ag(0) & " not found"
        wscript.echo HelpMsg 
        wscript.quit
    End If

    Set objVerbs = objFolderItem.Verbs

    'If only one argument list verbs for that item

    If Ag.count = 1 then
        For Each cmd in objFolderItem.Verbs
            If len(cmd) <> 0 then CmdList = CmdList & vbcrlf & replace(cmd.name, "&", "") 
        Next
        wscript.echo mid(CmdList, 2)

    'If two arguments do verbs for that item

    ElseIf Ag.count = 2 then
        For Each cmd in objFolderItem.Verbs
            If lcase(replace(cmd, "&", "")) = LCase(Ag(1)) then 
                wscript.echo Cmd.doit 
                Exit For
            End If
        Next
    'Properties is special cased. Script has to stay running for Properties dialog to show.
        If Lcase(Ag(1)) = "properties" then
            WSHShell.AppActivate(ObjFolderItem.Name & " Properties")
            msgbox "This message box has to stay open to keep the " & ObjFolderItem.Name & " Properties dialog open."
        End If  
    End If
End If

taky

wmic /node"@%userprofile%\desktop\ComputerName.txt" /user:username /password:password /failfast:on process call create c:\somefile.bat

user3654095 · Answer 2 · 2014-05-21 07:07

To má pomoci postaven v roce. První tři řádky jsou v souboru nápovědy.

  ShVerb

  Lists or runs an explorer verb (right click menu) on a file or folder


    ShVerb <filename> [verb]


  Used without a verb it lists the verbs available for the file or folder


  The program lists most verbs but only ones above the first separator

  of the menu work when used this way


  The Properties verb can be used. However the program has to keep running

  to hold the properties dialog open. It keeps running by displaying

  a message box.

Budete muset spustit na vzdáleném systému.

Ale dvě příkazového řádku nástroje umožňují hesla, které mají být zadány. A jak jsem je znázorněno si můžete dát své uživatelské jméno automaticky.