Bruger- og domænenavn på Windows 98

Det har jeg selv engang spurgt om, og siden svaret på flere gange.  Se http://www.eksperten.dk/spm/7522

M.v.h.  Jørn

Hej Jørn.

Den har jeg prøvet, men fik en ActiveX can create object da jeg kørte den på Win98. Muligvis brugte jeg den forkert?
I øvrigt giver den kun brugernavnet og ikke også hvilket domæne brugeren er logget på.

Mads

nu har jeg ikke winnt men det skulle vel ikke være \"hostname\" der er \"userdomain\" ???

\'------------------------------------------------ Form1 ------------------------------------------------
Private Declare Function GetHostName Lib \"WSOCK32\" Alias \"gethostname\" (ByVal szHost As String, ByVal dwHostLen As Long) As Long
Private Declare Function WSAStartup Lib \"WSOCK32\" (ByVal wVersionRequired As Long, lpWSADATA As WSAData) As Long

Const WS_VERSION_REQD As Long = &H101
Const MAX_WSADescription = 256
Const MAX_WSASYSStatus = 128

Private Type WSAData
    wVersion As Integer
    wHighVersion As Integer
    szDescription(0 To MAX_WSADescription) As Byte
    szSystemStatus(0 To MAX_WSASYSStatus) As Byte
    wMaxSockets As Integer
    wMaxUDPDG As Integer
    dwVendorInfo As Long
End Type

Public Function HostName() As String
Dim WSAD As WSAData
Dim sHostName As String * 256
  WSAStartup WS_VERSION_REQD, WSAD
  GetHostName sHostName, MAX_WSADescription
HostName = sHostName
End Function

Private Sub Form_Load()
  Me.Caption = HostName \'?Userdomain
End Sub
\'------------------------------------------------ Form1 ------------------------------------------------

Nej. Det giver bare navnet på computeren.

Hey.

Har selv fundet en løsning der virker på:

http://www.vbcode.com/asp/showzip.asp?ZipFile=osinfo.zip&theID=56

Mads

UPS...

Sorry, jeg havde en forkert IE åben og troede jeg svarede på noget andet...

Jeg opretter spørgsmålet igen...!!!!!!

Mads