查登录时间

'<script language="vbscript">
OPTION EXPLICIT

DIM oNet, strComputerName, strUserName, strUserDomain
SET oNet = CreateObject("WScript.Network")
strComputerName = oNet.Computername
strUserName = oNet.UserName
strUserDomain = oNet.UserDomain
'msgbox strUserDomain
SET oNet = nothing

DIM oUser, strReturn
on error resume next
SET oUser = GetObject("WinNT://" & fnGetWorkgroupName(".") & "/" & strComputerName & "/" & strUserName & ",user")
strReturn = oUser.LastLogin
on error goto 0
SET oUser = nothing

IF isDate(strReturn) THEN
    strReturn = cdate(strReturn)
    strReturn = Replace(strReturn, ":" & Right(0 & Second(strReturn), 2) & " ", "")    'drop seconds
END IF

On Error Resume Next
    call WScript.Echo(strReturn)    'for cmd line
    call Echo(strReturn)    'for BGInfo
on error goto 0

' gets current workgroup
' params: computer name (can take "." for current computer instead)
' returns: string of computer's current workgroup
FUNCTION fnGetWorkgroupName(p_strComputer)
    DIM colItems, oItem
    Set colItems = GetObject("winmgmts:\\" & p_strComputer & "\root\cimv2").ExecQuery("Select * from Win32_ComputerSystem",,48)
    For Each oItem in colItems
        fnGetWorkgroupName = oItem.Domain
    Next
    SET colItems = nothing
END FUNCTION

隐藏  BAT 窗口 CreateObject("WScript.Shell").Run "cmd /c runbgi.bat",0