Tera Term のススメ

RDP ログイン自動化マクロ（マスターパスワード利用版）

マクロの目的

利用可能環境

Windows (リモートデスクトップ)

%windir%\system32\mstsc.exe

Windows (7zip)

Tera Term

マクロの使い方

実行タイミング

マクロの指定方法

ttpmacro.exe を利用する場合

ttermpro.exe を利用する場合

メニューから実行する場合

実行時の入力情報

ホスト名入力

ユーザ名入力

マスターパスワード

ログインパスワード入力

接続待ち

コード

著作権情報

著作権者

ライセンス

関連情報

• RDP ログイン自動化マクロ
• パスワードファイル暗号化（7zip 利用版）

サンプルコード

ファイルダウンロード

コピペ用

; RDP access ttl macro.

; File: RDPsecurityLogin.ttl
; Description: auto login with SSH2 protocol
; Environment: generic
; Update: 2019/7/24
; Author: Kazuya Jimba

;;; 環境設定 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

; デフォルトユーザ名の指定
_defaultUserName = 'User'

; デフォルトアクセス先情報の指定
_defaultHostName = '192.168.0.1'

; 当スクリプトが管理するファイルを置くディレクトリの指定
getdir _pwdir

; 当スクリプトが管理するファイル名の指定
_defaultPassFile = 'SecurityLogin.dat'
_defaultPassZip  = 'SecurityLogin.zip'

; 暗号化/復号化する、コマンドライン版 7zip のパス情報指定
_7zipDir = 'C:\7za920'
_7zipExe = '7za.exe'

; RDP 接続時における、Windows 登録情報削除までの待機時間
_DeleteWaitTime = 10

; 利用に際して、変更すべき情報は以上です。

; パス生成
makepath _7zip  _7zipDir _7zipExe
makepath _pwdat _pwdir   _defaultPassFile
makepath _pwzip _pwdir   _defaultPassZip

; 環境ファイルの確認

; パスワードファイルの有無
_target = _pwdat
call subFileSearch
_flagPassFile = result

; zip ファイルの有無
_target = _pwzip
call subFileSearch
_flagPassZip = result

;;; メイン処理 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;;; 情報収集

;; アクセス情報取得
sprintf2 msg "アクセスするホスト名を入力してください。"
inputbox msg 'ホスト名入力' _defaultHostName
hostname = inputstr

inputbox 'ユーザ名を入力してください' 'アカウント入力' _defaultUserName
username = inputstr

;; パスワード情報取得
_msgtitle = 'マスターパスワード入力'
_msgline = '暗号化/復号化のためのマスターパスワードが必要です。\nマスターパスワードを入力してください。'
strspecial _msgline
passwordbox _msgline _msgtitle 1
_filepassword = inputstr

; もし .dat があるなら処理の続行を確認。
if _flagPassFile == 1 then
  sprintf2 _msg "%s が存在します。\n処理を続行しますか？" _defaultPassFile
  strspecial _msg
  yesnobox _msg 'Error'
  if result then
    ; YES
    ; もし Zip があったらエラー。
    if _flagPassZip <> 0 then
      sprintf2 _msg "ZIP ファイル（%s）が存在します。\nいずれかを削除し、当スクリプトの稼働環境を修復してください。" _defaultPassZip
      strspecial _msg
      messagebox _msg 'Error'
      end
    endif
  else
    ; NO
    goto NormalEnd
  endif
elseif _flagPassFile == 0 then
  ; .dat がなければ、zip を探す。
  if _flagPassZip == 1 then
    ; zip が存在すれば解凍
    sprintf2 _ExtractCmd "%s x -tzip -p%s %s -o%s" _7zip _filepassword _pwzip _pwdir

    exec _ExtractCmd 'hide' 1

    ; result (errorlevel) が 0 なら成功とみなして zip ファイルを削除する。
    if result == 0 then
      filedelete _pwzip

    elseif result then
      ; メッセージ生成
      sprintf2 msg 'パスワードファイルの解凍に失敗しました。\n\n 対象ファイル： %s\n Exit Code： %d' _pwzip result
      sprintf2 title '解凍失敗'
      strspecial msg
      messagebox msg title

      ;; 7zip エラーコードの意味（7zip のヘルプより引用）
      ; Code Meaning 
      ; 0    No error 
      ; 1    Warning (Non fatal error(s)). For example, one or more files were locked by some other application, so they were not compressed. 
      ; 2    Fatal error 
      ; 7    Command line error 
      ; 8    Not enough memory for operation 
      ; 255  User stopped the process 

      ; もしファイルがあれば削除
      ; (パスワードを間違えると、内容の破壊されたパスワードファイルができることがある)
      _target = _pwdat
      call subFileSearch
      if result  == 1 then
        filedelete _pwdat
      endif

      end

    endif

  elseif _flagPassZip < 0 then
    ; ディレクトリならエラー終了
    goto ErrorEnd
  endif
else
  ; ディレクトリならエラー終了
  goto ErrorEnd
endif

sprintf2 account "%s@%s" username hostname
getpassword _defaultPassFile account password

; 必要な情報は全て変数へ格納したので、ファイルはアーカイブしておく。

; 圧縮コマンドの生成
sprintf2 _ArchiveCmd "%s a -tzip -p%s %s %s" _7zip _filepassword _pwzip _pwdat

; 暗号化処理コマンドラインを実行する。
exec _ArchiveCmd 'hide' 1

; result (errorlevel) が 0 なら成功とみなして dat ファイルを削除する。
if result == 0 then
  filedelete _pwdat

else
  ; メッセージ生成
  sprintf2 msg 'パスワードファイルの圧縮に失敗しました。\n\n 対象ファイル： %s\n Exit Code： %d' _pwzip result
  sprintf2 title '圧縮失敗'
  strspecial msg
  messagebox msg title

  end

endif

; 元ファイルを削除する。
filedelete _pwdat
if result = 1 then
  sprintf2 msg 'ファイル %s が削除できませんでした。' _pwdat
  end

endif

;;; 接続処理

; Windows へのアカウント登録
sprintf2 line "cmdkey /generic:TERMSRV/%s /user:%s /pass:%s" hostname username password
exec line

; Remote Desktop 接続
expandenv RDP "%windir%\system32\mstsc.exe"

sprintf2 CMD "%s /v:%s" RDP hostname
exec CMD

;;; 接続後処理

; RDP 接続できたら、以下のマクロはバックグランドで動作。

; 接続中に Windows への登録情報を削除してしまうことがあるため、待機
pause _DeleteWaitTime

; 登録した情報の削除コマンド
sprintf2 line "cmdkey /delete:TERMSRV/%s" hostname
exec line


;;; 終了処理 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

:NormalEnd

end

:ErrorEnd
sprintf2 _msg "予期しないエラーを検知しました。\nスクリプトの処理を終了します。"
strspecial _msg
messagebox _msg 'Error'
end

;;; サブルーチン ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

:subFileSearch
; #################################
; # サブルーチン：subFileSearch
; #################################
;; 対象を確認する。
;; -1 対象はディレクトリ
;;  0 存在しない
;;  1 対象はファイル

filesearch _target
if result = 1 then
  ; ファイルかフォルダが存在するので、選別
  foldersearch _target
  if result = 1 then
    ; 対象はフォルダ
    _result = -1
  else
    ; 対象はファイル
    _result = 1
  endif
else
  ; ファイルもフォルダも存在しない
  _result = 0
endif

result = _result

return

備考

改版履歴