Sub RemoteDesktopConnection() Dim shell As Object Dim address As String ' リモートデスクトップのアドレスを入力してください address = "192.168.1.1" ' 例としてIPアドレスを指定 Set shell = CreateObject("WScript.Shell") ' リモートデスクトップ…