RE: [ActiveDir] DHCP/Netsh - Other ways of working with DHCP

[Parker, Edward]

Title: Message

I wrote this as a VBScript wrapper to NETSH.  We have used this to reload 4000 scopes on multiple DHCP servers.  You can run this via a batch file and supply all the required parameters or use it to run interactively for creating new scopes.  Up to you.    As always test it in a lab prior to production use. I can not be responsible for the results of running this script.     *************SCRIPT BEGIN****************   Option Explicit 'On Error Resume next 'wscript.echo "" 'wscript.echo "NewDHCP.vbs  (c) Edward Parker, Buchanan Associates" 'wscript.echo "     This script will add Subnets in DHCP"   Dim sDHCPServer, sScope, sScopeSub, sScopeName, sRangeBegin, sRangeEnd, sOption Dim sDefaultGW, sFQDN, sResults, sScopeDesc Dim oShell       If wscript.arguments.count > 0 then    If wscript.arguments(0) = "/?" OR wscript.arguments(0) = "?" OR wscript.arguments(0) = "-?" then   wscript.echo ""   wscript.echo "USAGE:"   wscript.echo "NewDHCP <DHCPSERVERIP> <SCOPE> <SCOPE SUBNET> <NAME> <DESCRIPTION> <START IP RANGE> <END IP RANGE> <Default GW> <DOMAIN NAME>"   wscript.echo ""   wscript.echo "EXAMPLE:"   wscript.echo "NewDHCP 192.168.1.1 5.5.5.0 255.255.255.0 ""Scope Name"" ""ScopeDescription"" 5.5.5.100 5.5.5.150 5.5.5.1 <domain>.com"   wscript.quit  End If   End If   if wscript.arguments.count < 9 OR wscript.arguments.count > 9 then  If wscript.arguments.count < 1 then   MsgBox "No command line arguments detected"  else   MsgBox "Wrong Number of Arguments"  End If   sDHCPServer = Inputbox("What is the DHCP Server IP Address?")   sScope = Inputbox("What is the Scope to add?")   sScopeSub = InputBox("What is the Scope's Subnet?")   sScopeName = InputBox("What is the Scope's Name?")   sScopeDesc = InputBox("What is the Scope's Description?")   sRangeBegin = InputBox("What is the Scope's Range Starting IP?")   sRangeEnd = InputBox("What is the Scope's Range Ending IP?")   sDefaultGW = InputBox("What is the Default Gateway?")   sFQDN = InputBox("What is the domain name?")   else  sDHCPServer = wscript.arguments(0)  sScope = wscript.arguments(1)  sScopesub = wscript.arguments(2)  sScopeName = wscript.arguments(3)  sScopeDesc = wscript.arguments(4)  sRangeBegin = wscript.arguments(5)  sRangeEnd = wscript.arguments(6)  sDefaultGW = wscript.arguments(7)  sFQDN  = wscript.arguments(8)  'wscript.echo sScopeName & " " & sScopeDesc   End IF   Set oShell = CreateObject("wscript.shell")  if err <> 0 then opps "Create Shell", err.number,err.description,err.source wscript.echo "Adding Scope " & sScope 'wscript.echo "netsh dhcp server " & sDHCPServer & " add scope " & sScope & " " & sScopeSub  & " """ & sScopeNAme & """ """ & sScopeDesc & """" sResults = oShell.Run("netsh dhcp server " & sDHCPServer & " add scope " & sScope & " " & sScopeSub  & " """ & sScopeNAme & """ """ & sScopeDesc & """",0, True)  If sResults <> 0 then    opps "Add Scope Failure "&sScope,sResults,"?","?"    sResults = 0  End if oShell.Run "netsh dhcp server " & sDHCPServer & " scope " & sScope & " add iprange " & sRangeBegin & " " & sRangeEnd,0, True  If sResults <> 0 then    opps "Add IP Range Failure "&sScope,sResults,"?","?"    sResults = 0  End if 'oShell.Run "netsh dhcp server " & sDHCPServer & " scope " & sScope & " add excluderange " & <beginIP> & " " & <EndIP>,0, True  'If sResults <> 0 then  '  opps "Add Exclusion Failure",sResults,"?","?"  '  sResults = 0  'End if oShell.Run "netsh dhcp server " & sDHCPServer & " scope " & sScope & " set optionvalue 003 IPADDRESS " & sDefaultGW,0, True  If sResults <> 0 then    opps "Add Scope Option 003 Failure "&sScope,sResults,"?","?"    sResults = 0  End if oShell.Run "netsh dhcp server " & sDHCPServer & " scope " & sScope & " set optionvalue 015 STRING " & sFQDN,0, True  If sResults <> 0 then    opps "Add Scope Option 015 Failure "&sScope,sResults,"?","?"    sResults = 0  End if oShell.Run "netsh dhcp server " & sDHCPServer & " scope " & sScope & " set state 1",0, True  If sResults <> 0 then    opps "Scope Set State Failure "&sScope,sResults,"?","?"    sResults = 0  End if writeMe "Success: Scope Creation complete for " & sScope   Sub Opps(Data, ErrMsgNum, errMsgDesc, ErrMsgsource)  Dim oFSO,oFile  wscript.echo "Error: Failed adding " & DATA & " " & ErrMSGNum & " " & ErrMsgDesc & " " & ErrMsgSource  Set oFSO = createobject("Scripting.Filesystemobject")  Set oFile = oFSO.OpenTextFile("c:\DHCPERRORS.txt",8,True)  oFile.writeline "Error: Failed adding " & vbtab & DATA & vbtab & ErrMSGNum &vbtab& ErrMsgDesc &vbtab& ErrMsgSource  err.clear  wscript.quit End Sub   Sub WriteMe(info)  Dim oFSO,oFile  Set oFSO = createobject("Scripting.Filesystemobject")  Set oFile = oFSO.OpenTextFile("c:\DHCPWORKS.txt",8,True)  oFile.writeline info End Sub   ****************END SCRIPT*****************************   -----Original Message----- From: Myrick, Todd (NIH/CIT) [mailto:[EMAIL PROTECTED] Sent: Thursday, October 23, 2003 1:06 PM To: '[EMAIL PROTECTED]' Subject: RE: [ActiveDir] DHCP/Netsh - Other ways of working with DHCP Rob,   I am forwarding your request to my MS TAM and MCS guy.   Todd -----Original Message----- From: Robbie Allen [mailto:[EMAIL PROTECTED] Sent: Thursday, October 23, 2003 1:33 AM To: '[EMAIL PROTECTED]' Subject: RE: [ActiveDir] DHCP/Netsh - Other ways of working with DHCP I'd love to see that if you can find it.  Last I heard, there is still no DHCP Server WMI provider.  I just looked at a W2K3 server with the DHCP Server installed and couldn't find a provider for it.   Not having a scripting API is a big hole for the Microsoft DHCP Server.  dhcpobjs.dll isn't supported and from what I heard it was only accidentally put in the W2K Res Kit.  It has a lot of problems regardless.  Shelling out to netsh (ugh) is the best option at this point from a scripting perspective.   Robbie Allen http://www.rallenhome.com/   -----Original Message----- From: Darren Mar-Elia [mailto:[EMAIL PROTECTED] Sent: Wednesday, October 22, 2003 9:29 PM To: [EMAIL PROTECTED] Subject: RE: [ActiveDir] DHCP/Netsh - Other ways of working with DHCP Clyde- Somewhere buried on Microsoft's site, I once came across a WMI provider for DHCP Servers. I will see if I can track down a URL.   Darren -----Original Message----- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf Of Burns, Clyde Sent: Wednesday, October 22, 2003 8:01 AM To: [EMAIL PROTECTED] Subject: RE: [ActiveDir] DHCP/Netsh - Other ways of working with DHCP Ive used netsh to move the scopes from one server to another. There were some minor issues (documented in technet) but it works fairly well. Other things to try:   From the 2000 Server Resource Kit Microsoft DHCP Database Export Import Tool - DHCPEXIM.EXE     Just like the title says. An import/export tool. I prefered netsh as I could edit the script between servers. DHCP Objects 1.0 - DHCPOBJS.EXE     dll to program against a dhcp server. It has issues with scopes that have more than 255 reservations.   If anyone knows of any other type of automation tool to use against a dhcp server I would really like to hear about it.   Clyde Burns Norton Healthcare. Louisville Ky. From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf Of Steve Rochford Sent: Tuesday, October 21, 2003 7:52 AM To: [EMAIL PROTECTED] Subject: RE: [ActiveDir] DHCP/Netsh You can't have 2 identical servers running at the same time (you'd get some exciting conflicts!) but you could dump your working server and keep the file safe. When your working server fails you then just reload the data into a "spare" server and your DHCP server is back and running. I'd guess it would make sense to do a scheduled dump of this data at regular intervals so that the file is always reasonably up to date.   Steve -----Original Message----- From: Jerry Johnson [mailto:[EMAIL PROTECTED] Sent: 16 October 2003 17:13 To: [EMAIL PROTECTED] Subject: [ActiveDir] DHCP/Netsh Everyone,   Has anyone ever used Netsh to move DHCP to another server? In Mark Minasi's book he talks about using it to add another DHCP server to your network by dumping it with Netsh from one machine and Exec it to another machine. He did not go into much detail but I did not think you could have identically configured DHCP server's on a network.   Thanks Jerry   Scicom Data Services Minnetonka,Mn     This message is confidential, intended only for the named recipient(s) and may contain information that is privileged or exempt from disclosure under applicable law. Any patient health information must be delivered immediately to intended recipient(s). If you are not the intended recipient(s), you are notified that the dissemination, distribution or copying of this message is strictly prohibited. If you receive this message in error, or are not the named recipient(s), please notify the sender at either the e-mail address or telephone number above and discard this e-mail. Thank you.