כיצד לייצא לקובץ CSV משתמשים בעלי Forward לתיבה אחרת באמצעות סקריפט

נעזרתי בבלוג של Hey, Scripting Guy:

http://blogs.technet.com/b/heyscriptingguy/archive/2006/03/22/how-can-i-get-a-list-of-all-the-users-who-have-an-alternate-recipient.aspx


בבלוג שלעיל ישנו סקריפט אשר מייצא לנו את אותם משתמשים בעלי Forward לתיבה חיצונית כלשהי.
altrecipient = Alternate Recipient  – שדה ה Forward אשר בנוי מכתובת ה CN של אותו Contact שאליו אנו מעבירים את הדואר:

להלן הסקריפט:

On Error Resume Next

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 Name, altRecipient FROM 'LDAP://dc=fabrikam,dc=com' WHERE objectCategory='user' " & _
        "AND altRecipient='*'"
Set objRecordSet = objCommand.Execute

objRecordSet.MoveFirst

Do Until objRecordSet.EOF
    Wscript.Echo objRecordSet.Fields("Name").Value, objRecordSet.Fields("altRecipient").Value
    objRecordSet.MoveNext
Loop

יש לשנות את ה 'LDAP://dc=fabrikam,dc=com'  בסקריפט לשם הדומיין שלכם.

לאחר יצירת הסקריפט, ניתן לייצא אותו לקובץ TXT ע"י הפקודה הבאה:


cscript 1.vbs //U > haim.txt

כאשר קובץ haim.txt הינו קובץ ה txt שאליו אנו מייצאים:

הסימון //U מייצא את הפונטים בעברית.

לאחר הייצוא לקובץ TXT יש לפתוח את הקובץ באמצעותה NotePad ולשמור את אותו קובץ כ UTF-8 על מנת שנוכל לפתוח אותו ב EXCEL ולראות פונטים בעברית:

חובה להיכנס ל Excel ולפתוח את קובץ ה CSV באמצעות ה Excel, יש לבחור בסוג קובץ מופרד ולאחר מכן בכותבת מפרידים לבחור בטאב, על מנת להגדיר את העמודות, יש לשים לב שפתיחה באמצעות windows explorer תציג את הקובץ בצורה לא מסודרת: