GET DHCP Scope informations - VERSION1

Share |

Browse Library

Tags

Previous | Next | View all files | View Slideshow

Download

posted by Sylvain LESIRE

03-06-2009

Downloads: 1,201

File size: 2.5kB

Embed

GET DHCP Scope informations - VERSION1

Function Get-DhcpScope ([string]$Servername){ 
$Tab = [char]9 
$DHCPIpAddress = (Get-WmiObject -Class Win32_PingStatus -Filter "Address='$servername' and ResolveAddressNames=true").ProtocolAddress 
 
trap {  
        Write-host "Error !!"   $_.Exception.Message -ForegroundColor Red 
        Write-Host "Solution :" -ForegroundColor green     
        Write-Host "$tab Copy Dll dhcpobjs.dll to $env:windir\system32" 
        Write-Host "$tab Register DLL : REGSVR32.exe $env:windir\system32\dhcpobjs.dll /s " 
        exit } & {  
    $dhcpmanager = New-Object -ComObject dhcp.manager 
} 
 
$dhcpmanager = New-Object -ComObject dhcp.manager 
$dhcpsrvr = $dhcpmanager.Servers.Connect($DHCPIpAddress) 
$NBScopeDHCP = $dhcpsrvr.scopes.count 
$ScopeDHCP = @{"" = ""} 
 
for ($a = 1; $a -le $NBScopeDHCP ; $a++) { 
    $ScopeDHCP.add($dhcpsrvr.scopes.item($a).address , $dhcpsrvr.scopes.item($a).name) 
} 
 
NetSHScopeDHCP $Servername 
$DHCPArray = TransformDHCPToArray "c:\temp\DumpAllscope$servername.txt" $ScopeDHCP 
$DHCPArray  
} 
 
function TransformDHCPToArray ($filename,$Scope){ 
$myinitFile = Get-Content $filename  
$Nbredeligne = $myinitFile.length 
$temporaire = $null 
$temporaire = @() 
for ($a = 0; $a -le $nbredeligne -1; $a++) { 
    if ($myinitfile[$a].contains("Subnet")){ 
        $personalarray = ""| select Subnet,NoOfAddressesinUse,NoOffreeAddresses, Comment 
        $ip = $myinitfile[$a].substring( $myinitfile[$a].indexof("=")+2, $myinitfile[$a].length - ($myinitfile[$a].indexof("=")+3)) 
        $personalarray.Subnet = $ip 
        $personalarray.NoofAddressesinUse = $myinitfile[$a+1].substring( $myinitfile[$a+1].indexof("=")+2, $myinitfile[$a+1].length - ($myinitfile[$a+1].indexof("=")+3)) 
        $personalarray.NoOffreeAddresses  = $myinitfile[$a+2].substring( $myinitfile[$a+2].indexof("=")+2, $myinitfile[$a+2].length - ($myinitfile[$a+2].indexof("=")+3)) 
         $personalarray.Comment = $Scope.Get_Item("$ip") 
        $temporaire +=$personalarray 
        }     
         
} 
$temporaire  
}      
 
function isIPAddress($object) {   
[Boolean]($object -as [System.Net.IPAddress]) 
} 
 
 
function NetSHScopeDHCP($servername){ 
$cmdline = "cmd /c netsh dhcp server show all > c:\temp\DumpAllscope.txt" 
$RemoteExec = (Get-WmiObject -List -ComputerName $servername | where {$_.name -eq 'win32_process'}).create($cmdline) 
Start-Sleep -Seconds 1 
Move-Item \\$servername\c$\temp\DumpAllscope.txt c:\temp -Force 
if (Test-Path "c:\temp\DumpAllscope$servername.txt"){ Remove-Item "c:\temp\DumpAllscope$servername.txt"} 
Rename-Item c:\temp\DumpAllscope.txt "DumpAllscope$servername.txt" -Force 
 
} 
 
 
#Get-DhcpScope MyDHCPServer 

This script permits to get informations (or export) DHCP Scope informations from remote DHCP server.

It was tested on Windows DHCP server 2000 / 2003, not tested on Windows 2008.

Pre requist needed:

Get Full Windows 2000 Resource Kit , install it

Copy dhcpobjs.dll to $Env:Windir\system32\ , and register it with cmdline REGSVR32.exe $env:windir\system32\dhcpobjs.dll /s

or download dhcpobjs.zip on http://www.dynawell.com/download/reskit/microsoft/win2000/dhcpobjs.zip

extract dhcpobjs.zip , execute dhcpobjs.exe and follow instruction.

Syntax :

PS c:\MY Scripts> . .\Get-dhcpscope.ps1

PS c:\MY Scripts> Get-dhcpscope MYDHCPServer

Subnet              NoOfAddressesinUse NoOffreeAddresses   Comment
------                        ------------------            -----------------           -------
10.19.115.0                      0                           103               GRAND NORD
10.248.3.16                      10                         4                   PETIT EST
10.248.3.80                      9                           1                   CENTRE COMMERCI ...
10.248.5.176                    12                         8                   OUEST VENTEUX
10.248.8.128                    100                       0                   SUD MEDITTERANE ...
10.248.12.144                  0                           4                   MA MAISON

To export on CSV File

PS c:\MY Scripts> Get-dhcpscope MYDHCPServer | export-csv .\MyDHCPServer-AllScope.csv

To report on HTML

PS c:\MY Scripts> Get-dhcpscope MYDHCPServer | ConvertTo-HTML | Out-File .\MyDHCPServer-AllScope.HTML

Contact

If you want more info or if you want an evolution, please contact me at: sylvain . lesire AT powershell . com