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
<CODE>
Declare Function GetUserName Lib
"advapi32.dll" Alias "GetUserNameA"
(ByVal lpBuffer As String, nSize As Long)
Call GetUserName(strUser, lngCnt)
</CODE>
(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