Advertisement
Advertisement
| 05.09.2008 at 05:36AM PDT, ID: 23389048 | Points: 250 |
|
[x]
Attachment Details
|
||
| Microsoft |
| Apple |
| Internet |
| Gamers |
| Digital Living |
| Virus & Spyware |
| Hardware |
| Software |
| ITPro |
| Developer |
| Storage |
| OS |
| Database |
| Security |
| Programming |
| Web Development |
| Networking |
| Other |
| Community Support |
| 05.11.2008 at 07:29AM PDT, ID: 21542523 |
| 05.12.2008 at 03:03PM PDT, ID: 21550867 |
| 05.13.2008 at 02:19PM PDT, ID: 21559367 |
| 05.14.2008 at 07:05AM PDT, ID: 21564332 |
1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13: 14: 15: 16: 17: 18: 19: 20: 21: 22: 23: 24: 25: 26: 27: 28: 29: 30: 31: 32: |
Dim rootDSE, domainObject, conn, cmd
Set rootDSE=GetObject("LDAP://RootDSE")
DomainContainer = rootDSE.Get("defaultNamingContext")
Set fs = CreateObject ("Scripting.FileSystemObject")
strDate = Year(Now) & "-" & Right("0" & Month(Now),2) & "-" & Right("0" & Day(Now),2)
Set userFile = fs.CreateTextFile ("c:\GAL_Export" & strDate & ".csv")
Set conn = CreateObject("ADODB.Connection")
conn.Open "Provider=ADsDSOObject;"
Set cmd = CreateObject("ADODB.command")
cmd.ActiveConnection = conn
cmd.Properties("Cache Results") = False
cmd.Properties("Page Size") = 5000
cmd.CommandText = "<LDAP://" & DomainContainer & ">;(& (mailnickname=*) (&(objectCategory=person)(&(givenName=*)(sn=*))(|(objectClass=user)(objectClass=person))(!(objectclass=computer))(|(homeMDB=*)(msExchHomeServerName=*))(!(userAccountControl:1.2.840.113556.1.4.803:=2))) );adspath;subtree"
Set rs = cmd.Execute
userFile.Write "objectClass,givenName,sn,displayName,telephoneNumber,mailNickname,CN,mail,proxyAddresses,targetAddress,initials,title,company,department,physicalDeliveryOfficeName,l,st,postalCode,c,mailNickname,mAPIRecipient"
userFile.WriteLine ""
While Not rs.EOF
Set oUser = GetObject (rs.Fields(0).Value)
if ((InStr(oUser.sAMAccountName,"SYSADMIN")) or (InStr(oUser.distinguishedName,"OU=Service Accounts")) Then
'rs.MoveNext
Else
userFile.Write "Contact" & "," & chr(34) & oUser.givenName & chr(34) & "," & chr(34) & oUser.sn & chr(34) & "," & chr(34) & oUser.displayName & chr(34) & "," & chr(34) & oUser.telephoneNumber & chr(34) & "," & chr(34) & oUser.sAMAccountName & chr(34) & "," & chr(34) & oUser.givenName & " " & oUser.sn & chr(34) & "," & oUser.mail & ",smtp:" & oUser.mail & ",smtp:" & oUser.mail & "," & chr(34) & oUser.initials & chr(34) & "," & chr(34) & oUser.title & chr(34) & "," & chr(34) & oUser.company & chr(34) & "," & chr(34) & oUser.department & chr(34) & "," & chr(34) & oUser.physicaldeliveryOfficeName & chr(34) & "," & chr(34) & oUser.l & chr(34) & "," & chr(34) & oUser.st & chr(34) & "," & chr(34) & oUser.postalcode & chr(34) & "," & chr(34) & oUser.c & chr(34) & "," & oUser.mail & ",False"
userFile.WriteLine ""
End If
rs.MoveNext
Wend
|