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() …