VB yazdım ama beceremedim.. asp. net e mümkünmü çevirmek? yada asp. net te vbscript kodu çalıştırabilirmiyiz? Active directory ile ldap bağlantısı yapıp gnderilen sorguya gre bulunan sonuçları yazdırıyor Option Explicit Dim LDAPKlasor, alinanKlasor, adoKomut, adoBaglanti Dim genelKlasor, sorguFiltre, OUDegiskeni, gonderilecekKomut, adoKayit Dim OUDegiskeniDegeri, HostKullaniciAdi, HostKullaniciSifre, LDAP, host Dim DegiskenVerici, kullanici ' Değişkenler tanımlanır Set DegiskenVerici = CreateObject 'Obje tanımlanır Const ADS_SECURE_AUTHENTICATION = &H1 Const ADS_SERVER_BIND = &H200 host = "10.0.3.248:389" HostKullaniciAdi = "LDuser" HostKullaniciSifre = "A1s" Set LDAP = GetObject Set LDAPKlasor = LDAP. OpenDSObject alinanKlasor = LDAPKlasor. Get Set adoKomut = CreateObject Set adoBaglanti = CreateObject adoBaglanti. Provider = "ADsDSOObject" adoBaglanti. Properties = HostKullaniciAdi adoBaglanti. Properties = HostKullaniciSifre adoBaglanti. Properties = True adoBaglanti. Properties = ADS_SERVER_BIND _ Or ADS_SECURE_AUTHENTICATION adoBaglanti. Open "Active Directory Provider" adoKomut. ActiveConnection = adoBaglanti genelKlasor = "<LDAP://" & host & "/" & alinanKlasor & ">" 'sorguFiltre = "(& " sorguFiltre = "(& (whenCreated>=20100101000000.0Z))" OUDegiskeni = "distinguishedName" gonderilecekKomut = genelKlasor & ";" & sorguFiltre & ";" _ & OUDegiskeni & ";subtree" adoKomut. CommandText = gonderilecekKomut adoKomut. Properties = 100 adoKomut. Properties = 30 adoKomut. Properties = False Set adoKayit = adoKomut. Execute OUDegiskeniDegeri = adoKayit. Fields . Value Do Until adoKayit. EOF OUDegiskeniDegeri = adoKayit. Fields . Value Set kullanici = GetObject 'manuel girilenin bilgisini verir WScript. Echo "Bulunan: " & kullanici. displayName 'msgbox adoKayit. MoveNext Loop adoKayit. Close adoBaglanti. Close DE5TROY3R tarafından 13/Tem/16 21:12 tarihinde düzenlenmiştir

Sorunum devam ediyorr