VBS キーボードマクロ作成方法 Windows 操作 備忘録

こんばんは、ルーティンで行なう簡易的な作業はスクリプトに任せたいと思い日々過ごしています。

最近よく聞くRPAほど優秀ではないですが、簡易的なキーボードマクロならVBScriptで作成出来るなんじゃないかと思い作った備忘録です。

https://nw-engineer.work/rpa

VBS キーボードマクロ作成方法

VBSciptはWindows標準で使用できるスクリプトです。メモ帳さえあればコードを記述した後、「名前を付けて保存」の時にファイル名を拡張子.vbsにすれば作成が可能です。

VBSでコマンドプロンプトを開きRunasを実行

このスクリプトは、コマンドプロンプトでrunasコマンドを打つVBSスクリプトです。

runasコマンドは、権限を操作するコマンドで管理者権限としてコマンドを実行できます。下記の記事を例にキーボードマクロで作成します。

runasコマンドの使い方　管理者権限でアプリケーションを実行する方法runasコマンドの使い方　管理者権限でアプリケーションを実行する方法。パソコンの管理者権限は色々なアプリケーションが実行可能ですが、実際の会社だと普段はユーザー権限で仕事をします。管理者権限だと実行不可のアプリケーションの場合、サインアウトして管理者権限で実行しないといけない場合があります。 ...

しかし、runasコマンドは手入力が少し多く面倒です。runasコマンドを実行する工程は下記になります。

1. コマンドプロンプトを開く
2. runasコマンドで管理者権限を実行するユーザー名を入力
3. Enter
4. パスワードを入力
5. Enter
6. 管理者権限のコマンドプロンプトが開く

これをVBSワンクリックで実行するキーボードマクロが下記になります。

Option Explicit

Dim WshShell
Set WshShell=Wscript.CreateObject(”Wscript.Shell”)
WshShell.Run(“cmd”)
WScript.Sleep(500)
WshShell.SendKeys(“runas /user:○○\administrator cmd”)
WshShell.SendKeys(“{ENTER}”)
WScript.Sleep(2500)
WshShell.SendKeys(“password“)
WScript.Sleep(500)
WshShell.SendKeys(“{ENTER}”)
WshShell.SendKeys(“exit”)
WshShell.SendKeys(“{ENTER}”)

VBSコードの説明

Dimで変数を宣言。Setで変数にオブジェクトを作成。

WshShell.Run(“cmd”) ・・・コマンドプロンプトを開きます。

WScript.Sleep(500) ・・・500ミリ秒待ちます。

WshShell.SendKeys(“”)・・・キーを送信します。

上記を使用すれば、キー送信→待つ→キー送信→待つ・・・の繰り返しが可能になり簡易的なVBSによる自作キーボードマクロが完成します。

コマンドプロンプトだけではなく、ウェブブラウザでもキーボード送信が利用可能です。うまく利用して作業を簡素化させましょう！

それではー！