http://pnpk.net

Xserverのアクセス解析画面がリニューアルされたんだけど、今回からアクセス解析画面を表示させるためにはいちいちサーバにログインしないといけなくて、面倒だったんでVBスクリプトで自動ログイン作ってみました。

Windows XP SP2＋IE6.0で動作確認しました。

処理をスマートにしたかったんだけど、ReadyStateの使い方がわからない部分が

Wscript.sleep(3000)

になっています。ダサいです。3000ミリ秒待つって事です。自動ログインを使ってみる場合には適当なテキストに以下をコピペして自分のユーザ名やらを追加した後拡張子をTXTからVBSに変更してください。

動くはずです・・・たぶん。

また、

Wscript.sleep(3000)

を使わない方法ご存じの方いらっしゃいましたら教えていただけると助かります。

'Xserver管理パネル自動ログインスクリプト

Option explicit
'オブジェクトの作成
Set IEObj = CreateObject("InternetExplorer.Application")

Dim username
Dim server_password
Dim ServerName
Dim Domain
Dim IEObj

'----------------------------
'例 username = "hogehoge"
username = ""
'例 server_password = "AAAAAAAA"
server_password = ""
'例 ServerName = "sv01"
ServerName = ""
'例 Domain = "pnpk.net"
Domain = ""
'----------------------------

'With XXXXでEnd WithまでXXXXを省略できるようになります。
With IEObj
    .Visible = True
'URL
    .Navigate "https://www.xserver.ne.jp/login/login4.html"
'メニューバーを表示するかどうか。
    .MenuBar = True

    While .Busy Or .ReadyState <> 4
    Wend

    '"xxxx"の値にそれぞれの値を入れます。
    .document.all.Item("username").Value = username
    .document.all.Item("server_password").Value = server_password
    .document.all.Item("sv").Value = ServerName

    'ボタンをクリック。
    .document.forms(0).submit

'//ここから解析のやつ
    Wscript.sleep(3000)

    .document.all.Item("setdomain").Value = Domain
    .document.all.Item("action_setdomain_change").Click

        Dim strYear
        strYear = Year(Now())
        Dim strMonth
        strMonth = Right("0" & Month( Now()),2)

    Wscript.sleep(3000)

        .Navigate("https://" & ServerName & _
".xserver.jp/serverpanel/index.cgi?action_analyze_display=on&year=" _
& strYear & "&month=" & strMonth & "&day=&domain=" & Domain)

End With

Set IEObj = Nothing

Popularity: 4%