プロジェクト

全般

プロフィール

スクリプト

・MyDNSへのpush用スクリプト

Dim objIE
Set objIE = CreateObject("InternetExplorer.Application")
objIE.Silent = True
objIE.Visible = True
Dim strURL
strURL = "http://www.mydns.jp/login.html"
objIE.navigate2 strURL, 2, Nothing, Nothing, "Authorization: Basic USER:PASS"
WScript.Sleep 5000
objIE.Quit

USER:PASSはBASE64にエンコードする。
(https://hogehoge.tk/tool/)

項目 説明
dim 変数の宣言
set 変数の値の設定
objIE.Silent ダイアログボックス表示
objIE.Visible ブラウザ表示



・Gmailを使用したメール送信スクリプト

Dim objMail
Set objMail = CreateObject("CDO.Message")
objMail.From = "Gmailアドレス"
objMail.To = "Gmailアドレス"
objMail.Subject = "件名:メール送信テスト"
objMail.TextBody = "本文:これはメール送信テストです。"

strConfigurationField ="http://schemas.microsoft.com/cdo/configuration/"
With objMail.Configuration.Fields
    .Item(strConfigurationField & "sendusing") = 2
    .Item(strConfigurationField & "smtpserver") = "smtp.googlemail.com"
    .Item(strConfigurationField & "smtpserverport") = 465
    .Item(strConfigurationField & "smtpusessl") = true
    .Item(strConfigurationField & "smtpauthenticate") = 1
    .Item(strConfigurationField & "sendusername") = "Gmailアドレス"
    .Item(strConfigurationField & "sendpassword") = "Gmailパスワード"
    .Item(strConfigurationField & "smtpconnectiontimeout") = 60
    .Update
end With
objMail.Send
Set objMail = Nothing

googleの[アカウント設定]で [ログインとセキュリティ]-[接続済みのアプリとサイト]の≪安全性の低いアプリの許可≫を【無効】から【有効】にする。
セキュリティが下がるので、おすすめはできない方法ですがナレッジとして残しました。

自動ログイン

'マスターIDとマスターパスワード
masterid  = "test"
masterpassword = "1234"

'IEの起動
Dim objIE
Set objIE = WScript.CreateObject("InternetExplorer.Application")
objIE.Visible = True

'ログインページ表示
objIE.Navigate "https://help.iij.ad.jp/"

'ページの表示を待つ
While objIE.ReadyState <> 4 Or objIE.Busy = True
WScript.Sleep  500
Wend

'マスターID
Set objU = objIE.Document.getElementsByName("username") 

If objU.Length = 0 Then
Msgbox
WScript.Quit
End If

objU(0).Value = masterid
Set objU = Nothing

'マスターパスワード
objIE.Document.getElementsByName("password").Item(0).Value = masterpassword

'ログインボタンを探して押す
Set objA = objIE.Document.getElementsByTagName("input")
For n = 0 To objA.Length - 1
If Instr(objA(n).OuterHTML,"ログイン") > 0 Then
objA(n).Click 
Exit For
End If
Next

 'オブジェクト変数解放
Set objINPUT = Nothing  
Set objINPUT = Nothing