Exchange 2003 mail listesi import etmek

Merhaba,

Aşağıdaki konu size yardımcı olabilir belki. Bir inceleyin isterseniz.

http://www.cozumpark.com/forums/thread/209617.aspx

Malesef buradaki bir işe yaramadı.

http://blog.sortedit.net/files/62018-54406/E2k3_Contacts_Generator.zip indirin. içinde bir beni oku ve örnek excel dosyası var. excel dosyasındaki örnekteki gibi listenizi güncelleyin. daha sonra csvde -i -f dosya.csv komutuyla ad üzerine bu kullanıcıları alabilirsiniz.

Merhabalar,

Excel listesindeki adresleri contact olarak eklemek istiyorsanız eğer aşağıya daha önce eklediğim script örneğini ekliyorum.

 txt dosyasının içinde contact adı % eposta adresi şeklinde kayıt ediliyor. Scripti çalıştırdığınızda ekleyip contactlari adres defterinden gizliyor.

ilgili OU ve Organizational Nameleri güncellerseniz çalışacaktır, tabi scripti çalıştırdığınız userın yetkisi olmalı.

Kolay gelsin.

maillist.txt içeriği

Kişi Adı 1%test1@hotmail
Kişi Adı 2%test2@hotmail

maillist.vbs içeriği

Option Explicit
Dim objRootLDAP, objContainer, objContact
Dim strOU, strContactName,  strEmail, strProxy
Dim   strFirst,  strMainDefault
Dim strMailbox, strNick

'Contactların kayıt edileceği OU bilgisini girin
strOU = "ou=Epostalar, OU=Contact , OU=Gruplar , dc=notsayfam, dc=com"

dim objFSO,objTextFile
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTextFile = objFSO.OpenTextFile ("maillist.txt", 1)

Dim Eposta,BayiAdi,BayiTip,BayiSehir
Dim satir
Do Until objTextFile.AtEndOfStream

satir = objTextFile.Readline

BayiAdi = Mid(satir,1 ,Instr(satir,"%")-1)
satir = Mid(satir,instr(satir,"%")+1,len(satir)-instr(satir,"%"))
Eposta = satir
'wscript.echo BayiSehir & vbcrlf & BayiAdi & vbcrlf & BayiTip & vbcrlf & Eposta

strMainDefault = "SMTP:" & Eposta
strContactName = BayiAdi
strFirst = BayiAdi
strProxy = "smtp:" & Eposta
strEmail = Eposta
strMailbox = "/o=Exchange Organization/ou=First Administrative Group/cn=Recipients/cn=" & strContactName
strNick = strContactName

Set objRootLDAP = GetObject("LDAP://rootDSE")
Set objContainer = GetObject("LDAP://" & strOU & objRootLDAP.Get("DefaultNamingContext"))

'On Error Resume Next
Set objContact = objContainer.Create("Contact","cn=" & strContactName)
objContact.Put "Mail", strEmail
objContact.Put "givenName", strFirst
objContact.Put "proxyAddresses", strProxy
objContact.Put "targetAddress", strMainDefault
objContact.Put "legacyExchangeDN", strMailbox
objContact.Put "mailNickname", strNick
objContact.SetInfo

WScript.Sleep(1000)
Loop

wscript.echo "Ekleme İşlemi Tamamlandı"

WScript.Sleep(15000)
'Eklediğimiz contactları adres listesinden gizleyelim
dim strOUpath
strOUpath  = "ou=Epostalar, OU=Contact , OU=Gruplar , dc=notsayfam, dc=com"

Const ADS_SCOPE_SUBTREE = 2
 
Set objConnection = CreateObject("ADODB.Connection")
Set objCommand =   CreateObject("ADODB.Command")
objConnection.Provider = "ADsDSOObject"
objConnection.Open "Active Directory Provider"
Set objCommand.ActiveConnection = objConnection
 
objCommand.Properties("Page Size") = 1000
objCommand.Properties("Searchscope") = ADS_SCOPE_SUBTREE
 
objCommand.CommandText = "SELECT ADsPath, objectClass, objectCategory FROM 'LDAP://" & strOUpath & "'"
Set objRecordSet = objCommand.Execute
 
objRecordSet.MoveFirst
Do Until objRecordSet.EOF
    strClass = objRecordSet.Fields("objectClass").Value
    strCategory = objRecordSet.Fields("objectCategory").Value
 
    If strClass = "contact" OR strCategory = "person" Then
        strUserPath = objRecordSet.Fields("ADsPath").Value
        Set objUser = GetObject(strUserPath)
        objUser.MSExchHideFromAddressLists = TRUE
        objUser.SetInfo
    End If
 
    objRecordSet.MoveNext
Loop
 
Set objConnection = Nothing
Set objCommand = Nothing
Set objRecordSet = Nothing
Set objUser = Nothing

wscript.echo "Gizleme İşlemi Tamamlandı"

WScript.Quit
 

 Merhaba,

 Administrator yetkisi ile yapıyorum ama bana script hatası veriyor.
'Contactların kayıt edileceği OU bilgisini girin
strOU = "ou=Epostalar, OU=Contact , OU=Gruplar , dc=notsayfam, dc=com"

Bu bölümde bilgileri kendmie göre değiştiriyorum.  "'Contactların kayıt edileceği OU bilgisini girin" böyle bir bilgi girmişssiniz bunu da silsem dedim belki bu olmamalı ama yine script line 35 ,36 ve 37 error diyor.

birde benim önerimi deneyebilirmisiniz?