diff options
| author | Bill Marquette <bill.marquette@gmail.com> | 2009-02-06 19:18:00 -0600 |
|---|---|---|
| committer | Bill Marquette <bill.marquette@gmail.com> | 2009-02-06 19:18:00 -0600 |
| commit | 55eddd7accf2c5f9b0f52b22a010c4c4b7c130d1 (patch) | |
| tree | ba4783bab1dd65f1ceef2dfac9fdbd515531d18b /packages/spamd_exchexp.asp | |
| parent | 67780cc9d469288742aea5bc378c29a54edd5ec5 (diff) | |
| download | pfsense-packages-55eddd7accf2c5f9b0f52b22a010c4c4b7c130d1.tar.gz pfsense-packages-55eddd7accf2c5f9b0f52b22a010c4c4b7c130d1.tar.bz2 pfsense-packages-55eddd7accf2c5f9b0f52b22a010c4c4b7c130d1.zip | |
mv packages to config dir to match web layout
Diffstat (limited to 'packages/spamd_exchexp.asp')
| -rw-r--r-- | packages/spamd_exchexp.asp | 50 |
1 files changed, 0 insertions, 50 deletions
diff --git a/packages/spamd_exchexp.asp b/packages/spamd_exchexp.asp deleted file mode 100644 index 56b0c629..00000000 --- a/packages/spamd_exchexp.asp +++ /dev/null @@ -1,50 +0,0 @@ -<% - -dim server -server = "SERVERNAME" - -Sub ExportUsers(oObject) - Dim oUser - For Each oUser in oObject - Select Case oUser.Class - Case "user" - If oUser.mail <> "" then - - for each email in oUser.proxyAddresses - If (lcase(left(email,4))="smtp") Then - 'userFile.WriteLine Mid(email,6) - document.write Mid(email,6) & vbCrLf - End If - next - End if - Case "organizationalUnit" , "container" - If UsersinOU (oUser) then - ExportUsers(oUser) - End if - End select - Next -End Sub - -Function UsersinOU (oObject) - Dim oUser - UsersinOU = False - for Each oUser in oObject - Select Case oUser.Class - Case "organizationalUnit" , "container" - UsersinOU = UsersinOU(oUser) - Case "user" - UsersinOU = True - - End select - Next -End Function - -Dim rootDSE, domainObject -Set rootDSE=GetObject("LDAP://" & server & "/RootDSE") -domainContainer = rootDSE.Get("defaultNamingContext") -Set domainObject = GetObject("LDAP://" & domainContainer) - -ExportUsers(domainObject) -Set oDomain = Nothing - -%>
\ No newline at end of file |