24

それ自体からvbsを実行するのを手伝ってくれる人はいますが、管理者権限はありますか? 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
4

6 に答える 6

31

コンピューターで UAC が有効になっている場合は、次のように動作するはずです。

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
于 2013-07-04T09:55:47.840 に答える
9

これをファイルの先頭に追加します。

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
于 2014-03-14T18:57:50.467 に答える
3

昇格オプションに関する優れた記事 - http://www.novell.com/support/kb/doc.php?id=7010269

昇格された権利を常に要求するようにアプリケーションを構成する:

の下のレジストリ設定を使用して、常にユーザー レベルで昇格を要求するようにプログラムを構成できますHKCU。これらのレジストリ設定はオンザフライで有効になるため、必要に応じて、特定のアプリケーションを起動する直前に設定したり、アプリケーションの起動後すぐに削除したりすることもできます。値"String Value"が. "HKCU\Software\Microsoft\Windows NT\CurrentVersion\AppCompatFlags\Layers"_ "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"
于 2014-05-13T07:15:08.753 に答える
2

`私のvbsファイルパス:

D:\QTP Practice\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}"

--Google検索といくつかの調整から、私のために働いています

于 2015-07-29T08:23:23.770 に答える