vbscript

4/1から残業申請を3時までに行う必要があるので、自分のリマインダー用にタスクスケジューラーとVBScriptで通知を出すようにした。 これだけなら前からやっているが、今回は残業をYes, Noで選択してYesなら残業申請画面(Webアプリ)を表示するようにしてみた。

Set objShell = CreateObject("InternetExplorer.Application") 
 
intMessage = Msgbox("今日残業をしますか？", _ 
    vbYesNo, "残業申請タイム") 
 
If intMessage = vbYes Then 
    objShell.Visible = True
    objShell.Navigate("WebアプリのURL") 
Else
    Wscript.Quit 
End If

今はアプリにログインする認証画面が求められるが、下記を参考にしてログイン・申請までを自動化したい。 qiita.com