[VB6] hvordan man forbinder til en Win 2000 server?

Du skal bruge referencen Active DS Type Library

Her kommer koden for at logge ind som admin....:

Option Explicit
Dim dso As IADsOpenDSObject
Dim domain As IADsDomain

On Local Error GoTo ErrorHandler

    Set dso = GetObject("WinNT:")
    Set domain = dso.OpenDSObject("WinNT://Domain","Administrator","Password", ADS_SECURE_AUTHENTICATION)
Exit Sub
ErrorHandler:
    If Err = -2147023570 Then MsgBox "Unknown User or Bad Password", , "Login Failure"
    If Err = -2147467259 Then MsgBox "Unknown Domain", , "Login Failure"
Exit Sub

Hvis det har interesse kan jeg godt ligge et eksempel til download hvor der er en login form.......

Hov var et svar.....

Og skulle du komme efter det skal være til en Linux/Unix/BSD server skriver du UNIX der hvor der står WinNT

Her er den så :O)

http://www.zentasoft.dk/Login_by_ZentaSOFT.zip

tubber> Hvor finder man activeds.tlb, det ser ikke ud til den findes i Windows 98?

Mit umidelbare bud vil være at du skal installere en servicepack......

http://msdn.microsoft.com/vstudio/downloads/updates/sp/vs6/sp5/default.aspx <-- sp5 til visual studio....kigger lige efter en der kun er til vb, da den nok fylder mindre

http://www.microsoft.com/downloads/details.aspx?FamilyID=bf9a24f9-b5c5-48f4-8edd-cdf2d29a79d5&DisplayLang=en <-- den var der, men jeg er ikke sikker på den indeholder alle de updates der er i den til hele visaul studio.......

Skal lige siges jeg har ikke haft problemer med den mangler den activeds.tlb så det er et skud i tågen.....

Har installeret SP5 for noget tid siden ca. 58MB. :o(