就是用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
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
var WshNetwork = new ActiveXObject("WScript.Network");
document.writeln("Domain = " + WshNetwork.UserDomain);
document.writeln("Computer Name = " + WshNetwork.ComputerName);
document.writeln("User Name = " + WshNetwork.UserName);
}
</script>
但是有没有别的办法可以不出现ActiveX警告信息呢?