VBscript问题

Question

用VBScript编程
怎么得到系统的当前时间和当前用户名?

Answer 1

当前时间用Now得到得到用户名字：
Option ExplicitPrivate Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As LongPrivate Sub Form_Load()
    Dim strUserName As String    strUserName = String(100, Chr$(0))
 
    GetUserName strUserName, 100
   
    strUserName = Left$(strUserName, InStr(strUserName, Chr$(0)) - 1)    MsgBox strUserName
End Sub8过都是VB下的程序....

Answer 2

Dim WSHNetwork
Dim colDrives, SharePoint
Dim CRLFCRLF = Chr(13) & Chr(10)
Set WSHNetwork = WScript.CreateObject("WScript.Network")MsgBox "UserDomain"     & Chr(9) & "= " & WSHNetwork.UserDomain  & CRLF &   _
       "UserName"       & Chr(9) & "= " & WSHNetwork.UserName    & CRLF &   _
       "ComputerName"   & Chr(9) & "= " & WSHNetwork.ComputerName,          _
       vbInformation + vbOKOnly,                                            _
       "WSHNetwork 属性"

Answer 3

time函数可返回系统的当前时间