Forum
Merhaba Arkadaşlar,
Yapmak istediğim şey kısaca
İşyerine gelen misafirler TC kimlik numarası da dahil olmak üzere adı,soyadı gibi bilgileri bir sisteme girecek.
Güvenlik programa giriş yaptığında TC kimlik numarası AD de misafir grubuna otomatik eklenecek.
Bunu nasıl (program nasıl olmalı,php yada .net ;databese falan gibi)yapabiliriz ?
Merhaba, aşağıdaki linkler size yardımcı olacaktır.
http://www.codeproject.com/KB/system/everythingInAD.aspx
http://www.dotnetspider.com/resources/1242-Creating-New-User-Account-Active-Directory-usi.aspx
Merhaba, aşağıdaki linkler size yardımcı olacaktır.
http://www.codeproject.com/KB/system/everythingInAD.aspx
http://www.dotnetspider.com/resources/1242-Creating-New-User-Account-Active-Directory-usi.aspx
Yardımınız için teşekkürler. PHP ile sorunu hallettim sayılır. Yalnız kullanıcı eklediğimde default olarak pasif geliyor. Active Directory de şöyle bir şey yapabilir miyiz?
" Ziyaretçiler OU sundaki kullanıcılar varsayılan olarak enable olsun"
Teşekkürler.
Bu konuda herhangi bir fikri olan var mı?
Posta Kutunuza bakarmısınız
Posta Kutunuza bakarmısınız
Posta kutuma da baktım ama halen cevap alamadım ?
Posta Kutunuza bakarmısınızPosta kutuma da baktım ama halen cevap alamadım ?
Kodu daha inceleyemedim. Haftasonu bakabilirim ancak
Merhaba, aşağıdaki linkler size yardımcı olacaktır.
http://www.codeproject.com/KB/system/everythingInAD.aspx
http://www.dotnetspider.com/resources/1242-Creating-New-User-Account-Active-Directory-usi.aspx
Yardımınız için teşekkürler. PHP ile sorunu hallettim sayılır. Yalnız kullanıcı eklediğimde default olarak pasif geliyor. Active Directory de şöyle bir şey yapabilir miyiz?
" Ziyaretçiler OU sundaki kullanıcılar varsayılan olarak enable olsun"
Teşekkürler.
Konuyu hortlatmak gibi olacak ama olsun. Eski mesajlara bakarken gördüm. Sorunu çözmüştüm. Belki başka bir arkadaşın işine yarar diye buraya yazayım dedim.
-------------------------------------------------------------------
Option Explicit
Dim objOU, objUser, objRootDSE, objShell
Dim strContainer, strDNSDomain
Dim intCounter, intAccValue, intPwdValue
' Bind to Active Directory Domain
Set objRootDSE = GetObject("LDAP://RootDSE")
strDNSDomain = objRootDSE.Get("DefaultNamingContext")
' -----------------------------------------------'
' Important change OU= to reflect your domain
' -----------------------------------------------'
strContainer = "OU=ziyaretciler, " 'burada hangi ou daki kullanıcılarla ilgili işlem yapacağımızı belirtiyoruz'
strContainer = strContainer & strDNSDomain
intAccValue = 512 'burada belirttiğimiz ou daki kullanıcıların durumu mevcut 512=enable, 514=disable '
set objOU =GetObject("LDAP://" & strContainer )
For each objUser in objOU
If objUser.class="user" then
objUser.Put "userAccountControl", intAccValue
objUser.SetInfo
End If
Next
' Aşağıdaki kodlar da otomatik olarak active directory i açıyor.
Set objShell=CreateObject("WScript.Shell")
objShell.Run "%systemroot%\system32\dsa.msc"
WScript.Quit
Daha fazla bilgi için
http://www.computerperformance.co.uk/vbscript/vbscript_useraccountcontol.htm
konu ile ilgili http://msdn.microsoft.com/en-us/library/aa366101%28VS.85%29.aspx bu makaleyi inceleyebilirsiniz Distinguished Names i kullanarak bir bat dosyası oluşturup onu çalıştıttırabilirsiniz