X-Git-Url: https://defaria.com/gitweb/?a=blobdiff_plain;f=clients%2FAmeriquest%2Fbin%2Fgetccgroups.vbs;fp=clients%2FAmeriquest%2Fbin%2Fgetccgroups.vbs;h=46da5234b2457c45be343fb2bbf5b1a6c5596f24;hb=a8c84d2892f07a6863b68a11eb0a4a79ffd71fb5;hp=0000000000000000000000000000000000000000;hpb=95384f94f88aceeb5eef2d322210ba4a438b6512;p=clearscm.git diff --git a/clients/Ameriquest/bin/getccgroups.vbs b/clients/Ameriquest/bin/getccgroups.vbs new file mode 100644 index 0000000..46da523 --- /dev/null +++ b/clients/Ameriquest/bin/getccgroups.vbs @@ -0,0 +1,215 @@ +On Error Resume Next + +Set WshShell = WScript.CreateObject ("WScript.Shell") +Set fso = CreateObject ("Scripting.FileSystemObject") + +groups_file = "\\rtnlprod02\viewstore\PMO\CM_TOOLS\etc\groups.dat" + +' Simple routine to shorten WScript.Echo! +Sub echo (msg) + WScript.Echo msg +End Sub ' echo + +Sub Email_Owner (sendTo, groupname, members) + sch = "http://schemas.microsoft.com/cdo/configuration/" + + Set cdoConfig = CreateObject ("CDO.Configuration") + + With cdoConfig.Fields + .Item (sch & "sendusing") = 2 ' cdoSendUsingPort + .Item (sch & "smtpserver") = "appsmtp.ameriquest.net" + .Update + End With + + Set email_msg = CreateObject ("CDO.Message") + + email_msg.Configuration = cdoConfig + email_msg.From = "PMO-CM@Ameriquest.net" + email_msg.To = sendTo + email_msg.Subject = "Members of the " & UCase (groupname) & " Group" + email_msg.HTMLBody = "

Members of the " & UCase (groupname) & " Group

 

    " + + previous_member = "" + For Each member in members + If member <> previous_member Then + email_msg.HTMLBody = email_msg.HTMLBody & "
  1. " & member & "
    2. " + previous_member = member + End If + Next + + email_msg.HTMLBody = email_msg.HTMLBody & "
" + email_msg.Send +End Sub + +' Routine to push things onto an array +Sub pushArray (a, e) + On Error Resume Next + size = UBound (a) + + If Err.Number <> 0 Then + size = 0 + Else + size = size + 1 + End If + + ReDim preserve a (size) + + a (UBound (a)) = e +End Sub 'pushArray + +' The famous QuickSort! +Sub QuickSort (vec, loBound, hiBound) + Dim pivot + Dim loSwap + Dim hiSwap + Dim temp + + ' This procedure is adapted from the algorithm given in: + ' Data Abstractions & Structures using C++ by + ' Mark Headington and David Riley, pg. 586 + ' Quicksort is the fastest array sorting routine for + ' unordered arrays. Its big O is n log n + + ' Two items to sort + If hiBound - loBound = 1 Then + If vec(loBound) > vec(hiBound) Then + temp = vec (loBound) + vec (loBound) = vec (hiBound) + vec (hiBound) = temp + End If + End If + + ' Three or more items to sort + pivot = vec (Int ((loBound + hiBound) / 2)) + vec (Int ((loBound + hiBound) / 2)) = vec (loBound) + vec (loBound) = pivot + loSwap = loBound + 1 + hiSwap = hiBound + + Do + ' Find the right loSwap + While loSwap < hiSwap and vec (loSwap) <= pivot + loSwap = loSwap + 1 + Wend + + ' Find the right hiSwap + While vec (hiSwap) > pivot + hiSwap = hiSwap - 1 + Wend + + ' Swap values if loSwap is less then hiSwap + If loSwap < hiSwap Then + temp = vec (loSwap) + vec (loSwap) = vec (hiSwap) + vec (hiSwap) = temp + End If + Loop While loSwap < hiSwap + + vec (loBound) = vec(hiSwap) + vec (hiSwap) = pivot + + ' Recursively call function .. the beauty of Quicksort + ' 2 or more items in first section + If loBound < (hiSwap - 1) Then + QuickSort vec, loBound, hiSwap - 1 + End If + + ' 2 or more items in second section + If hiSwap + 1 < hibound Then + QuickSort vec, hiSwap+1, hiBound + End If +End Sub ' QuickSort + +' Get the group members out of Active Directory and push them +' onto the grp_mbrs array +Sub DumpGroup (groupname) + ' Create an LDAP object and set up the search for groupname + On Error Resume Next + Err.Clear + Set LDAPGroups = GetObject ( _ + "LDAP://cn=" & _ + groupname & _ + ",ou=apps,ou=Groups,ou=Corp,dc=ameriquest,dc=net" _ + ) + + If Err.Number <> 0 Then + Err.Clear + echo "Warning: " & UCase (groupname) & " is empty!" + Exit Sub + End If + + LDAPGroups.GetInfo + + ' Get an array of members + members = LDAPGroups.GetEx ("member") + + ' For each member get their displayName and push it onto the array + For Each member in members + Set user = GetObject ("LDAP://"& member) + LDAPGroups.filter = array ("user") + user.GetInfo + + ' Kludgy way to check to see if this is a group: We attempt + ' to get groupType which should only be in a group type + ' record. If this fails then process the member as an + ' individual member, otherwise recurse to process the + ' group within the group... + Err.Clear + user.Get ("groupType") + + if Err.Number = 0 Then + Err.Clear + groupname = LCase (user.Get ("cn")) + DumpGroup (groupname) + Else + name = user.Get ("displayName") + pushArray grp_mbrs, name + End If + Next +End Sub + +' Open the groups definition file +Set groups = fso.OpenTextFile (groups_file) + +Do While Not groups.AtEndOfStream + line = groups.ReadLine + + ' *** Need to also skip blank lines + If Line <> "" Then + If InStr (line, "#") <> 1 Then + With New RegExp + .Pattern = "\s+" + .Global = True + line = Trim (.replace (line, " ")) + End With + + ' Split out fields + groupname = "" + owner = "" + fields = Split (line) + groupname = LCase (fields (0)) + owner = LCase (fields (1)) + + echo "Processing group " & UCase (groupname) & " (" & owner & ")" + + Dim grp_mbrs () + + ' Get members of this group + DumpGroup (groupname) + + If UBound (grp_mbrs) > 0 Then + ' Sort them + QuickSort grp_mbrs, LBound (grp_mbrs), UBound (grp_mbrs) + + ' Output them + If owner <> "" Then + Email_Owner owner, groupname, grp_mbrs + Else + echo "Group: " & UCase (groupname) & " has no owner email in " & groups_file + End If + + Erase grp_mbrs + End If + End If + End If +Loop