就是用javascript 实现一下功能
VB CodePrivate Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpbuffer As String, nSize As Long) As LongPublic Function GetNetworkUser() As String
Dim lngNUserSize As Long
Dim strNetUserName As StringlngNUserSize = 255
strNetUserName = Space(lngNUserSize)
If GetUserName(strNetUserName, lngNUserSize) <> 0 Then
    strNetUserName = Left$(strNetUserName, lngNUserSize - 1)
Else
    strNetUserName = "DEFAULT"
End If
GetNetworkUser = UCase(strNetUserName)
End Function