Comment lancer vbs en tant qu'administrateur de vbs?

Quelqu'un peut m'aider avec l'exécution de la vbs à partir de lui-même, mais avec des droits d'administrateur?
J'ai besoin de renommer l'ordinateur avec Win8 via vbs mais c'est possible seulement si je lance mon script par l'administrateur de ligne de commande (cmd -> Exécuter en tant qu'Administrateur -> runScript.vbs). Si je commence script avec les classiques de la cmd ordinateur n'est pas renommé.

Mon idée est je commence le script avec les droits de l'utilisateur, sans paramètres et si il n'y a pas de paramètre, le script s'exécuter avec les droits admin et avec le paramètre comme identifiant "je suis admin".

Personne ne sait comment je peux faire cela?
Merci.
McAndy

edit:

J'ai essayé ceci:

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

source d'informationauteur Daphnis

  1. 21

    Si l'UAC est activé sur l'ordinateur, quelque chose comme cela devrait fonctionner:

    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
  2. 6

    Ajouter ceci au début de votre fichier:

    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