document.write('\
\ '); document.write('
  1. # Author: Steven Murawski http://www.mindofroot.com
    2. \
  2. # This script requires the Show-NetMap script from Doug Finke and the NetMap files
    3. \
  3. # These can be found at http://dougfinke.com/blog/?p=465
    4. \
  4. #
    5. \
  5. # Also required are the Quest AD Cmdlets.
    6. \
  6.  
    7. \
  7. #requires -pssnapin Quest.ActiveRoles.ADManagement
    8. \
  8.  
    9. \
  9.  
    10. \
  10.  
    11. \
  11. function Write-Help()
    12. \
  12. {
    13. \
  13.         $ExampleUsage = @\'
    14. \
  14. To use this script, you will need the Show-Netmap script from Doug Finke,
    15. \
  15. along with the NetMap DLLs (included with the Show-NetMap script on Doug\'s blog).
    16. \
  16. Downloadable from http://dougfinke.com/blog/?p=465
    17. \
  17.  
    18. \
  18. Usage:
    19. \
  19. . .\\Get-ADMapObject.ps1
    20. \
  20. Get-ADMapObject ([Object Class Name] | [Array of Object Class Names]) | % { New-SourceTarget $_.Name $_.Parent } | Show-NetMap
    21. \
  21.  
    22. \
  22.  
    23. \
  23. Example:
    24. \
  24. . .\\Get-ADMapObject.ps1
    25. \
  25. Get-ADMapObject group | % { New-SourceTarget $_.Name $_.Parent } | Show-NetMap -layoutType G
    26. \
  26. Get-ADMapObject ou, group, user | % { New-SourceTarget $_.Name $_.Parent } | Show-NetMap -layoutType S
    27. \
  27.  
    28. \
  28. If you would like to get a listing (or array) of the Object Class Names, use the Get-ADObjectClassName function
    29. \
  29.  
    30. \
  30. $classes = Get-ADObjectClassName
    31. \
  31.  
    32. \
  32. \'@
    33. \
  33.         Write-Host $ExampleUsage
    34. \
  34. }
    35. \
  35.  
    36. \
  36. #Check to see if the required files are present to run the script.
    37. \
  37. function Test-Prerequisites()
    38. \
  38. {
    39. \
  39.         $required = @{ShowNetMap = \'Show-Netmap.ps1\';
    40. \
  40.                 NetMapApp = \'Microsoft.NetMap.ApplicationUtil.dll\';
    41. \
  41.                 NetMapControl = \'Microsoft.NetMap.Control.dll\';
    42. \
  42.                 NetMapCore =  \'Microsoft.NetMap.Core.dll\';
    43. \
  43.                 NetMapUtil =  \'Microsoft.NetMap.Util.dll\';
    44. \
  44.                 NetMapVisual =  \'Microsoft.NetMap.Visualization.dll\'
    45. \
  45.                 }
    46. \
  46.                
    47. \
  47.         $report = @()
    48. \
  48.        
    49. \
  49.         foreach ($key in $required.Keys)
    50. \
  50.         {
    51. \
  51.                 $file = $required[$($key)]
    52. \
  52.                 if (Test-Path $file )
    53. \
  53.                 {
    54. \
  54.                         Write-Debug "Found $file"
    55. \
  55.                 }
    56. \
  56.                 else
    57. \
  57.                 {
    58. \
  58.                         $report +=  "Missing $file"
    59. \
  59.                 }
    60. \
  60.                
    61. \
  61.         }
    62. \
  62.        
    63. \
  63.         if ($report.count -eq 0)
    64. \
  64.         {
    65. \
  65.                 Write-Debug "All prerequisites were found."
    66. \
  66.                 return $true
    67. \
  67.         }
    68. \
  68.         else
    69. \
  69.         {
    70. \
  70.                 Write-Help
    71. \
  71.                 Write-Host "Missing files: "
    72. \
  72.                 $report | ForEach-Object { Write-Host "`tMissing $_" }
    73. \
  73.                 throw "Please move the needed files into the current directory!"
    74. \
  74.         }
    75. \
  75.  
    76. \
  76.  
    77. \
  77. }
    78. \
  78.  
    79. \
  79. #If all the prereq\'s are in the local directory and the script was not run
    80. \
  80. #with the -help switch, load everything up!
    81. \
  81. if (Test-Prerequisites)
    82. \
  82. {
    83. \
  83.         #Add the Show-Netmap functions from Doug Finke
    84. \
  84.         . .\\Show-NetMap.ps1
    85. \
  85.        
    86. \
  86.         #This is just a helper function to find the parent of an object based on the parent\'s distinguished name
    87. \
  87.         function Get-ParentFromDN()
    88. \
  88.         {
    89. \
  89.                 PROCESS
    90. \
  90.                 {
    91. \
  91.                         $root = \'^DC=(\\w+),DC=(\\w+)$\'
    92. \
  92.                         $pattern = \'^(OU|CN)=(\\w+?),.*?DC=\\w+?,DC=\\w+?$\'
    93. \
  93.                         $dn = $_
    94. \
  94.                        
    95. \
  95.                        
    96. \
  96.                         if ($dn -notmatch $root)
    97. \
  97.                         {
    98. \
  98.                                 $dn -replace $pattern, \'$2\'
    99. \
  99.                         }
    100. \
  100.                         else
    101. \
  101.                         {
    102. \
  102.                                 $dn -replace $root, \'$1.$2\'
    103. \
  103.                         }
    104. \
  104.                 }
    105. \
  105.         }
    106. \
  106.        
    107. \
  107.         #This will return an array of all the Object Classes in your Active Directory
    108. \
  108.         function Get-ADObjectClassName()
    109. \
  109.         {
    110. \
  110.                 Get-QADObject | Select-Object -property @{name=\'Name\';Expression={$_.type}} -unique | Sort-Object
    111. \
  111.         }
    112. \
  112.        
    113. \
  113.         function Get-ADMapObject()
    114. \
  114.         {
    115. \
  115.                 param($TypesToMap=$(Throw \'One (or more object types as an array) are required to run this function\'),
    116. \
  116.                 [switch]$help)
    117. \
  117.                 if ($help)
    118. \
  118.                 {
    119. \
  119.                         Write-Help
    120. \
  120.                 }
    121. \
  121.                
    122. \
  122.                 if ($TypesToMap -is [string])
    123. \
  123.                 {
    124. \
  124.                         Get-QADObject -Type $TypesToMap | select Name, @{name=\'Parent\';Expression={$_.ParentContainerDN | Get-ParentFromDN}}
    125. \
  125.                 }
    126. \
  126.                 else
    127. \
  127.                 {
    128. \
  128.                         foreach ( $type in $TypesToMap )
    129. \
  129.                         {
    130. \
  130.                                 Get-QADObject -Type $type | select Name, @{name=\'Parent\';Expression={$_.ParentContainerDN | Get-ParentFromDN}}
    131. \
  131.                         }
    132. \
  132.                 }
    133. \
  133.         }
    134. \
  134.        
    135. \
  135.         #Helper function stolen from Doug Finke and used to create the objects to feed to
    136. \
  136.         #Show-Netmap
    137. \
  137.         function New-SourceTarget ($s,$t)
    138. \
  138.         {
    139. \
  139.                 New-Object PSObject |
    140. \
  140.                         Add-Member -pass noteproperty source $s |
    141. \
  141.                         Add-Member -pass noteproperty target $t
    142. \
  142.         }
    143. \
  143.        
    144. \
  144. }
    145. \
  145.  
    146. \
  146. Write-Help
    147. \
');document.write('
downloadThis Script brought to you by PoshCode\
\
\
');