VB实现网站自动登录，报错，求大神指正

Question

公司有个平台，每次登录输入密码好麻烦，就找了个这么个自动登录的，起先是这样的：
Dim username,password,IE '定义变量
username = "admin" '用户名
password = "123" '密码
Set IE =CreateObject("InternetExplorer.Application") '调用IE程序
IE.FullScreen=0 '全屏化IE对象
IE.Visible = True '窗口可视化
IE.Navigate "http://itsm/prime/index.pl" '打开ITSM平台网页
Do while IE.ReadyState<> 4 or IE.busy '用循环语句确保网页加载完毕才执行下面操作
loop
IE.document.getElementById("User").value=username '输入账户
IE.document.getElementById("Password").value=password '输入密码
IE.document.getElementById("LoginButton").click '模拟点击“登录”按键
但是这个代码运行的时候，必须先手动点开一个IE窗口才能运行，否则会报错

---

后来试了一下直接调用程序的方法，代码如下：
Dim username,password,IE,A '定义变量
Set A =createobject("wscript.shell")
username = "admin" '用户名
password = "123" '密码
IE = """C:\Program Files\Internet Explorer\iexplore.exe"""
A.Run IE
IE.FullScreen = 0 '全屏化IE对象
IE.Visible = True '窗口可视化
IE.Navigate "http://itsm/prime/index.pl" '打开ITSM平台网页
Do while IE.ReadyState<> 4 or IE.busy '用循环语句确保网页加载完毕才执行下面操作
loop
IE.document.getElementById("User").value=username '输入账户
IE.document.getElementById("Password").value=password '输入密码
IE.document.getElementById("LoginButton").click '模拟点击“登录”按键
但是还是又报了另一个错误。。

求教大神，这个玩意儿怎么改改才能正常使用