Option Explicit<BR>Private Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long<BR>Private Function UserName() As String<BR>Const UNLEN = 256 &#039 Max user name length.<BR>Dim user_name As String<BR>Dim name_len As Long<BR><BR> user_name = Space$(UNLEN + 1)<BR> name_len = Len(user_name)<BR> If GetUserName(user_name, name_len) = 0 Then<BR> UserName = "&#060;unknown&#062;"<BR> Else<BR> UserName = Left$(user_name, name_len - 1)<BR> End If<BR>End Function<BR>Private Sub Form_Load()<BR><BR>Label5.Caption = UserName()<BR>End Sub<BR><BR>In light of Microsoft&#039s (EYEDOG) recent blunder. I would like to know how to make the activex ctl for Grabbing the system user from a machine.<BR><BR>For anyone who is interested, here is the Security Bulletin Link<BR> http://www.microsoft.com/security/bulletins/MS99-032faq.asp<BR><BR>I want to make sure that my company&#039s computers are not vunerable to this call from the net.<BR><BR>Any help would be greatly appreciated.<BR><BR>Jason