PDA

Vollständige Version anzeigen : Angemeldeten Benutzer aus Windows auslesen!


anton
26.01.2001, 18:58
Hallo

Ich habe ein Problem beim auslesen des angemeldeten Windows-Benutzers auf einer Workstation, weiters würde ich Hilfe zum auslesen des Computernames benötigen.

Habe zwar schon zwei Funtions ausprobiert diese funktionierten jedoch nicht. Kann mir jemand die Codes für die Aufgaben zukommen lassen.

Bereits jetzt vielen Dank
Anton Leitner

ransaier
26.01.2001, 19:12
Hallo Anton,

diese Funktionen habe ich bei mir eingesetzt (habe ich hier im Forum vor einiger Zeit gefunden).

Public Declare Function GetComputerName Lib "Kernel32" _
Alias "GetComputerNameA" (ByVal lpBuffer As _
String, nSize As Long) As Long

Public Declare Function GetNetworkUserName Lib "advapi32.dll" _
Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long


Public Function NetworkUserName() As String

Dim strBuffer As String, _
lngBufferSize As Long, lngWork As Long

lngBufferSize = 255
strBuffer = Space$(lngBufferSize)

lngWork = GetNetworkUserName(strBuffer,_ lngBufferSize)
NetworkUserName = Trim$(strBuffer)

End Function


Public Function ComputerName() As String

Dim strBuffer As String, intLang As Integer

strBuffer = Space$(255)
intLang = GetComputerName(strBuffer, 255)
intLang = InStr(strBuffer, Chr$(0))
ComputerName = Left(strBuffer, intLang)

End Function

Viel Spaß, Michael

anton
26.01.2001, 20:12
Hallo Michael!
Danke für die Funtions.
Beim kompilieren bekomme ich jedoch immer einen Fehler.
Und zwar bei "Space$" ;"Projekt oder Bibliothek nicht auffindbar."
Habe ich vielleicht nicht die richtigen Verweise auf die Referenzen geladen.
Fällt dir dazu etwas ein.

Auf eine positive Antwort hoffend
Anton Leitner

ransaier
27.01.2001, 11:36
Hallo Anton,

ich habe einen Verweis auf folgende Referenzen:

Visual Basic for Applications
Microsoft Access 8.0 Object Library
Microsoft DAO 3.51 Object Library

Mehr kann ich Dir leider dazu auch nicht sagen.

Gruß, Michael