Vbscript Kodlarını Asp.Net(VB) Çevirmek(Yardım)
-
VB yazdım ama (c# da olur) 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 gönderilen sorguya göre 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("ADSystemInfo") '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("LDAP:") Set LDAPKlasor = LDAP.OpenDSObject("LDAP://" & host & "/RootDSE", _ HostKullaniciAdi, HostKullaniciSifre, _ ADS_SERVER_BIND Or ADS_SECURE_AUTHENTICATION) alinanKlasor = LDAPKlasor.Get("defaultNamingContext") Set adoKomut = CreateObject("ADODB.Command") Set adoBaglanti = CreateObject("ADODB.Connection") adoBaglanti.Provider = "ADsDSOObject" adoBaglanti.Properties("User ID") = HostKullaniciAdi adoBaglanti.Properties("Password") = HostKullaniciSifre adoBaglanti.Properties("Encrypt Password") = True adoBaglanti.Properties("ADSI Flag") = ADS_SERVER_BIND _ Or ADS_SECURE_AUTHENTICATION adoBaglanti.Open "Active Directory Provider" adoKomut.ActiveConnection = adoBaglanti genelKlasor = "<LDAP://" & host & "/" & alinanKlasor & ">" 'sorguFiltre = "(&(objectCategory=person)(objectClass=user))" sorguFiltre = "(&(objectCategory=person)(objectClass=user)(cn=TOLGA Y*) (whenCreated>=20100101000000.0Z))" OUDegiskeni = "distinguishedName" gonderilecekKomut = genelKlasor & ";" & sorguFiltre & ";" _ & OUDegiskeni & ";subtree" adoKomut.CommandText = gonderilecekKomut adoKomut.Properties("Page Size") = 100 adoKomut.Properties("Timeout") = 30 adoKomut.Properties("Cache Results") = False Set adoKayit = adoKomut.Execute OUDegiskeniDegeri = adoKayit.Fields("distinguishedName").Value Do Until adoKayit.EOF OUDegiskeniDegeri = adoKayit.Fields("distinguishedName").Value Set kullanici = GetObject("LDAP://" & OUDegiskeniDegeri) 'manuel girilenin bilgisini verir WScript.Echo "Bulunan: " & kullanici.displayName 'msgbox adoKayit.MoveNext Loop adoKayit.Close adoBaglanti.Close
-
Sorunum devam ediyorr