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 の system32 フォルダである必要はありません / PC 共通の表現だとこれが間違いないので使用しています  )

※ 32ビットアプリより system32 にアクセスしようとすると、SysWoW64 にリダイレクトされます
Windows Registry Editor Version 5.00

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

[HKEY_CLASSES_ROOT\Folder\shell\acmd\command]
@="wscript c:\\windows\\system32\\acmd.vbs \"%V\""

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

単に管理者としてコマンドプロンプトを開きたい場合は、Windowsキー + S で『ここに入力して検索』内に cmd と入力して CTRL + SHIFT + ENTER すればいいでしょう

あるいは、通常のコマンドプロンプトを起動して、タスクバーのアイコンを Ctrl と Shift キーを押しながらクリックします。



関連する外部の記事

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







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

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

CSS ドロップシャドウの参考デモ
イラストAC
ぱくたそ
写真素材 足成
フリーフォント一覧
utf8 文字ツール
右サイド 終わり
base 終わり