Ich will ein Programm in VB4 schreiben, daß in abhängigkeit von dem eingelockten User (Terminal-Server) ein Programm aus jeweils eine anderen Pfad aufruft. Nur wie bekomme ich den Username heraus, und wie bekomme ich alle möglichen User auf den Rechner per Programm heraus (mit Admin-Acount).
Danke im Vorraus
So bekommst du den User-Namen:
'-------------------------------------------Public Declare Function GetUserName Lib „advapi32.dll“ Alias „GetUserNameA“ (ByVal lpBuffer As String, nSize As Long) As Long
Public Function myGetUserName() As String
Dim strUser
Dim lngCnt
lngCnt = 255
strUser = Space$(lngCnt)
Call GetUserName(strUser, lngCnt)
myGetUserName = Left$(strUser, lngCnt - 1)
End Function
'-------------------------------------------
Zur User-Liste mit Admin-Account kann ich leider nicht weiterhelfen - geht das überhaupt?!?!
greets from MichL (Vienna)
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]
Erstmal Danke allerdings ein kleiner Fehler war noch drinnen
Declare Function GetUserName Lib
„advapi32.dll“ Alias „GetUserName A“
(ByVal lpBuffer As String, nSize As Long)
Call GetUserName (strUser, lngCnt)
(Alias Namen verwenden)
Hallo zusammen
Bei mir funktioniert’s nicht - in Access 97 und Windows NT 4.0 mit SP 4. Ich bekomme immer einen leeren String zurück.
Was mache ich falsch?
TIA & Gruss
Martin Bucher, Zürich