Bruger- og domænenavn på windows 98

Lav en Form med Winsock på sæt dens Name til Winsock der efter tilføj 2 labels (Label1, Label2)
insæt følgende kode i Form_Load
-------------------------------
Private Sub Form_Load()
Get_User_Name
Label1 = Winsock.LocalHostName
Label2 = UserName
End Sub
-------------------------------

Insæt følgende som et nyt Sub:
-------------------------------
Sub Get_User_Name()
    Dim lpBuff As String * 25
    ret = GetUserName(lpBuff, 25)
    UserName = Left(lpBuff, InStr(lpBuff, Chr(0)) - 1)
End Sub
-------------------------------

Insæt følgende i generel:
-------------------------------
Dim UserName As String
-------------------------------

Insæt følgende API kald i et nyt modul (Du bestemmer selv navnet)
-------------------------------
Option Explicit
Declare Function GetUserName Lib \"advapi32.dll\" Alias \"GetUserNameA\" (ByVal lpBuffer As String, nSize As Long) As Long
Declare Function GetComputerName Lib \"kernel32\" Alias \"GetComputerNameA\" (ByVal lpBuffer As String, nSize As Long) As Long
-------------------------------

Så skulle du få det du vil have :)

Truti
ICQ: 72755522
HP: http://home1.stofanet.dk/truti/