<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<style>
<!--
@font-face
{font-family:"Cambria Math"}
@font-face
{font-family:Calibri}
@font-face
{font-family:"Segoe UI"}
p.MsoNormal, li.MsoNormal, div.MsoNormal
{margin:0in;
margin-bottom:.0001pt;
font-size:11.0pt;
font-family:"Calibri","sans-serif"}
a:link, span.MsoHyperlink
{color:#0563C1;
text-decoration:underline}
a:visited, span.MsoHyperlinkFollowed
{color:#954F72;
text-decoration:underline}
p
{margin-right:0in;
margin-left:0in;
font-size:12.0pt;
font-family:"Times New Roman","serif"}
span.EmailStyle17
{font-family:"Calibri","sans-serif";
color:windowtext}
span.EmailStyle18
{font-family:"Calibri","sans-serif";
color:#1F497D}
span.EmailStyle20
{font-family:"Calibri","sans-serif";
color:#1F497D}
.MsoChpDefault
{font-size:10.0pt}
@page WordSection1
{margin:1.0in 1.0in 1.0in 1.0in}
div.WordSection1
{}
-->
</style>
</head>
<body lang="EN-US" link="#0563C1" vlink="#954F72">
<div class="WordSection1">
<p class="MsoNormal"><span style="color:#1F497D">You might try using PowerShell in 2012 too (just an example of some possibilities … not an actual production script I’m using):</span></p>
<p class="MsoNormal"><span style="color:#1F497D"> </span></p>
<p class="MsoNormal" style="text-autospace:none"><b><span style="font-size:10.0pt; font-family:"Courier New"; color:cadetblue">Import-Module</span></b><span style="font-size:10.0pt; font-family:"Courier New"; color:black">
</span><span style="font-size:10.0pt; font-family:"Courier New"; color:maroon">DhcpServer</span><span style="font-size:10.0pt; font-family:"Courier New"; color:black"></span></p>
<p class="MsoNormal" style="text-autospace:none"><span style="font-size:10.0pt; font-family:"Courier New"; color:black"> </span></p>
<p class="MsoNormal" style="text-autospace:none"><span style="font-size:10.0pt; font-family:"Courier New"; color:purple">$dhcpServers</span><span style="font-size:10.0pt; font-family:"Courier New"; color:black">
</span><span style="font-size:10.0pt; font-family:"Courier New"; color:red">=</span><span style="font-size:10.0pt; font-family:"Courier New"; color:black"> @(</span><span style="font-size:10.0pt; font-family:"Courier New"; color:maroon">'server1'</span><span style="font-size:10.0pt; font-family:"Courier New"; color:black">,</span><span style="font-size:10.0pt; font-family:"Courier New"; color:maroon">'server2'</span><span style="font-size:10.0pt; font-family:"Courier New"; color:black">)</span></p>
<p class="MsoNormal" style="text-autospace:none"><span style="font-size:10.0pt; font-family:"Courier New"; color:black">[</span><span style="font-size:10.0pt; font-family:"Courier New"; color:teal">bool</span><span style="font-size:10.0pt; font-family:"Courier New"; color:black">]</span><span style="font-size:10.0pt; font-family:"Courier New"; color:purple">$canGetDhcpAddr</span><span style="font-size:10.0pt; font-family:"Courier New"; color:black">
</span><span style="font-size:10.0pt; font-family:"Courier New"; color:red">=</span><span style="font-size:10.0pt; font-family:"Courier New"; color:black">
</span><span style="font-size:10.0pt; font-family:"Courier New"; color:purple">$false</span><span style="font-size:10.0pt; font-family:"Courier New"; color:black"></span></p>
<p class="MsoNormal" style="text-autospace:none"><span style="font-size:10.0pt; font-family:"Courier New"; color:black">[</span><span style="font-size:10.0pt; font-family:"Courier New"; color:teal">long</span><span style="font-size:10.0pt; font-family:"Courier New"; color:black">]</span><span style="font-size:10.0pt; font-family:"Courier New"; color:purple">$freeLeases</span><span style="font-size:10.0pt; font-family:"Courier New"; color:black">
</span><span style="font-size:10.0pt; font-family:"Courier New"; color:red">=</span><span style="font-size:10.0pt; font-family:"Courier New"; color:black"> 0</span></p>
<p class="MsoNormal" style="text-autospace:none"><span style="font-size:10.0pt; font-family:"Courier New"; color:black">[</span><span style="font-size:10.0pt; font-family:"Courier New"; color:teal">long</span><span style="font-size:10.0pt; font-family:"Courier New"; color:black">]</span><span style="font-size:10.0pt; font-family:"Courier New"; color:purple">$inUseLeases</span><span style="font-size:10.0pt; font-family:"Courier New"; color:black">
</span><span style="font-size:10.0pt; font-family:"Courier New"; color:red">=</span><span style="font-size:10.0pt; font-family:"Courier New"; color:black"> 0</span></p>
<p class="MsoNormal" style="text-autospace:none"><span style="font-size:10.0pt; font-family:"Courier New"; color:black">[</span><span style="font-size:10.0pt; font-family:"Courier New"; color:teal">double</span><span style="font-size:10.0pt; font-family:"Courier New"; color:black">]</span><span style="font-size:10.0pt; font-family:"Courier New"; color:purple">$percentLeasesUsed</span><span style="font-size:10.0pt; font-family:"Courier New"; color:black">
</span><span style="font-size:10.0pt; font-family:"Courier New"; color:red">=</span><span style="font-size:10.0pt; font-family:"Courier New"; color:black"> 0.0</span></p>
<p class="MsoNormal" style="text-autospace:none"><span style="font-size:10.0pt; font-family:"Courier New"; color:black">[</span><span style="font-size:10.0pt; font-family:"Courier New"; color:teal">long</span><span style="font-size:10.0pt; font-family:"Courier New"; color:black">]</span><span style="font-size:10.0pt; font-family:"Courier New"; color:purple">$reservedLeases</span><span style="font-size:10.0pt; font-family:"Courier New"; color:black">
</span><span style="font-size:10.0pt; font-family:"Courier New"; color:red">=</span><span style="font-size:10.0pt; font-family:"Courier New"; color:black"> 0</span></p>
<p class="MsoNormal" style="text-autospace:none"><span style="font-size:10.0pt; font-family:"Courier New"; color:black"> </span></p>
<p class="MsoNormal" style="text-autospace:none"><span style="font-size:10.0pt; font-family:"Courier New"; color:blue">foreach</span><span style="font-size:10.0pt; font-family:"Courier New"; color:black"> (</span><span style="font-size:10.0pt; font-family:"Courier New"; color:purple">$dhcpSvr</span><span style="font-size:10.0pt; font-family:"Courier New"; color:black">
</span><span style="font-size:10.0pt; font-family:"Courier New"; color:blue">in</span><span style="font-size:10.0pt; font-family:"Courier New"; color:black">
</span><span style="font-size:10.0pt; font-family:"Courier New"; color:purple">$dhcpServers</span><span style="font-size:10.0pt; font-family:"Courier New"; color:black">) {</span></p>
<p class="MsoNormal" style="text-autospace:none"><span style="font-size:10.0pt; font-family:"Courier New"; color:black">
</span><span style="font-size:10.0pt; font-family:"Courier New"; color:blue">foreach</span><span style="font-size:10.0pt; font-family:"Courier New"; color:black"> (</span><span style="font-size:10.0pt; font-family:"Courier New"; color:purple">$v4Scope</span><span style="font-size:10.0pt; font-family:"Courier New"; color:black">
</span><span style="font-size:10.0pt; font-family:"Courier New"; color:blue">in</span><span style="font-size:10.0pt; font-family:"Courier New"; color:black"> (Get-DhcpServerv4Scope -ComputerName
</span><span style="font-size:10.0pt; font-family:"Courier New"; color:purple">$dhcpSvr</span><span style="font-size:10.0pt; font-family:"Courier New"; color:black">)) {</span></p>
<p class="MsoNormal" style="text-autospace:none"><span style="font-size:10.0pt; font-family:"Courier New"; color:black">
</span><span style="font-size:10.0pt; font-family:"Courier New"; color:purple">$v4LeaseAddr</span><span style="font-size:10.0pt; font-family:"Courier New"; color:black">
</span><span style="font-size:10.0pt; font-family:"Courier New"; color:red">=</span><span style="font-size:10.0pt; font-family:"Courier New"; color:black"> Get-DhcpServerv4FreeIPAddress -ComputerName
</span><span style="font-size:10.0pt; font-family:"Courier New"; color:purple">$dhcpSvr</span><span style="font-size:10.0pt; font-family:"Courier New"; color:black"> -ScopeId
</span><span style="font-size:10.0pt; font-family:"Courier New"; color:purple">$v4Scope</span><span style="font-size:10.0pt; font-family:"Courier New"; color:black">.ScopeId</span></p>
<p class="MsoNormal" style="text-autospace:none"><span style="font-size:10.0pt; font-family:"Courier New"; color:black">
</span><span style="font-size:10.0pt; font-family:"Courier New"; color:blue">if</span><span style="font-size:10.0pt; font-family:"Courier New"; color:black"> (</span><span style="font-size:10.0pt; font-family:"Courier New"; color:purple">$v4LeaseAddr</span><span style="font-size:10.0pt; font-family:"Courier New"; color:black">
</span><span style="font-size:10.0pt; font-family:"Courier New"; color:red">-ne</span><span style="font-size:10.0pt; font-family:"Courier New"; color:black">
</span><span style="font-size:10.0pt; font-family:"Courier New"; color:purple">$null</span><span style="font-size:10.0pt; font-family:"Courier New"; color:black">) {
</span><span style="font-size:10.0pt; font-family:"Courier New"; color:green"># hey, we were able to obtain a dhcp address</span></p>
<p class="MsoNormal" style="text-autospace:none"><span style="font-size:10.0pt; font-family:"Courier New"; color:black">
</span><span style="font-size:10.0pt; font-family:"Courier New"; color:purple">$canGetDhcpAddr</span><span style="font-size:10.0pt; font-family:"Courier New"; color:black">
</span><span style="font-size:10.0pt; font-family:"Courier New"; color:red">=</span><span style="font-size:10.0pt; font-family:"Courier New"; color:black">
</span><span style="font-size:10.0pt; font-family:"Courier New"; color:purple">$true</span><span style="font-size:10.0pt; font-family:"Courier New"; color:black"></span></p>
<p class="MsoNormal" style="text-autospace:none"><span style="font-size:10.0pt; font-family:"Courier New"; color:black"> }</span></p>
<p class="MsoNormal" style="text-autospace:none"><span style="font-size:10.0pt; font-family:"Courier New"; color:black">
</span><span style="font-size:10.0pt; font-family:"Courier New"; color:blue">else</span><span style="font-size:10.0pt; font-family:"Courier New"; color:black"> {
</span><span style="font-size:10.0pt; font-family:"Courier New"; color:green"># oh, darn! we were not able to obtain a dhcp address</span></p>
<p class="MsoNormal" style="text-autospace:none"><span style="font-size:10.0pt; font-family:"Courier New"; color:black">
</span><span style="font-size:10.0pt; font-family:"Courier New"; color:purple">$canGetDhcpAddr</span><span style="font-size:10.0pt; font-family:"Courier New"; color:black">
</span><span style="font-size:10.0pt; font-family:"Courier New"; color:red">=</span><span style="font-size:10.0pt; font-family:"Courier New"; color:black">
</span><span style="font-size:10.0pt; font-family:"Courier New"; color:purple">$false</span><span style="font-size:10.0pt; font-family:"Courier New"; color:black"></span></p>
<p class="MsoNormal" style="text-autospace:none"><span style="font-size:10.0pt; font-family:"Courier New"; color:black"> }</span></p>
<p class="MsoNormal" style="text-autospace:none"><span style="font-size:10.0pt; font-family:"Courier New"; color:black">
</span><span style="font-size:10.0pt; font-family:"Courier New"; color:purple">$v4Stats</span><span style="font-size:10.0pt; font-family:"Courier New"; color:black">
</span><span style="font-size:10.0pt; font-family:"Courier New"; color:red">=</span><span style="font-size:10.0pt; font-family:"Courier New"; color:black"> Get-DhcpServerv4ScopeStatistics -ComputerName
</span><span style="font-size:10.0pt; font-family:"Courier New"; color:purple">$dhcpSvr</span><span style="font-size:10.0pt; font-family:"Courier New"; color:black"> -ScopeId
</span><span style="font-size:10.0pt; font-family:"Courier New"; color:purple">$v4Scope</span><span style="font-size:10.0pt; font-family:"Courier New"; color:black">.ScopeId</span></p>
<p class="MsoNormal" style="text-autospace:none"><span style="font-size:10.0pt; font-family:"Courier New"; color:black">
</span><span style="font-size:10.0pt; font-family:"Courier New"; color:purple">$freeLeases</span><span style="font-size:10.0pt; font-family:"Courier New"; color:black">
</span><span style="font-size:10.0pt; font-family:"Courier New"; color:red">=</span><span style="font-size:10.0pt; font-family:"Courier New"; color:black">
</span><span style="font-size:10.0pt; font-family:"Courier New"; color:purple">$v4Stats</span><span style="font-size:10.0pt; font-family:"Courier New"; color:black">.Free</span></p>
<p class="MsoNormal" style="text-autospace:none"><span style="font-size:10.0pt; font-family:"Courier New"; color:black">
</span><span style="font-size:10.0pt; font-family:"Courier New"; color:purple">$inUseLeases</span><span style="font-size:10.0pt; font-family:"Courier New"; color:black">
</span><span style="font-size:10.0pt; font-family:"Courier New"; color:red">=</span><span style="font-size:10.0pt; font-family:"Courier New"; color:black">
</span><span style="font-size:10.0pt; font-family:"Courier New"; color:purple">$v4Stats</span><span style="font-size:10.0pt; font-family:"Courier New"; color:black">.InUse</span></p>
<p class="MsoNormal" style="text-autospace:none"><span style="font-size:10.0pt; font-family:"Courier New"; color:black">
</span><span style="font-size:10.0pt; font-family:"Courier New"; color:purple">$percentLeasesUsed</span><span style="font-size:10.0pt; font-family:"Courier New"; color:black">
</span><span style="font-size:10.0pt; font-family:"Courier New"; color:red">=</span><span style="font-size:10.0pt; font-family:"Courier New"; color:black">
</span><span style="font-size:10.0pt; font-family:"Courier New"; color:purple">$v4Stats</span><span style="font-size:10.0pt; font-family:"Courier New"; color:black">.PercentageInUse</span></p>
<p class="MsoNormal" style="text-autospace:none"><span style="font-size:10.0pt; font-family:"Courier New"; color:black">
</span><span style="font-size:10.0pt; font-family:"Courier New"; color:purple">$reservedLeases</span><span style="font-size:10.0pt; font-family:"Courier New"; color:black">
</span><span style="font-size:10.0pt; font-family:"Courier New"; color:red">=</span><span style="font-size:10.0pt; font-family:"Courier New"; color:black">
</span><span style="font-size:10.0pt; font-family:"Courier New"; color:purple">$v4Stats</span><span style="font-size:10.0pt; font-family:"Courier New"; color:black">.Reserved</span></p>
<p class="MsoNormal" style="text-autospace:none"><span style="font-size:10.0pt; font-family:"Courier New"; color:black"> }</span></p>
<p class="MsoNormal"><span style="font-size:10.0pt; font-family:"Courier New"; color:black">}</span><span style="color:#1F497D"></span></p>
<p class="MsoNormal"><span style="color:#1F497D"> </span></p>
<div>
<p class="MsoNormal"><b><span style="font-size:10.0pt; color:#595959">Ray Storer</span></b><span style="font-size:13.5pt; font-family:"Segoe UI","sans-serif"; color:#1F497D"></span></p>
<p class="MsoNormal"><span style="font-size:10.0pt; color:#007DC3">NIBCO INC.</span><span style="font-size:13.5pt; font-family:"Segoe UI","sans-serif"; color:#1F497D"></span></p>
<p class="MsoNormal"><span style="font-size:10.0pt; color:#595959">574.295.3457</span><span style="color:#1F497D"></span></p>
</div>
<p class="MsoNormal"><span style="color:#1F497D"> </span></p>
<div>
<div style="border:none; border-top:solid #E1E1E1 1.0pt; padding:3.0pt 0in 0in 0in">
<p class="MsoNormal"><b>From:</b> Xymon [mailto:xymon-bounces@xymon.com] <b>On Behalf Of
</b>Jorge Lopes<br>
<b>Sent:</b> Sunday, February 23, 2014 4:19 PM<br>
<b>To:</b> Xymon MailingList<br>
<b>Subject:</b> [Xymon] DHCP monitoring</p>
</div>
</div>
<p class="MsoNormal"> </p>
<p class="MsoNormal"><span lang="EN-ZA"> </span></p>
<p class="MsoNormal"><span lang="EN-ZA">Good Morning,</span></p>
<p class="MsoNormal"><span lang="EN-ZA"> </span></p>
<p class="MsoNormal"><span lang="EN-ZA">Has anyone updated/modified the DHCP plugin for xymon,</span></p>
<p class="MsoNormal"><span lang="EN-ZA"> </span></p>
<p class="MsoNormal"><span lang="EN-ZA">Currently we are using the following ext script to monitor our DHCP servers on 2008 however we seem to be running into issues on 2012</span></p>
<p class="MsoNormal"><span lang="EN-ZA"> </span></p>
<p class="MsoNormal"><span lang="EN-ZA">Thanks in advance.</span></p>
<p class="MsoNormal"><span lang="EN-ZA"> </span></p>
<p class="MsoNormal"><span lang="EN-ZA">Jorge</span></p>
<p class="MsoNormal"><span lang="EN-ZA"> </span></p>
<p class="MsoNormal"><span lang="EN-ZA">BBDHCP.VBS</span></p>
<p class="MsoNormal"><span lang="EN-ZA"> </span></p>
<p class="MsoNormal"><span lang="EN-ZA">~~~~~~~~~~~~~~</span></p>
<p class="MsoNormal"><span lang="EN-ZA">option Explicit</span></p>
<p class="MsoNormal"><span lang="EN-ZA">' BigBrother External Script for testing to see if Dhcp is up and responding on Window 2003 and above</span></p>
<p class="MsoNormal"><span lang="EN-ZA">' Gives Scope details running on the server specified With Active/Excluded and Available leases</span></p>
<p class="MsoNormal"><span lang="EN-ZA"> </span></p>
<p class="MsoNormal"><span lang="EN-ZA">' Installation</span></p>
<p class="MsoNormal"><span lang="EN-ZA">' 1) Modify the vairables below to match your system.</span></p>
<p class="MsoNormal"><span lang="EN-ZA"> </span></p>
<p class="MsoNormal"><span lang="EN-ZA">' 2) Add the script to your externals list in bbntcfg on the DHCP Server.</span></p>
<p class="MsoNormal"><span lang="EN-ZA">' so that it runs at least every 6500 seconds</span></p>
<p class="MsoNormal"><span lang="EN-ZA">' 3) Make sure you set the Saved Logs Location to %BBHOME%\ext</span></p>
<p class="MsoNormal"><span lang="EN-ZA"> </span></p>
<p class="MsoNormal"><span lang="EN-ZA">' Author Graeme Shea, Shea Technology Pty Ltd. graeme AT shea.com.au</span></p>
<p class="MsoNormal"><span lang="EN-ZA">' Adapted from and very heavly based on work by Brett Wilson -
<a href="mailto:Brett_Wilsons@hotmail.com">Brett_Wilsons@hotmail.com</a> and André Hugener</span></p>
<p class="MsoNormal"><span lang="EN-ZA">Dim Server, Alias, Yellow, Red, BBext, Colour, Col, WshShell, FileSys, OutDhcp, Version, BBextFolder</span></p>
<p class="MsoNormal"><span lang="EN-ZA">Dim Check, Dhcp, NoDhcp, Status, Scope, Line, u, Tokens, Tmp, InUse, Free, BB, BBin, pend, j</span></p>
<p class="MsoNormal"><span lang="EN-ZA"> </span></p>
<p class="MsoNormal"><span lang="EN-ZA">'---Vairables---</span></p>
<p class="MsoNormal"><span lang="EN-ZA">Server = "DHCPservername" ' Dhcp Server to test (not neccessarily the server running from)</span></p>
<p class="MsoNormal"><span lang="EN-ZA">Alias = "DHCPServername" 'Name machine is known at BB server "," instead of "."!!!</span></p>
<p class="MsoNormal"><span lang="EN-ZA">Yellow = 3 ' Min Available Leases when BB turns Yellow
</span></p>
<p class="MsoNormal"><span lang="EN-ZA">Red = 2 ' Min Available Leases when BB turns Red</span></p>
<p class="MsoNormal"><span lang="EN-ZA">'---End Vairables---</span></p>
<p class="MsoNormal"><span lang="EN-ZA"> </span></p>
<p class="MsoNormal"><span lang="EN-ZA">'---Nothing to Change under this line---</span></p>
<p class="MsoNormal"><span lang="EN-ZA"> </span></p>
<p class="MsoNormal"><span lang="EN-ZA">'On Error Resume Next'</span></p>
<p class="MsoNormal"><span lang="EN-ZA">'-------------------------------------------------------------------------------------</span></p>
<p class="MsoNormal"><span lang="EN-ZA">' Version 0.1 Oringal version using dhcpcmd.exe for NT4 Resource kit</span></p>
<p class="MsoNormal"><span lang="EN-ZA">' Version 0.2 Uses builting Windows 2003 netsh command.</span></p>
<p class="MsoNormal"><span lang="EN-ZA">' Version 0.2.1 Fixed dialog error on 64bit systems.</span></p>
<p class="MsoNormal"><span lang="EN-ZA"> </span></p>
<p class="MsoNormal"><span lang="EN-ZA">Version = "0.2.1"</span></p>
<p class="MsoNormal"><span lang="EN-ZA"> </span></p>
<p class="MsoNormal"><span lang="EN-ZA">Set WshShell = WScript.CreateObject("WScript.Shell")</span></p>
<p class="MsoNormal"><span lang="EN-ZA">Set FileSys = CreateObject("Scripting.FileSystemObject")</span></p>
<p class="MsoNormal"><span lang="EN-ZA"> </span></p>
<p class="MsoNormal"><span lang="EN-ZA">On Error Resume Next</span></p>
<p class="MsoNormal"><span lang="EN-ZA">BBext = WshShell.RegRead("HKLM\SOFTWARE\bbwin\tmppath\")</span></p>
<p class="MsoNormal"><span lang="EN-ZA"> </span></p>
<p class="MsoNormal"><span lang="EN-ZA">' If 64 bit system then reg file has moved and will raise an error.</span></p>
<p class="MsoNormal"><span lang="EN-ZA">If Err Then</span></p>
<p class="MsoNormal"><span lang="EN-ZA"> err.clear</span></p>
<p class="MsoNormal"><span lang="EN-ZA"> BBext = ("c:\progra~2\bbwin\tmp")'
</span></p>
<p class="MsoNormal"><span lang="EN-ZA"> If Err Then</span></p>
<p class="MsoNormal"><span lang="EN-ZA"> MsgBox " Big Brother Client not installed. ",," Fatal Error. "</span></p>
<p class="MsoNormal"><span lang="EN-ZA"> End If</span></p>
<p class="MsoNormal"><span lang="EN-ZA"> on Error GoTo 0</span></p>
<p class="MsoNormal"><span lang="EN-ZA">End If</span></p>
<p class="MsoNormal"><span lang="EN-ZA"> </span></p>
<p class="MsoNormal"><span lang="EN-ZA">If BBext = "" Then</span></p>
<p class="MsoNormal"><span lang="EN-ZA"> MsgBox " Big Brother External Path not set. You need to set the Saved Logs Location " _</span></p>
<p class="MsoNormal"><span lang="EN-ZA"> & VbCrLf & " using the bbntcfg utility. ",," Fatal Error. "</span></p>
<p class="MsoNormal"><span lang="EN-ZA"> WScript.Quit</span></p>
<p class="MsoNormal"><span lang="EN-ZA"> End If</span></p>
<p class="MsoNormal"><span lang="EN-ZA">On Error GoTo 0</span></p>
<p class="MsoNormal"><span lang="EN-ZA"> </span></p>
<p class="MsoNormal"><span lang="EN-ZA"> </span></p>
<p class="MsoNormal"><span lang="EN-ZA">'Need short path names or else Netsh creates a c:\program file.</span></p>
<p class="MsoNormal"><span lang="EN-ZA">Set BBextFolder = FileSys.GetFolder(BBext)</span></p>
<p class="MsoNormal"><span lang="EN-ZA">BBext = BBextFolder.ShortPath</span></p>
<p class="MsoNormal"><span lang="EN-ZA">Status = "status " & Alias & ".dhcp "</span></p>
<p class="MsoNormal"><span lang="EN-ZA"> </span></p>
<p class="MsoNormal"><span lang="EN-ZA">Dhcp = "cmd /c " & "Netsh.exe dhcp server \\"& Server & " show mibinfo > " & bbext & "\dhcp.txt"</span></p>
<p class="MsoNormal"><span lang="EN-ZA">WshShell.run Dhcp, 0, True</span></p>
<p class="MsoNormal"><span lang="EN-ZA"> </span></p>
<p class="MsoNormal"><span lang="EN-ZA">' Check to see that Dhcp is running</span></p>
<p class="MsoNormal"><span lang="EN-ZA">Set Check = FileSys.OpenTextFile (bbext & "\dhcp.txt")</span></p>
<p class="MsoNormal"><span lang="EN-ZA">NoDhcp = Check.ReadLine</span></p>
<p class="MsoNormal"><span lang="EN-ZA">If InStr(1,NoDhcp, "Unable") OR InStr(1,NoDhcp, "Not Found")Then</span></p>
<p class="MsoNormal"><span lang="EN-ZA"> Dhcp = "No"</span></p>
<p class="MsoNormal"><span lang="EN-ZA"> Status = "red " & Status & " red" & " " & Now() & Vbcrlf &_</span></p>
<p class="MsoNormal"><span lang="EN-ZA"> "Warning!! Dhcp Is not Running On Server - " & Server</span></p>
<p class="MsoNormal"><span lang="EN-ZA">End If</span></p>
<p class="MsoNormal"><span lang="EN-ZA"> </span></p>
<p class="MsoNormal"><span lang="EN-ZA">' If Dhcp is running retrieve Active Scopes and lease numbers</span></p>
<p class="MsoNormal"><span lang="EN-ZA"> </span></p>
<p class="MsoNormal"><span lang="EN-ZA">Do While Not check.AtEndOfStream</span></p>
<p class="MsoNormal"><span lang="EN-ZA"> Line = Check.ReadLine</span></p>
<p class="MsoNormal"><span lang="EN-ZA"> u = Instr(1,Line,"Subnet")</span></p>
<p class="MsoNormal"><span lang="EN-ZA"> if u <> 0 Then</span></p>
<p class="MsoNormal"><span lang="EN-ZA"> tokens = Split( Line,"=")</span></p>
<p class="MsoNormal"><span lang="EN-ZA"> tmp = Check.ReadLine</span></p>
<p class="MsoNormal"><span lang="EN-ZA"> Inuse = Split( tmp,"=")</span></p>
<p class="MsoNormal"><span lang="EN-ZA"> tmp = Check.ReadLine</span></p>
<p class="MsoNormal"><span lang="EN-ZA"> Free = Split( tmp,"=")</span></p>
<p class="MsoNormal"><span lang="EN-ZA"> tmp = Check.ReadLine</span></p>
<p class="MsoNormal"><span lang="EN-ZA"> pend = Split( tmp,"=")</span></p>
<p class="MsoNormal"><span lang="EN-ZA"> </span></p>
<p class="MsoNormal"><span lang="EN-ZA"> j=(Cint(Free(1))+Cint(Inuse(1))+Cint(pend(1)))</span></p>
<p class="MsoNormal"><span lang="EN-ZA"> </span></p>
<p class="MsoNormal"><span lang="EN-ZA"> If j < 1 Then</span></p>
<p class="MsoNormal"><span lang="EN-ZA"> Colour = "blue"</span></p>
<p class="MsoNormal"><span lang="EN-ZA"> Else</span></p>
<p class="MsoNormal"><span lang="EN-ZA"> Colour = "green"</span></p>
<p class="MsoNormal"><span lang="EN-ZA"> if Col < 1 Then</span></p>
<p class="MsoNormal"><span lang="EN-ZA"> Col = 1
</span></p>
<p class="MsoNormal"><span lang="EN-ZA"> End If</span></p>
<p class="MsoNormal"><span lang="EN-ZA"> </span></p>
<p class="MsoNormal"><span lang="EN-ZA"> If Cint(Free(1)) <= Yellow Then</span></p>
<p class="MsoNormal"><span lang="EN-ZA"> Colour = "yellow"</span></p>
<p class="MsoNormal"><span lang="EN-ZA"> If Col < 2 Then</span></p>
<p class="MsoNormal"><span lang="EN-ZA"> Col = 2</span></p>
<p class="MsoNormal"><span lang="EN-ZA"> End If</span></p>
<p class="MsoNormal"><span lang="EN-ZA"> End If</span></p>
<p class="MsoNormal"><span lang="EN-ZA"> </span></p>
<p class="MsoNormal"><span lang="EN-ZA"> If Cint(Free(1)) <= Red Then</span></p>
<p class="MsoNormal"><span lang="EN-ZA"> Colour = "red"</span></p>
<p class="MsoNormal"><span lang="EN-ZA"> Col = 3</span></p>
<p class="MsoNormal"><span lang="EN-ZA"> End If</span></p>
<p class="MsoNormal"><span lang="EN-ZA"> End If</span></p>
<p class="MsoNormal"><span lang="EN-ZA"> </span></p>
<p class="MsoNormal"><span lang="EN-ZA"> Scope = Scope & " Scope " & Tokens(1) & " " & Fix(Inuse(1)) & " Active/Excluded" &_</span></p>
<p class="MsoNormal"><span lang="EN-ZA"> VbCrlf & "&" & Colour & " Scope " & Tokens(1) & " " & Fix(Free(1)) & " Available" &_</span></p>
<p class="MsoNormal"><span lang="EN-ZA"> VbCrlf & " Scope " & Tokens(1) & " " & Fix(pend(1)) & " Pending" & VbCrlf &_</span></p>
<p class="MsoNormal"><span lang="EN-ZA"> "Status: " & Colour & VbCrlf & VbCrlf</span></p>
<p class="MsoNormal"><span lang="EN-ZA"> End If</span></p>
<p class="MsoNormal"><span lang="EN-ZA">Loop</span></p>
<p class="MsoNormal"><span lang="EN-ZA"> </span></p>
<p class="MsoNormal"><span lang="EN-ZA">Colour = "red"</span></p>
<p class="MsoNormal"><span lang="EN-ZA"> </span></p>
<p class="MsoNormal"><span lang="EN-ZA">If Col = 0 Then</span></p>
<p class="MsoNormal"><span lang="EN-ZA"> Colour = "blue"</span></p>
<p class="MsoNormal"><span lang="EN-ZA">End If</span></p>
<p class="MsoNormal"><span lang="EN-ZA">If Col = 1 Then</span></p>
<p class="MsoNormal"><span lang="EN-ZA"> Colour = "green"</span></p>
<p class="MsoNormal"><span lang="EN-ZA">End If</span></p>
<p class="MsoNormal"><span lang="EN-ZA">If Col = 2 Then</span></p>
<p class="MsoNormal"><span lang="EN-ZA"> Colour = "yellow"</span></p>
<p class="MsoNormal"><span lang="EN-ZA">End If</span></p>
<p class="MsoNormal"><span lang="EN-ZA"> </span></p>
<p class="MsoNormal"><span lang="EN-ZA">If Dhcp <> "No" Then</span></p>
<p class="MsoNormal"><span lang="EN-ZA"> Status = colour & "+2h " & Status & Colour & " " & Now() & Vbcrlf & _</span></p>
<p class="MsoNormal"><span lang="EN-ZA"> "Dhcp is running on Server " & Server & " with the following configuration" & VbCrLf</span></p>
<p class="MsoNormal"><span lang="EN-ZA">End If</span></p>
<p class="MsoNormal"><span lang="EN-ZA"> </span></p>
<p class="MsoNormal"><span lang="EN-ZA">Set OutDhcp = filesys.CreateTextFile(BBext & "\dhcp", True)</span></p>
<p class="MsoNormal"><span lang="EN-ZA">OutDhcp.WriteLine Status</span></p>
<p class="MsoNormal"><span lang="EN-ZA">OutDhcp.WriteLine Scope</span></p>
<p class="MsoNormal"><span lang="EN-ZA">OutDhcp.WriteLine ""</span></p>
<p class="MsoNormal"><span lang="EN-ZA">OutDhcp.WriteLine "BBDhcp Version " & Version</span></p>
<p class="MsoNormal"><span lang="EN-ZA">Outdhcp.close </span></p>
<p class="MsoNormal"><span lang="EN-ZA">Check.close</span></p>
<p align="center" style="text-align:center"><span lang="EN-ZA" style="font-size:7.5pt; font-family:"Arial","sans-serif"">This email and its contents are subject to an email legal notice that can be viewed at:
</span><span lang="EN-ZA"><a href="http://www.naspers.com/disclaimer.php"><span style="font-size:7.5pt; font-family:"Arial","sans-serif"">http://www.naspers.com/disclaimer.php</span></a></span><span lang="EN-ZA" style="font-size:7.5pt; font-family:"Arial","sans-serif"">
Should you be unable to access the link provided, please email us for a copy at </span>
<span lang="EN-ZA"><a href="mailto:csc@optinet.net"><span style="font-size:7.5pt; font-family:"Arial","sans-serif"">csc@optinet.net</span></a></span></p>
<p align="center" style="text-align:center"><span lang="EN-ZA" style="font-size:7.5pt; font-family:"Arial","sans-serif"">Hierdie e-pos en sy inhoud is onderhewig aan 'n regskennisgewing oor elektroniese pos wat gelees kan word by
<a href="http://www.naspers.com/afrikaans/voorbehoud.php">http://www.naspers.com/afrikaans/voorbehoud.php</a> 'n Afskrif kan aangevra word by
<a href="mailto:csc@optinet.net">csc@optinet.net</a></span><span lang="EN-ZA"></span></p>
</div>
<br>
<hr>
<font face="Arial" color="Gray" size="1"><br>
CONFIDENTIALITY NOTICE: This email and any attachments are for the<br>
exclusive and confidential use of the intended recipient. If you are not<br>
the intended recipient, please do not read, distribute or take action in<br>
reliance upon this message. If you have received this in error, please<br>
notify us immediately by return email and promptly delete this message<br>
and its attachments from your computer system. We do not waive<br>
attorney-client or work product privilege by the transmission of this<br>
message.<br>
</font>
</body>
</html>