PROCESS #This is where the script executes
{
	$CSVReportPath= "."
	$path = Split-Path -parent "$CSVReportPath\*.*"
    $pathexist = Test-Path -Path $path
	$ADServer = "[REMOVED]"
	$SearchLoc = "[REMOVED]"
    If ($pathexist -eq $false)
    {New-Item -type directory -Path $path}

    $reportdate = Get-Date -Format ssddmmyyyy

    $csvreportfile = $path + "\ALLADGroups.csv"
    $csvreportfilemembers = $path + "\AllGroupMembers.csv"

    #import the ActiveDirectory Module
    Import-Module ActiveDirectory

    #Perform AD search. The quotes "" used in $SearchLoc is essential
    #Without it, Export-ADComputer returned error
                  Get-ADGroup -server $ADServer -searchbase "$SearchLoc" -Properties * -Filter * |
    Select-Object @{Label = "Common Name";Expression = {$_.CN}},
		@{Label = "Creation Date";Expression = {$_.Created}},
		@{Label = "Description";Expression = {$_.Description}},
		@{Label = "DN";Expression = {$_.DistinguishedName}},
		@{Label = "Last Modified";Expression = {$_.Modified}},
        @{Label = "Type";Expression = {$_.ObjectClass}},
		@{Label = "Last Changed";Expression = {$_.WhenChanged}} |

    #Export CSV report
    Export-Csv -Path $csvreportfile -NoTypeInformation

	#Perform AD search again and export group members
	    Get-ADGroup -server $ADServer -searchbase "$SearchLoc" -Filter * |
    	Get-ADGroupMember |
		Select-Object @{Label = "Group Name";Expression = {$_.Name}},
		@{Label = "Member Type";Expression = {$member.objectClass}}
		@{Label = "Member Name";Expression = {$member.name}}  |

    #Export CSV report
    Export-Csv -NoTypeInformation -Path $csvreportfilemembers

}