Hente UserDB i Win2k

Du skal kigge på Windows API kald. Specielt NetUserEnum. Den funktion kan give dig alle brugere på en maskine, på en server eller på et netværk.

Hvilken fil skal jeg så finde NetUserEnum i ?

NetUserEnum er en funktion i Windows, og er den windows selv bruger for at kunne liste alle brugerne f.eks. i User Manager.

Den ligger i en DLL fil, men hvilken behøver du ikke bekymre dig om. Jeg gætter på at du i VB bare kan bruge funktionsnavnet (med parametre) og det bør compileren godkende.

Jeg er ikke ekspert i VB og kan derfor ikke give dig den exacte kode, men vi har haft et tilsvarende spm. før og der var nogle der kom med eksempler på hvordan man bruger API kald i VB.

Jeg prøver at søge i svarene fra tidligere og vender tilbage med hvadjeg finder.

Som lovet er her nogle søgeresultater:

Tælle keys i registry. Bruger AdvApi32.dll. Se spm.: http://www.eksperten.dk/spm/13645

Find Winvow. Bruger User32.dll. Se Spm.: http://www.eksperten.dk/spm/12066

I denne er der et par links til source ex. for VB: http://www.eksperten.dk/spm/10531

Her er der et spm. der vedr. det at finde en bruger: http://www.eksperten.dk/spm/7522

Her er et der vedr. WinAmp og sendmessage, men det viser lid tom API kald: http://www.eksperten.dk/spm/1077

Det her handler om vinduer, men har dels nogle link og dels en masse om API:http://www.eksperten.dk/spm/1876

Jeg håber det kan hjælpe dig lidt på vej

Aps den sidste link smuttede:

Det her handler om vinduer, men har dels nogle link og dels en masse om API: http://www.eksperten.dk/spm/1876

Jeg fandt selv ud af det :O))
Koden er som følger hvis der er andre der skal bruge det.

Jeg har to textboxe en der hedder user og en der hedder pass.

Først skal variablerne sættes :

      Option Explicit
      Dim dsObject As IADsOpenDSObject
      Dim dsDomain As IADsDomain
      Dim vUser As String
      Dim vPass As String

Der efter skal følgende kode sættes ind hvor man nu vil chekke med sit domaine :

      Private Sub cmdLogin_Click()
      vUser = user.Text
      vPass = pass.Text
      Set dsObject = GetObject(\"WinNT:\")
      Set dsDomain = dsObject.OpenDSObject(\"WinNT://DitDomain\", vUser, vPass, ADS_SECURE_AUTHENTICATION)
      End Sub

Her det her tilfælde er det i en knap det i en knap.
Husk følgende reference : Active DC Type Libary

Men jeg smed lige nogle points din vej :O))
Det det ikke har været helt unyttigt det du er kommet med :O)