求教如何用vbs实现自动登录后的签到签退操作

想做一个自动签到签退的VBS程序，自动登录已经通过搜索实现了，但登录后onclick没有id，没有name不知道怎么操作了，网址是公司内网的，最后一句话加上去一点反应都没有，求大神帮忙，本人vbs菜鸟，分数有限。
已经写好的代码：
strAccount = "***"
strPassword = "***"
Dim IE
Set IE =CreateObject("InternetExplorer.Application")
IE.Navigate "http://***"
IE.Visible = True
Do
Wscript.Sleep 200
Loop Until IE.ReadyState=4
Set Form=IE.Document.getElementById("login_form")
Form.all("login_username").value = strAccount
Form.all("login_password").value = strPassword
Form.all("login_button").click
Wscript.Sleep 200
IE.Navigate "javascript:vPortalMainFrameElements.topRightsystemOperation.onlineCardClick()"

部分登录后的源码（这句是签到指示的地方 onclick="javascript:vPortalMainFrameElements.topRightsystemOperation.onlineCardClick()）：

<div class="webStyle">
<!-- 头部区 -->
<div class="seeyon-portal-header" id="seeyonPortalHeader">
<!-- 第一组：系统操作区 -->
<div class="seeyonElementGroup fixedTopRightOperation right">
<!-- 右侧操作区 -->
<div class="seeyonElement" id="systemOperationBtn" data-tpl="tpl-topRightsystemOperation"></div>
</div>
<!-- 第二组：logo、切换兼职单位、搜索 -->
<div class="seeyonElementGroup logoAndSearch">
<!-- 左侧：logo、切换兼职单位 -->
<div class="seeyonElementGroup logoNameConcurrent">
<!-- logo -->
<div class="seeyonElement height-inherit lineHeight-inherit" id="logoAndName" data-tpl="tpl-mediumLogo"></div>
<!-- 切换兼职单位 -->
<div class="seeyonElement" id="concurrentAccount" data-tpl="tpl-concurrentAccount"></div>
</div>
<!-- 右侧 大号的搜索元素 -->
<div class="seeyonElement height-inherit largeSearchOuterArea" id="largeSearch" data-tpl="tpl-largeSearch"></div>
</div>
</div>
<!-- 导航区 -->
<div class="seeyonElementGroup navHotspotsArea">
<!-- 单导航 -->
<div class="seeyonElement menuNavArea navElement" id="topNav" data-tpl="tpl-topNav"></div>
</div>
<!-- 中间区 -->
<div class="seeyon-portal-body" id="seeyonPortalBody">
<!-- 面包屑 -->
<div class="breadcrumb" id="breadcrumb"></div>
<!-- 栏目区 -->
<div class="main" id="main"></div>
</div>
</div>
<!-- 空间菜单区(hover至空间时出现) -->
<div class="seeyonElement" id="showSpaceMenus" data-tpl="tpl-showNavSpaceMenu"></div>
<!-- hover至空间时，需要展现的菜单区 -->
<div id="spaceMenuArea" class="spaceMenuArea" onmouseenter="javascript:showNavSpaceMenuArea(this)" onmouseleave="javascript:hideNavSpaceMenuArea(this)"></div>
<!-- 消息盒子(底部弹出) -->
<div class="seeyonElement" id="messageBox" data-tpl="tpl-messageBottom"></div>
<!-- 首页设置 -->
<div class="seeyonElement" id="topSkinSet" data-tpl="tpl-skinSet"></div>
</div>

<!-- 顶部右侧操作区 -->
<script id="tpl-topRightsystemOperation" type="text/html">
{{# if(vPortal.subPortal!="true"){ }}
<div class="topRightsystemOperation" id="topRightsystemOperationWidth">
<ul class="topIco">
{{# if(document.getElementById("onlineNumArea") == null ){ }}
<li class="account3in1">
{{# var _currentState = vPortal.currentState === "" ? "0" : vPortal.currentState; }}
<div class="onlineNum hand" class="onlineNumArea" onclick="javascript:vPortalMainFrameElements.topRightsystemOperation.onlineMember();"><span id="onlineNum">{{ vPortal.onlineNumber }}</span>{{ $.i18n('portal.onlineNum.label') }}</div>
<div class="smallHead" onclick="javascript:vPortalMainFrameElements.topRightsystemOperation.showPersonCenter()"><img id="memberImageUrl" width="22" height="22" src="{{ vPortal.memberImageUrl }}"></div>
<em></em>
</li>
{{# } }}
<li class="signBtn" title="{{=$.i18n('menu.sign.label')}}" style="{{# if(d.btnSign != '1' || vPortal.cardEnabled==false){ }}display: none{{# } }}">
<span onclick="javascript:vPortalMainFrameElements.topRightsystemOperation.onlineCardClick();" style="{{# if(d.btnSignStyle == 'icon'){ }}display: none{{# } }}">{{=$.i18n("menu.sign.label")}}</span>
<i onclick="javascript:vPortalMainFrameElements.topRightsystemOperation.onlineCardClick();" class="vportal vp-signIn" style="{{# if(d.btnSignStyle != 'icon'){ }}display: none{{# } }}"></i>
<em></em>
</li>