|Server.ScriptTimeout = 320||' Number of seconds to allow this script to run without spawning a server generated timeout message|
|Dim conMethod : conMethod = "WinNT"||' WinNT or LDAP|
|Dim adName : adName = "activedirectoryname"||' AD Name|
|Dim maxThreshold : maxThreshold = 1000||' Maximum number of user records to work with in browser after initial index of users and groups they belong to is completed; too high a number results in out of memory browser error.|
|Dim ugDetect : ugDetect = "1"||' New AD Object Detection - If you wish to allow this script to record group and user objects to disk so that it can detect new objects being created, and tell you the the objects that have been created since it was last run, set this value to "1". Otherwise set to "0". If enabled, this detection may result in the page taking several minutes to load initially.|
|Dim frwLocation : frwLocation = Split(Server.MapPath("."), ":\")(0) & ":\"
frwLocation = frwLocation & "websites\adData\"
|' Disk path to location where files containing users, groups and dates can be placed. Location must have read/write/modify permissions.|
|Dim adGroupResultsLabel : adGroupResultsLabel = "adGroupResults"||' ID of div which contains results of a group query|
|Dim adUserResultsLabel : adUserResultsLabel = "adUserResults"||' ID of div which contains results of a user query|
|adGroupsAutoCheck = Array()||' Contains list of groups to auto-check when user clicks the button|
|Redim Preserve adGroupsAutoCheck(0) : adGroupsAutoCheck(0) = "Domain Admins"|
|Redim Preserve adGroupsAutoCheck(1) : adGroupsAutoCheck(1) = "Domain Users"|
|Redim Preserve adGroupsAutoCheck(2) : adGroupsAutoCheck(2) = "Enterprise Admins"|