RemoteDesktopConnection

Sub RemoteDesktopConnection()
Dim shell As Object
Dim address As String

' リモートデスクトップのアドレスを入力してください
address = "192.168.1.1" ' 例としてIPアドレスを指定

Set shell = CreateObject("WScript.Shell")

' リモートデスクトップ接続を開始するコマンドを実行
shell.Run "mstsc /v:" & address, 1, False
End Sub

Sub RemoteDesktopConnectionWithPassword()
Dim shell As Object
Dim address As String
Dim username As String
Dim password As String
Dim cmd As String

' リモートデスクトップのアドレスとユーザー名、パスワードを入力してください
address = "192.168.1.1" ' 例としてIPアドレスを指定
username = "username" ' リモートデスクトップのユーザー名
password = "password" ' リモートデスクトップのパスワード

' コマンドプロンプトに渡すコマンドを作成
cmd = "cmd /c echo " & password & " | mstsc /v:" & address & " /f /admin /console /restricted"

Set shell = CreateObject("WScript.Shell")

' コマンドプロンプトでリモートデスクトップ接続を開始するコマンドを実行
shell.Run cmd, 1, True
End Sub