モバイルルータ DATA08Wを契約しました。

モバイルルータ DATA08Wを契約しました。

auです。

http://www.au.kddi.com/seihin/ichiran/data/data08w/

このルータは3GとWiMAXのハイブリッドモバイルルータです。


WiMAXの電波の強度が５段階でわかります。


WiMAXは電波の感度が不安定です。
壁一枚で感度が変化しました。
ルータの設置位置や向きでも変化しました。

部屋での設置場所をさがしだすには電波強度をみるのが早いみたいです。

いろいろ調べてみたところこのルータにはRSSIをみている箇所がありました。

VBSでその値を取り出すためのスクリプトを作成しました。

Const RESPONSE_TEXT = "C:\response.txt" Dim oXMLHTTP Dim oStream Dim resData Dim result, i, j, idx1, idx2 Set oXMLHTTP = CreateObject("MSXML2.XMLHTTP.3.0") oXMLHTTP.Open "GET", URL, False oXMLHTTP.Send If oXMLHTTP.Status = 200 Then     Set oStream = CreateObject("ADODB.Stream")     oStream.Open     oStream.Type = 1     oStream.Write oXMLHTTP.responseBody     oStream.SaveToFile RESPONSE_TEXT     oStream.Close     resData = ReadTextAll(RESPONSE_TEXT)     idx1 = InStr ( 1 , resData , "var ppp_4G_info = " )     idx2 = InStr ( idx1 , resData , ";" )     result = Mid ( resData , idx1 + 19 , idx2 - idx1 - 20 )     j = 1     For i = 1 To 8         j = InStr ( j , result, "," ) + 1     Next     result = Mid ( result , j + 1, len(result) - j - 1)     result = "RSSI : " + result         MsgBox result End If Function ReadTextAll(filePath)     Dim objFSO     Dim resStream     Dim resData         Set objFSO  = WScript.CreateObject("Scripting.FileSystemObject")     Set resStream = objFSO.OpenTextFile(filePath, 1)     resData = resStream.ReadAll     resStream.Close     objFSO.DeleteFile filePath     ReadTextAll = resData End Function

上のスクリプトをメモ帳に貼り付けてファイル名の拡張子.vbsで保存しダブルクリックで動きます。

そうすると以下のようになります。

モバイルルータの置き場所を数十センチ違うだけで電波の強さが変わりました。
モバイルルータをもって部屋をうろつきまわると最大信号強度の位置がどこなのか発見できます。