如何得到本机登陆账号

如何在这里得到本机登陆账号
<td >员工号:<input type=text name="bbcxj" size=10>

以下是代码

<%@language="VBSCRIPT"%>
<title>考勤数据</title>
<center>
  考勤数据<p><br>
  </p>
</center>
<p>  
  <%

dim Fromday,Today  
dim TempDate  
TempDate=formatdatetime(date()-1,2)
Today=Cstr(Year(TempDate))

if Month(TempDate)<10 then
Today=Today+"0"+Cstr(Month(TempDate))
else
Today=Today+Cstr(Month(TempDate))
end if

'设置查询开始日期为当月的第１天
Fromday=Today+"01"  

if Day(TempDate)<10 then
Today=Today+"0"+Cstr(Day(TempDate))
else
Today=Today+Cstr(Day(TempDate))
end if

'Response.Write Today
%>
<form method="POST" action="hl_query.asp">
  <table align="center" border=1>
<tr>
<td >查询开始日期:<input type=text name="bbcxksrq" value=<%=Fromday%> size=10>
<td >查询结束日期:<input type=text name="bbcxjsrq" value=<%=Today%> size=10>
<td >员工号:<input type=text name="bbcxj" size=10>
</tr>
<tr>
<td colspan="2" align="center">
<input type="submit" value="提交查询">
&nbsp;
<input type="reset" value="重置查询">
</td>
</tr>
</table>
</form>
<p>  
<div align="center"><br>
</div>
<hr>
<div align="center">建议屏幕分辨率1024*768 </div>
<hr>
<div align="center"></center> </div>
</body>