cmdkeyで制御文字、特殊文字を入力させたい場合の対応

バッチファイルでcmdkeyに特殊文字(＆など)が入った文字を入力するとうまく動かないのでVBSにしたらうまくいった。

そもそもパスワード更新のたび素人に資格情報マネージャで数か所を書き換えさせる会社な時点で終わってる。

DXに数百億かける前にまずやることがある。 ↓これを任意の名前.vbsで実行

(エンコード: ANSIで保存)

dstTargetHostA = "192.XXX.XXX.XXX" dstTargetHostB = "" dstTargetHostC = "" dstTargetHostD = "" dstTargetHostE = "" dstTargetHostF = "" dstUserName = InputBox("IDを入力してください") dstPassword = InputBox("PASSを入力してください") Dim objShell Set objShell = CreateObject("WScript.Shell") objShell.Run "cmdkey /add:" & dstTargetHostA & " /user:" & dstUserName & " /pass:" & dstPassword,0,true objShell.Run "cmdkey /add:" & dstTargetHostB & " /user:" & dstUserName & " /pass:" & dstPassword,0,true objShell.Run "cmdkey /add:" & dstTargetHostC & " /user:" & dstUserName & " /pass:" & dstPassword,0,true objShell.Run "cmdkey /add:" & dstTargetHostD & " /user:" & dstUserName & " /pass:" & dstPassword,0,true objShell.Run "cmdkey /add:" & dstTargetHostE & " /user:" & dstUserName & " /pass:" & dstPassword,0,true objShell.Run "cmdkey /add:" & dstTargetHostF & " /user:" & dstUserName & " /pass:" & dstPassword,0,true