VBScriptで、リモートデスクトップで使用するポート番号を変更する方法を解説します。
はじめに
本記事では、リモートデスクトップで使用するポート番号を変更するスクリプトをご紹介します。
スクリプト内の各処理については、記事の最後に関連記事としてまとめていますので、そちらを参考にして下さい。
ソースコード
サンプルのソースコードです。
Option Explicit
' ポート番号
Const PORT = "1234"
' キー名
Const KEY = "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Terminal Server\WinStations\RDP-Tcp\PortNumber"
' 宣言
Dim ws, before, after
' WSHオブジェクトの作成
Set ws = CreateObject("WScript.Shell")
' 変更前の値を取得
before = ws.RegRead(KEY)
' レジストリの変更
ws.RegWrite KEY, PORT, "REG_SZ"
' 変更後の値を取得
after = ws.RegRead(KEY)
' 設定内容の確認
MsgBox("変更前：" & before & vbCrLf & "変更後：" & after)
実行方法
本スクリプトの実行方法についてです。
ソースコードの4行目で定義しているポート番号に、設定したい番号を記述し実行するだけです。
実行時にエラーが発生する場合
実行時に、以下のようなエラーが発生する場合については、レジストリを変更するための権限が不足している可能性があります。
こちらを参考にして、管理者権限で実行してみて下さい。
スクリプトの各機能と関連記事
スクリプトの各機能についての説明や関連記事になります。
【VBScript】レジストリの値を取得する
VBScriptでレジストリの値を取得する方法を解説します。
syutaku.blog
2022.01.20
【VBScript】レジストリの値を変更する
VBScriptでレジストリの値を変更する方法を解説します。
syutaku.blog
2022.06.11
【Windows】リモートデスクトップの使用ポート番号の変更
Windowsの基本機能であるリモートデスクトップで使用するポート番号を変更する方法を解説します。
syutaku.blog
2022.08.14
【Windows】レジストリ エディター（regedit）の基本操作
Windows上でレジストリを操作するためのツール「レジストリエディター」の使い方を解説します。
syutaku.blog
2022.08.12
リンク
コメント