有人能帮我解决如何以管理员权限从VBScript自身运行的问题吗？我需要通过VBScript重命名Windows 8计算机，但只有在通过管理员命令行（CMD → "以管理员身份运行" → runScript.vbs）运行脚本时才可能实现。如果使用经典CMD启动脚本，则计算机不会被重命名。
我的想法是使用用户权限启动没有参数的脚本，如果没有参数，则脚本将以管理员权限重新运行，并使用参数作为标识符“我是管理员”。
有谁知道我该如何做到这一点吗？
编辑：
我尝试了这个：
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
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
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
这是一篇有关提升权限选项的好文章 - http://www.novell.com/support/kb/doc.php?id=7010269
配置应用程序始终请求提升权限：
可以通过在HKCU下的注册表设置来配置程序始终在用户级别请求提升权限。这些注册表设置是即时生效的，因此它们可以在启动特定应用程序之前立即设置，甚至在启动应用程序后立即删除（如果需要的话）。只需在"HKCU\Software\Microsoft\Windows NT\CurrentVersion\AppCompatFlags\Layers"下为可执行文件的完整路径创建一个"String Value"，值为"RUN AS ADMIN"。以下是CMD的示例。
Windows Registry Editor Version 5.00
[HKEY_Current_User\SOFTWARE\Microsoft\Windows NT\CurrentVersion\AppCompatFlags\Layers]
"c:\\windows\\system32\\cmd.exe"="RUNASADMIN"
有趣的小批处理文件
@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%
我的VBS文件路径：
D：\QTP练习\驱动程序\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}"
If WScript.Arguments.Count <> 1 Then WScript.Quit 1
RunAsAdmin
Main
Sub RunAsAdmin()
Set Shell = CreateObject("WScript.Shell")
Set Env = Shell.Environment("VOLATILE")
If Shell.Run("%ComSpec% /C ""NET FILE""", 0, True) <> 0 Then
Env("CurrentDirectory") = Shell.CurrentDirectory
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.Sleep 100
Env.Remove("CurrentDirectory")
WScript.Quit
End If
If Env("CurrentDirectory") <> "" Then Shell.CurrentDirectory = Env("CurrentDirectory")
End Sub
Sub Main()
'Your code here!
End Sub
优点：
1) 不可能进行参数注入。
2) 在提升为管理员后，参数数量不会发生变化，因此您可以在提升前检查它们。
3) 您可以真实且立即地知道脚本是否以管理员身份运行。例如，如果您从控制面板卸载条目调用它，则RunAsAdmin函数不会不必要地运行，因为在这种情况下您已经是管理员。如果您从已经提升为管理员的脚本中调用它，则情况也是如此。
4) 窗口保持其当前大小和位置，正如应该的那样。
5) 获得管理员权限后，当前目录不会更改。
缺点：没有