aboutsummaryrefslogtreecommitdiffstats
path: root/config/spamd/spamd_exchexp.asp
diff options
context:
space:
mode:
authorRenato Botelho <renato@netgate.com>2015-09-08 09:31:23 -0300
committerRenato Botelho <renato@netgate.com>2015-09-08 09:31:23 -0300
commitd112be74f26762e8b2273cb97d7e231f865a14c2 (patch)
tree0350f0996a2cf5db1da573122c71687096efde16 /config/spamd/spamd_exchexp.asp
parentb250138e838ec7f0fc26b3cf9b8dc2b85386fb15 (diff)
parent9effc39ed1f07a50909d516cf797d3c7aa10b272 (diff)
downloadpfsense-packages-d112be74f26762e8b2273cb97d7e231f865a14c2.tar.gz
pfsense-packages-d112be74f26762e8b2273cb97d7e231f865a14c2.tar.bz2
pfsense-packages-d112be74f26762e8b2273cb97d7e231f865a14c2.zip
Merge pull request #1038 from doktornotor/patch-11
Diffstat (limited to 'config/spamd/spamd_exchexp.asp')
-rw-r--r--config/spamd/spamd_exchexp.asp50
1 files changed, 0 insertions, 50 deletions
diff --git a/config/spamd/spamd_exchexp.asp b/config/spamd/spamd_exchexp.asp
deleted file mode 100644
index 56b0c629..00000000
--- a/config/spamd/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