Avatar billede tony-tiger Nybegynder
01. juli 2004 - 21:56 Der er 6 kommentarer og
1 løsning

Tjekke windows brugernavn.

Hej.

I forbindelse med mit arbejde i en IT afdeling er jeg ved at udvikle et intranet. For at gøre dette intranet så simlet for brugeren som muligt skal jeg bruge noget kode der kan læse brugerenavnet der er logget på arbejdsstationen. Dette vil jeg bruge i forbindelse med identificeringen af brugere, så man undgår endnu et irriterende logon. Er der nogen der kender noget kode der kan klare dette lille nummer, vil jeg blive en glad mand :)

NB: Vi kører et Novell nerværk, og har derfor ikke noget microsoft domain. Serveren det skal ligge på bliver en win2k server.

Venlig hilsen, og på forhånd tak
Michael Nielsen
Avatar billede tubber Juniormester
01. juli 2004 - 22:26 #1
Du skal nok ha fat i noget adsi kigger lige om jeg kan finde noget mere konkret :)
Avatar billede tony-tiger Nybegynder
01. juli 2004 - 22:36 #2
Okay, takker :)
Avatar billede tubber Juniormester
01. juli 2004 - 22:36 #3
Jeg syntes ikke rigtigt jeg kan finde noget men leder vidre.....

Her er dog en stump kode fra en loginform jeg har lavet i VB......

'Dimensioning variables and objects
'Remember to use the Reference : Active DS Type Library
Option Explicit
Dim dso As IADsOpenDSObject
Dim domain As IADsDomain
Dim vUser As String
Dim vPass As String
Dim vDomain As String
'This button ends the application
Private Sub cmdClose_Click()
    Unload Me
    End
End Sub
'This button logs you on the domain
Private Sub cmdVerify_Click()
'If there is an error the errorhandler catches it
On Local Error GoTo ErrorHandler
    'The text fileds where you enter your info
    vUser = txtUser.Text
    vPass = txtPass.Text
    vDomain = txtDomain.Text
    'Tells that it is a WinNT domain
    Set dso = GetObject("WinNT:")
    'Gets the variables into the ADSI and contacts the Domain Controler
    Set domain = dso.OpenDSObject("WinNT://" & vDomain & "", "" & vUser & "", "" & vPass & "", ADS_SECURE_AUTHENTICATION)
Exit Sub
Avatar billede tony-tiger Nybegynder
01. juli 2004 - 22:48 #5
Nu er jeg ikke specielt hardcore. Kan faktisk mere eller mindere kun noget simpelt asp :/ Så det siger mig ikke så meget :(
Avatar billede tubber Juniormester
01. juli 2004 - 23:06 #6
Example: Log on as JSmith
Dim dso As IADsOpenDSObject
Dim domain As IADsDomain
Set dso = GetObject("WinNT:")
Set domain = dso.OpenDSObject("WinNT://ArcadiaBay", "JSmith", "secret", ADS_SECURE_AUTHENTICATION)

Her er koden for at logge på, men at få brugerens logon er et client script man skal ha fat i der, som så kan smide variablen ind i den kode her....
Avatar billede tony-tiger Nybegynder
05. juli 2004 - 15:57 #7
Har fundet på noget andet - Lukker
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester