Inte username utan hela namnet...

[Jakob A]

Hej!

 

 

Jag undrar om det finns någon setvariabel (eller liknande) för den person som är påloggad. Jag vill inge ha "UserName" utan personens hela namn (ex. Kalle Karlsson). Kan man få ur denna information på något sätt?

 

/Jakob

[ZanY]

Det lättaste är att använda ADSI. Det här fungerar i NT, tror det fungerar i AD också, ev får du modifiera lite...

Set UserObj = GetObject("WinNT://domain/UserName)
msgbox UserObj.FullName

 

/Mn

Slartibartfast: Is that your robot? Marvin: No. I'm mine.

 

 

[XL-Dennis]

Jakob,

 

Följande bör ge dig en start att lösa det:

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

Function UserName() As String
Dim Buffer As String * 100
Dim BuffLen As Long
BuffLen = 100
GetUserName Buffer, BuffLen
UserName = Left(Buffer, BuffLen - 1)
End Function

 

 

Mvh

Dennis

Besök Sveriges ledande oberoende webbplats om MS Excel: http://www.xldennis.com

 

[ZanY]

Dennis:

 

Anser du att det är bättre att använda API istället för ADSI? Varför?

(se inte frågan som provocerande, jag är ganska novis, och vill bara veta...)

 

/Mn

Slartibartfast: Is that your robot? Marvin: No. I'm mine.

 

 

[Jakob A]

 

Tack för hjälpen. Något av det skall nog lösa mitt problem. Jag tycker båda svaren var bra

 

[XL-Dennis]

Zany,

 

(se inte frågan som provocerande, jag är ganska novis, och vill bara veta...)

 

Absolut inte!

 

Min ärliga svar är att jag är "uppvuxen" med API och har svårt att anamma ADSI.

 

Mvh

Dennis

Besök Sveriges ledande oberoende webbplats om MS Excel: http://www.xldennis.com

 

[Stefan B Karlsson]

Min uppfattning är att API är ett gränssnitt utåt åt oss programmerare som gör att vi (till stor del) kan strunta vad som ligger bakom.

 

Just detta exempel är perfekt för att förklara varför.

I ADSI-fallet så arbetade du direkt mot NTs ActiveDirecty, men skulle ditt program köras på en win98 så skulle det knappast funka. Men använder jag API-anropet GetUserName så kommer det att funka på alla winversioner som stöder GetUser, vilket gör att jag får mindre moddning av programmet.

 

men det är bara mina 5 cents.. Andra som har kommentarer?