三歩あるけば物も忘れる

GoogleChromeでWebサイトに自動ログオンする目的で作ったスクリプト
ブラウザにアカウントを記憶させていなく、毎回アカウント入力めんどくさいので。
IEの情報は沢山ありますが、Chromeの情報少ないので記載。

WebAutoLogon.vbs

Dim objWshShell
Dim GC
 
Set objWshShell = WScript.CreateObject("WScript.Shell")
Set GC = CreateObject("WScript.Shell")
GC.Run ("chrome.exe --incognito -url [入りたいサイト]")
 
objWshShell.AppActivate "chrome.exe"
WScript.Sleep 5000
 
Call CreateObject("Wscript.Shell").Run("%COMSPEC% /c echo " & "[アカウントID]" & "|clip",0)
WScript.Sleep 1000
objWshShell.SendKeys ("^V")
objWshShell.SendKeys "{Enter}"
WScript.Sleep 2000
Call CreateObject("Wscript.Shell").Run("%COMSPEC% /c echo " & "[アカウントPass]" & "|clip",0)
WScript.Sleep 1000
objWshShell.SendKeys ("^V")
objWshShell.SendKeys "{Enter}"

アカウントの入力はクリップボード経由で行っています。
キー入力だと全角の場合に日本語で入ってしまうサイトがある為

GC.Run (“chrome.exe –incognito -url [入りたいサイト]”)
→「–incognito 」はシークレットモードで起動

Call CreateObject(“Wscript.Shell”).Run(“%COMSPEC% /c echo ” & “[アカウントID]” & “|clip”,0)
→[アカウントID]をクリップボードにコピー

objWshShell.SendKeys (“^V”)
→貼り付け

objWshShell.SendKeys “{Enter}”
→エンター入力

WScript.Sleep 1000
→1000ms待機