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}"