diff options
| author | doktornotor <notordoktor@gmail.com> | 2015-09-04 13:22:27 +0200 |
|---|---|---|
| committer | doktornotor <notordoktor@gmail.com> | 2015-09-04 13:22:27 +0200 |
| commit | fc8132ded92be96b280660cc9f4ab289ec322107 (patch) | |
| tree | 12205901a04375921b5c10662b57be8313c488c7 /config | |
| parent | a6ff855e75fa5e5a57d455f7a97f8c41677cc76b (diff) | |
| download | pfsense-packages-fc8132ded92be96b280660cc9f4ab289ec322107.tar.gz pfsense-packages-fc8132ded92be96b280660cc9f4ab289ec322107.tar.bz2 pfsense-packages-fc8132ded92be96b280660cc9f4ab289ec322107.zip | |
Delete spamd_exchexp.asp
Not used anywhere, useless dead code.
Diffstat (limited to 'config')
| -rw-r--r-- | config/spamd/spamd_exchexp.asp | 50 |
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 |