Vista中vbs脚本执行WshShell.Run命令时的权限问题

一个vbs脚本，通过WshShell.Run()来执行一条sc 装载服务的命令，XP下成功。但在Vista中，用sc装载服务时却必须以管理员权限才能成功，假如将这条命令放在CMD脚本中，通过“以管理员身份运行”可以完成，但在vbs脚本中又该如何让这条命令获得管理员权限呢？请求高人指点。

答案或建议：

Method 1

This re-launches the current VBScript as administrator (elevated) if the script has no command-line arguments passed. When re-launching the script as administrator, simply pass a bogus argument so that the script does not run in a cyclic loop.

If WScript.Arguments.length =0 Then
Set objShell = CreateObject("Shell.Application")
'Pass a bogus argument with leading blank space, say [ uac]
objShell.ShellExecute "wscript.exe", Chr(34) & _
WScript.ScriptFullName & Chr(34) & " uac", "", "runas", 1
Else
'Add your code here
End If
Method 2

This method uses a stub or wrapper script which runs the main VBScript elevated using the runas verb.

Set objShell = CreateObject("Shell.Application")
Set FSO = CreateObject("Scripting.FileSystemObject")
strPath = FSO.GetParentFolderName (WScript.ScriptFullName)
If FSO.FileExists(strPath & "\MAIN.VBS") Then
objShell.ShellExecute "wscript.exe", _
Chr(34) & strPath & "\MAIN.VBS" & Chr(34), "", "runas", 1
Else
MsgBox "Script file MAIN.VBS not found"
End If


转载地址来自于:http://www.baikewenda.com/tech/os/8/10/a193445132.htm