VBSでPlink.exeに読み込ませるコマンドファイルを作成するのですが、結局 plink.exe がうまいこといかなかったのでNGですが。。書いておきます。
ここでは、MAC.log ファイルにMACアドレス一覧を一行ずつ入力しておいて、そのファイルを読み込ませてアクセスリストを作ってます。
作成したアクセスリストを plink.exe に読み込ませて、リストを一括作成！という予定だったのです。。
無線のMACアドレス制限をコントローラを使わずに、安く一括管理！という想定だったのです。
仕方ないから TeraTerm のマクロでやりますかね。。 sendkey だとあんまりかっこよくないのでやりたくなかったのです。
--------------------------------------------------------------------------------------
Dim objFS, objFolder
Dim strPath
Const ForReading = 1
Const ForWriting = 2
Const ForAppending = 8
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder("..")
strPath = objFolder.Path
Set objFile = objFSO.OpenTextFile(strPath & "\MAC-Update\MAC-list\MAC.log", ForReading)
strContents = objFile.ReadAll
objFile.Close
Dim arrLines
Dim MACCount
arrLines = Split( strContents, vbCrLf )
MACCount = UBound(arrLines)
MsgBox("作成するMACリスト数は" & MACCount - 1 & "です。")
Dim i
For i = 0 to MACCount - 2
outFile.WriteLine "access-list 711 permit " & arrLines(i) & " 0000.0000.0000"
Next
outfile.Close
MsgBox("テスト完了")
--------------------------------------------------------------------------------------
Tweet
