Wie zum ausführen von vbs als administrator aus vbs?

Kann mir jemand helfen mit der Ausführung von vbs selbst, sondern mit administrator-rechten?
Ich brauche umbenennen der computer mit Windows 8 via VBScript, aber es ist nur möglich, wenn ich mein Skript über administrator-Kommandozeile (CMD → als Administrator Ausführen → runScript.vbs). Wenn ich das start-script mit klassischen CMD der computer nicht umbenannt.

Meine Idee ist ich das start-Skript mit Benutzerrechten, ohne Parameter, und wenn es keine parameter, das Skript wieder läuft selbst mit admin-rechten und mit der parameter wie identificator "ich bin admin".

Weiß jemand, wie ich dies tun kann?

Edit:

Habe ich versucht, dieses:

If WScript.Arguments.Count = 0 Then
    Set objShell = CreateObject("Shell.Application")
    objShell.ShellExecute "wscript.exe", "c:\Users\admin\Documents\selfConfigure.vbs -1", "", runas", 1
End If
überprüfen Sie die elevation-powertoy blogs.technet.com/b/elevationpowertoys/archive/2010/06/20/...
Das ist großartig-code, aber ich denke, es ist nicht die Lösung meines Problems. Mein problem ist nicht das Holen, wenn script als admin ausgeführt oder nicht. Ich brauche zuverlässig führen Sie es als admin. Dieser code ist nur für check it, ich bin im Recht?
NÖ "Das folgende Skript wird "neu gestartet" hoch, wenn es nicht bereits ausgeführt wird erhöht"
Der code erhöhen würde das Skript, aber Sie vergessen haben, die Anführungszeichen vor dem "runas".

InformationsquelleAutor Daphnis | 2013-07-04

  1. 24

    Wenn die Benutzerkontensteuerung aktiviert ist auf dem computer, so etwas wie dies funktionieren sollte:

    If Not WScript.Arguments.Named.Exists("elevate") Then
  CreateObject("Shell.Application").ShellExecute WScript.FullName _
    , """" & WScript.ScriptFullName & """ /elevate", "", "runas", 1
  WScript.Quit
End If

'actual code
    Es ist praktisch das gleiche, was ich versucht habe. Aber es funktioniert nicht. Was genau macht die aktivierte UAC gemeint? Ich habe es auf "Nie Benachrichtigen" deaktiviert? Wenn ich versuche, ändern Sie die Benutzerkontensteuerung, um höhere option, es half nicht.
    "Nie Benachrichtigen" auf Win8 nicht genau deaktiviert (man müsste Richtlinien verwenden, deaktivieren Sie es vollständig), aber fast. Der code funktionierte gut für mich, wenn ich wieder aktiviert Benutzerkontensteuerung auf meinem Win7 testbox. Hast du Neustart nach dem ändern der UAC-level?
    Nein habe ich nicht, aber leider kann ich nicht verwenden, aktiviert die UAC, weil dieses Skript muss gearbeitet werden, ohne Benutzer. Kein user will warten, für Fragen, für den Zugang. Dieses Skript ist für automatische tests. Ist das nicht eine andere option? :/
    Können Sie nicht führen Sie es einfach als geplanten task dann?
    Sorry, du Recht. Ich wollte nicht aufhören zu ersten Skript und das machte problem. 🙂 Jetzt geht es.

    InformationsquelleAutor Ansgar Wiechers

  2. 6

    Fügen Sie diese an den Anfang der Datei:

    Set WshShell = WScript.CreateObject("WScript.Shell")
If WScript.Arguments.Length = 0 Then
  Set ObjShell = CreateObject("Shell.Application")
  ObjShell.ShellExecute "wscript.exe" _
    , """" & WScript.ScriptFullName & """ RunAsAdministrator", , "runas", 1
  WScript.Quit
End if
    Dieser code war für mich, akzeptiert die Antwort nicht.
    Dann ist dein script-Pfad offensichtlich hat Leerzeichen drin, denn das ist der einzige Unterschied zwischen dieser Antwort und meiner.
    Warum tun Sie das WshShell = WScript.CreateObject("WScript.Shell") und dann verwenden Sie niemals das Objekt?
    Warum müssen wir prüfen ", Wenn Sie WScript.Argumente.Länge = 0 " ??? Ich möchte zum senden von Argumenten....

    InformationsquelleAutor Hussain

  3. 3

    Spaß lil batch-Datei

    @set E=ECHO &set S=SET &set CS=CScript //T:3 //nologo %~n0.vbs /REALTIME^>nul^& timeout 1 /NOBREAK^>nul^& del /Q %~n0.vbs&CLS
@%E%off&color 4a&title %~n0&%S%CX=CLS^&EXIT&%S%BS=^>%~n0.vbs&%S%G=GOTO &%S%H=shell&AT>NUL
IF %ERRORLEVEL% EQU 0 (
    %G%2
) ELSE (
    if not "%minimized%"=="" %G%1
)
%S%minimized=true & start /min cmd /C "%~dpnx0"&%CX%
:1
%E%%S%%H%=CreateObject("%H%.Application"):%H%.%H%Execute "%~dpnx0",,"%CD%", "runas", 1:%S%%H%=nothing%BS%&%CS%&%CX%
:2
%E%%~dpnx0 fvcLing admin mode look up&wmic process where name="cmd.exe" CALL setpriority "realtime"& timeout 3 /NOBREAK>nul
:3
%E%x=msgbox("end of line" ,48, "%~n0")%BS%&%CS%&%CX%
    Könnten Sie bitte beschreiben, wie dieses script funktioniert?
    dies ist die Seite, die das erklärt alles: e-lernen.cn/content/wangluowenzhang/84740

    InformationsquelleAutor funny

  4. 2

    Schöner Artikel für die elevation-Optionen - http://www.novell.com/support/kb/doc.php?id=7010269

    Konfigurieren von Anwendungen Immer die Anforderung Erhöhter Rechte:

    Programme können so konfiguriert werden, um jederzeit einen Antrag auf Erhöhung auf die Benutzer-Ebene über registry-Einstellungen unter HKCU. Diese registry-Einstellungen wirken auf die Fliegen, so kann man unmittelbar vor dem starten einer bestimmten Anwendung und auch entfernt, sobald die Anwendung gestartet wird, wenn dies gewünscht wird. Erstellen Sie einfach ein "String-Wert" unter"HKCU\Software\Microsoft\Windows NT\CurrentVersion\AppCompatFlags\Layers" den vollständigen Pfad zu einer ausführbaren Datei mit dem Wert "RUNASADMIN". Unten ist ein Beispiel für CMD.

    Windows Registry Editor Version 5.00
[HKEY_Current_User\SOFTWARE\Microsoft\Windows NT\CurrentVersion\AppCompatFlags\Layers]
"c:\\windows\\system32\\cmd.exe"="RUNASADMIN"
    Aber ich brauche erhöhten Berechtigungen zu Bearbeiten, die registry-Einstellung in den ersten Platz, Nein? Art von Niederlagen der Zweck.
    stackoverflow.com/questions/47895544/... und stackoverflow.com/questions/47902221/...

    InformationsquelleAutor Amit

  5. 2

    `Meine vbs-Datei-Pfad :

    D:\QTP Praxis\Driver\Testany.vbs'

    objShell = CreateObject("Shell.Application")

objShell.ShellExecute "cmd.exe","/k echo test", "", "runas", 1

set x=createobject("wscript.shell")

wscript.sleep(2000)

x.sendkeys "CD\"&"{ENTER}"&"cd D:"&"{ENTER}"&"cd "&"QTP Practice\Driver"&"{ENTER}"&"Testany.vbs"&"{ENTER}"

    --aus der google-Suche und einige tuning, für mich zu arbeiten

    InformationsquelleAutor Hari Krishna

  6. 1

    Dies ist der universellste und beste Lösung für dieses:

    If WScript.Arguments.Count <> 1 Then WScript.Quit
RunAsAdmin
Main

Sub RunAsAdmin
    If CreateObject("WScript.Shell").Run("%ComSpec% /C NET FILE", 0, True) <> 0 Then
        ArgsList = ""
        For i = 1 To WScript.Arguments.Count
            ArgsList = ArgsList & """ """ & WScript.Arguments(i - 1)
        Next
        CreateObject("Shell.Application").ShellExecute WScript.FullName, """" & WScript.ScriptFullName & ArgsList & """", , "runas", 5
        WScript.Quit
    End If
End Sub

Sub Main()
    MsgBox WScript.Arguments.Count
End Sub

    Vorteile:

    1) Die parameter der Injektion ist nicht möglich.

    2) Die Anzahl der Argumente nicht ändert, nachdem die elevation zum administrator und Sie können dann überprüfen Sie Sie, bevor Sie erheben sich selbst.

    3) Sie wissen, für echte und sofort, wenn das Skript läuft als administrator. Zum Beispiel, wenn rufen Sie es aus einem control panel deinstallation-Eintrag, der RunAsAdmin Funktion wird nicht ausgeführt werden, unnötig, denn in diesem Fall sind Sie bereits als administrator. Das gleiche gilt, wenn Sie es aufrufen, ein script bereits erhöhten administrator.

    4) Das Fenster bleibt bei seiner aktuellen Größe und position, wie es sein sollte.

    Warnhinweise:

    1) Das "Working directory" - parameter hat keine Wirkung, wenn das "verb" parameter "runas".

    InformationsquelleAutor Riccardo La Marca

Schreibe einen Kommentar