SQLの窓

2017年09月01日


管理者権限でコマンドプロンプトを開く VBScript

第一引数にフォルダのパスを指定するようにしています。指定しなければ、カレントフォルダで開きます。

管理者で実行するのは、ShellExecute に、"runas" を渡して実行しているからです。これは、右クリックで表示されるメニューにある『管理者として実行』に相当します
acmd.vbs
Set obj = CreateObject("Shell.Application")
Set WshShell = CreateObject( "WScript.Shell" )
if WScript.Arguments.Count <> 0 then
	obj.ShellExecute "cmd.exe", "/s /k pushd """ & WScript.Arguments(0) & """", "", "runas", 1
else
	obj.ShellExecute "cmd.exe", "/s /k pushd """ & WshShell.CurrentDirectory & """", "", "runas", 1
end if





このスクリプトを Windows の system32 フォルダへコピーして、以下のようにレジストリ登録すると、フォルダを右クリックしてその場所で実行可能になります
Windows Registry Editor Version 5.00

[HKEY_CLASSES_ROOT\Directory\shell\acmd]
@="管理者コマンドプロンプト"
"NoWorkingDirectory"=""

[HKEY_CLASSES_ROOT\Directory\shell\acmd\command]
@="wscript.exe acmd.vbs \"%V\""


※ system32 フォルダへコピーしたスクリプトを編集するには、エディタの実行時に『管理者として実行』する必要があります。

Windows 7 では、単に管理者としてコマンドプロンプトを開きたい場合は、スタートメニューの『プログラムとファイルの検索』内に cmd と入力して CTRL + SHIFT + ENTER すればいいでしょう




関連する外部の記事

windows - How to run vbs as administrator from vbs? - Stack Overflow




posted by lightbox at 2017-09-01 13:03 | VBS + Shell | このブログの読者になる | 更新情報をチェックする
バッチ処理

Microsoft Office
container 終わり

フリーフォントで簡単ロゴ作成
フリーフォントでボタン素材作成
フリーフォントで吹き出し画像作成
フリーフォントではんこ画像作成
ほぼ自由に利用できるフリーフォント
フリーフォントの書体見本とサンプル
画像を大きく見る為のウインドウを開くボタンの作成

Android SDK ポケットリファレンス
改訂版 Webデザイナーのための jQuery入門
今すぐ使えるかんたん ホームページ HTML&CSS入門
CSS ドロップシャドウの参考デモ
Google Hosted Libraries
cdnjs
BUTTONS (CSS でボタン)
イラストAC
ぱくたそ
写真素材 足成
フリーフォント一覧
utf8 文字ツール
右サイド 終わり
base 終わり