<\/p>\n
Load-balancing your DHCP has been well documented, but the matter of synchronizing your IP reservations has always the fly in the ointment. But no more.<\/p>\n
To export DHCP reservations, from the source server:<\/p>\n
netsh dhcp server [ip address] scope [scope address] dump>reserv.txt<\/p>\n
Open up \u2018reserv.txt\u2019 in a text editor, do a Find->Replace for the source server IP, change to the destination server IP. Trim out everything in the file except for the reservations themselves.<\/p>\n
On the destination server, make sure your scope is already created, and run the following command:<\/p>\n
netsh exec C:\\reserv.txt<\/p>\n
Tada. The only problem is that as your add more and more reservations, you\u2019ll need to add them to each server that you are load balancing. It\u2019s easier to do that than to do another export.<\/p>\n
found at Link<\/a><\/p>\n <\/p>\n The problematic scenario is the following:<\/span><\/p>\n There are two DHCP servers serving the same set of subnets. For each of the subnets which is being served by both the servers there are two scopes one for each server. The scopes are configured in a way that the active address range in one is in the exclusion range of the other. This way we make sure that a particular IP address is not distributed independently of each other. Now there is a small problem if there are reservations. If the admin has configured the reservations in only one of the scopes then he is on for a surprise. The surprise is that the client for whom you have configured the reservation might get a dynamic IP address from the other DHCP server. This can happen in case the DISCOVER sent by the client reaches the server which does not have reservations first. Thus the essential reason for having a reservation is defeated. <\/span><\/p>\n The proper way to handle this scenario is: First configure the scope such that the active address range for both the DHCP servers in question is mutually exclusive. Then write a netsh script for the reservations. This script file (let\u2019s call it reservations.txt) would contain for each reservation an entry like: <\/span><\/p>\n dhcp server 10.0.0.1 scope 10.0.0.0 add \u00a0 reservedip 11.0.0.1 <MAC ADDRESS><\/span><\/p>\n Now run this script in the first server 10.0.0.1 by typing:<\/span><\/p>\n Netsh exec reservations.txt<\/span> <\/span><\/span><\/p>\n After this has been done, you might want to use a word processor to replace the IP address of the server 10.0.0.1 to the IP address of the second DHCP server (say 10.0.0.2). <\/span><\/p>\n Once this replacement has been done, you can run the script in the second server. Actually the scripts for both the servers can be run from any place from which there is network connectivity to the DHCP servers. This is because almost most of the operations done through netsh is remotable.<\/span><\/p>\n Now for the tough part. If you do have two scopes like what I have mentioned and you did not duplicate the reservations then you have to do the following:<\/span><\/p>\n On the DHCP server where you have configured the reservations, you can execute this command for each of the scopes from which you need to export the reservations.<\/span><\/p>\n netsh dhcp server <serverIPAddress> scope <scopeAddress> \u00a0dump>dump.txt<\/span><\/span><\/p>\n This will dump all the configuration settings for this scope. At the bottom of the dumped text file, you can see the reservations being dumped. Just copy this reservation settings to a new file say \u201cexportedreserv.txt\u201d.<\/span><\/p>\n Append to this file exportedreserv.txt the reservation settings from each of the other scopes.<\/span><\/p>\n Now on the target machine, do a <\/span><\/p>\n netsh exec exportedreserv.txt<\/span><\/span><\/p>\n You should be done by now. I know it is not completely automatic, but it does save a lot of effort. <\/span><\/p>\n found at Link<\/a><\/p>\n Thanks! \u00a0This got me started doing more resarch on netsh and I found a way to fully automate this process with a batch file and 2 free utilities (grep.exe<\/a> and sed.exe<\/a>, alternative <\/a>) \u00a0In my environment I was worried about 2 dhcp servers getting out of sync. \u00a0So this script will purge all reservations from the 2nd server every night, and import the reservations from the 1st server. \u00a0Maybe someone else will find it useful.<\/p>\n REM #– Dump current DHCP configurations –#<\/p>\n netsh dhcp server \\\\server1 dump > dhcp_dump.txt<\/p>\n netsh dhcp server \\\\server2 dump > dhcp_purge.txt<\/p>\n REM #– In the purge file, pull out the reservation details and change “add” to “delete” –#<\/p>\n grep reservedip dhcp_purge.txt | sed.exe “s\/Add\/delete\/” > dhcp_purge-reservations.txt<\/p>\n REM #– Purge reservations on the second dhcp server –#<\/p>\n netsh exec dhcp_purge-reservations.txt<\/p>\n REM #– In the dump file pull out the reservation details and change server IPs. –#<\/p>\n grep reservedip dhcp_dump.txt | sed.exe “s\/<server1 IP>\/<server2 IP>\/” > dhcp_new-reservations.txt<\/p>\n REM #– Import the new reservations into the second dhcp server –#<\/p>\n netsh exec dhcp_new-reservations.txt<\/p>\n <\/p>\n Reservation Manager:<\/span><\/strong> 2) Synchronizing reservations on 2 DHCP servers on specific subnets.<\/strong> 3) Dumping leases on specific subnets.<\/strong> 4) MakeReservation switch.<\/strong> Based on the -dumplease and -makereservation switch, some interesting possibilities arise. What is possible is the following scenario: An admin has an active DHCP server which has a couple of scopes. Initially there are no reservations in any of these scopes. Thus all the subnets corresponding to these scopes have dynamic addresses. In the environment any machine which is plugged into the these subnets will get a dynamic IP address from the DHCP server. Now to restrict the access of the network to those machines that are already connected to the network, the admin can do the following. In the attachment (See the link at the end of this post), Find the RManager.vbs .You need to extract the contents of the zip file into a separate folder and run it from there. The zip file should contain two files: rmanager.vbs and help.txt.<\/em><\/p>\n \u00a0If you are not able to get it, Cut-copy-paste the following into a file named rmanager.vbs. Also copy the contents of the documentation help.txt<\/em><\/p>\n Run it by typing “cscript rmanager.vbs”<\/p>\n X———————–Begin Paste———————X<\/p>\n call start() sub start()<\/p>\n args=0 for i=0 to wscript.arguments.count-1 str1=split(str)<\/p>\n ‘show error if nothing is entered————<\/p>\n if (not isarray(str1)) then if(strcomp(“Rmanager”,str1(0))<>0) then ‘checking for different cases after Rmanager case “-migrate”<\/p>\n call migrate(str1)<\/p>\n case “-sync”<\/p>\n call migrate(str1) case “-dumplease”<\/p>\n call dump(str1)<\/p>\n case “-makereservation”<\/p>\n call makereservation(str1)<\/p>\n case “\/?”<\/p>\n call helpfile()<\/p>\n case else end select<\/p>\n ‘delete the scopefile that is created during the program<\/p>\n set fso = createobject(“Scripting.FileSystemObject”) sub dump(str1)<\/p>\n ‘if improper arguments are entered show error<\/p>\n if ubound(str1)<4 then filename = str1(2) p=checkserver(str1(3))<\/p>\n if p=0 then serverarray = makescopearray(scopes)<\/p>\n if not isarray(serverarray) then if (strcomp(str1(4),”all”)=0) then<\/p>\n if(ubound(str1)=4) then else<\/p>\n for i = 4 to ubound(str1) for i = 0 to ubound(scope) ’the following procedure outputs the ip and corresponding mac addresses(active leases) into the file – ‘filename’…it takes the output string clients that we get after executing the command shoe clients<\/p>\n sub makeclients(clients,filename)<\/p>\n set fso = createobject(“Scripting.FileSystemObject”) Set scopefile = fso.OpenTextFile(“scopefile.txt”) line = scopefile.ReadLine<\/p>\n if(instr(line,”No of Clients”)=1) then t=str(4)\u00a0\u00a0\u00a0 \u00a0\u00a0\u00a0\u00a0’taking no. of clients into t end if<\/p>\n loop<\/p>\n scopefile.close<\/p>\n t=cint(t)<\/p>\n if t=0 then exit sub set outfile = fso.opentextfile(filename,8)<\/p>\n for i=0 to t-1 str= split(line)<\/p>\n if (instr(line,”INACTIVE”)<>0) then outfile.write(str(0)) outfile.writeline(trim(replace(str(l),”-“,””)))<\/p>\n else outfile.writeline(trim(replace(str(l),”-“,””))) sub makereservation(str1)<\/p>\n if ubound(str1)<>3 then server = str1(2) set fso = createobject(“Scripting.FileSystemObject”) k = checkserver(server) scopearray=makescopearray(scopes)\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 ‘scopes is the output string obtained after executing show scope command for given server<\/p>\n set handle = fso.opentextfile(filename)<\/p>\n Dim ipaddress line=trim(handle.readline) else p=0<\/p>\n for k=0 to ubound(strarray) else<\/p>\n if p=0 then if p<>2 then redim preserve iparray3(t) if not isarray(iparray3) then dim arr for i = 0 to ubound(scopearray)<\/p>\n set iprange = fso.createtextfile(“iprangefile.txt”) set wshell = CreateObject(“WScript.Shell”) set iprange = fso.opentextfile(“iprangefile.txt”,8) for p=0 to 5 count=0<\/p>\n for j=0 to t-1<\/p>\n k = checkiprange(line2(3),line2(13),iparray3(j))<\/p>\n if k = 1 then<\/p>\n redim preserve iparray1(arraysize) iprange.close call addreservation(server,scopearray(i),iparray1,macarray1)<\/p>\n if (finaliparray(0)=””) then<\/p>\n else wscript.echo “The specified IP address “&finaliparray(l)& ” or hardware address “& finalmacarray(l)& ” is either not proper or is being used by another client.” end if next<\/p>\n set handle = fso.opentextfile(filename) if(arr(i)=0) then wscript.echo “The ipaddress “&iparray3(i)&” is not present in any scope” sub addreservation(server,scopestr,iparraysource,macarraysource)<\/p>\n redim finaliparray(0) call makeipandmacarray(outpdest) ‘ remove common ip and mac pair between the two servers for the given scope<\/p>\n if(not isarray(iparraydest)) then else for i = 0 to ubound(iparraysource) if flag=1 then<\/p>\n if synccount = 0 and m=0 then<\/p>\n wscript.echo “reservation “&iparraysource(i)&” “&macarraysource(i)&” is already present on server “&server redim preserve finaliparray(k) end sub<\/p>\n function checkiprange(ip1,ip2,ip3)<\/p>\n str2=split(ip1,”.”) dim string<\/p>\n if cint(str2(0))<=cint(str4(0)) and cint(str4(0))<=cint(str3(0)) then if(cint(string1)<=cint(string3) and cint(string3)<=cint(string2)) then else sub helpfile()<\/p>\n set fso = createobject(“Scripting.FileSystemObject”) do while not help.atendofstream<\/p>\n wscript.echo (help.readline)<\/p>\n loop<\/p>\n end sub<\/p>\n ‘ this function will return 1 if the scope(scopestr) is present in the given server(serverarray….this is an array of server scopes)(be it source or destination)…else 0<\/p>\n function isscope(scopestr,serverarray)<\/p>\n l=0 isscope=l<\/p>\n end function<\/p>\n ’this function will check if the server entered as argument is present or not(or rather entered correctly or not)<\/p>\n function checkserver(str1) dim pos1<\/p>\n set wshell = CreateObject(“WScript.Shell”) scopes = obj.stdout.readall()<\/p>\n pos1=instr(scopes,”Command completed successfully.”)\u00a0\u00a0\u00a0\u00a0\u00a0 ‘if the string is present, the command has executed succesfully<\/p>\n if(pos1<>0) then end function<\/p>\n ’this function takes as argument the output string that we get after the command show scope is executed and returns function makescopearray(scopes)<\/p>\n set fso = createobject(“Scripting.FileSystemObject”) Set scopefile = fso.OpenTextFile(“scopefile.txt”) line = scopefile.ReadLine<\/p>\n if(instr(line,”Total No. of Scopes”)=2) then loop<\/p>\n scopefile.close<\/p>\n t=cint(t)\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0‘converting string to integer<\/p>\n if t=0 then\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0‘if no scopes are present<\/p>\n makescopearray=”” Set scopefile = fso.OpenTextFile(“scopefile.txt”) str3 = split(str3,” “)<\/p>\n redim preserve serverscope(i) next <\/p>\n ‘function to take reservations from source server and add to destination server for a given scope<\/p>\n sub reservedip(sourceadd,destadd,scopestr,filename,command)<\/p>\n dim outp call makeipandmacarray(outpsource) if(not isarray(iparraysource)) then set fso = createobject(“Scripting.FileSystemObject”) for i=0 to ubound(iparraysource) ‘now finaliparray and finalmacarray contain only the unique ip and mac addresses<\/p>\n if (not isarray(finaliparray) or finaliparray(0)=””) then exit sub t=ubound(finaliparray)<\/p>\n set wshell = CreateObject(“WScript.Shell”) wscript.echo “The specified IP address “&finaliparray(i)& ” or hardware address “& finalmacarray(i)& ” is being used by another client.” next<\/p>\n if ((m=1 or m=2)) then sub makeipandmacarray(outp) set fso = createobject(“Scripting.FileSystemObject”) Set scopefile = fso.openTextFile(“scopefile.txt”)<\/p>\n do While not scopefile.AtEndOfStream scopefile.close<\/p>\n if t=0 then else for i=1 to 7 for i=1 to t iparray(i-1)=string1(0) end sub<\/p>\n sub migrate(str1)<\/p>\n if ubound(str1)<4 then\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 ‘ ensures that the command entered has required no. of arguments k = checkserver(str1(2))\u00a0\u00a0\u00a0\u00a0\u00a0 \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 ‘checking if the source server exists or not… scopes1 = scopes<\/p>\n k = checkserver(str1(3)) scopes2 = scopes<\/p>\n ‘comes here if both servers are entered correctly<\/p>\n sourcescope = makescopearray(scopes1)\u00a0\u00a0\u00a0\u00a0\u00a0 ‘sourcescope here has all scopes from source server bound=ubound(str1) scope=sourcescope\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 ‘scope array now contains all the scopes from source server if(strcomp(str1(bound),”-preview”)=0) then p=0 erase sourcescope\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 ‘freeing the space allocated to sourcescope destscope = makescopearray(scopes2)\u00a0\u00a0\u00a0\u00a0 ‘destscope has all scopes from destination server else if(m=1 or m=2) then for i=0 to ubound(scope)<\/p>\n if(isscope(scope(i),destscope)) then\u00a0\u00a0\u00a0\u00a0 ‘checking if scopes are present on destination server or not<\/p>\n call reservedip(str1(2),str1(3),scope(i),filename,str1(1)) ’this will take reservations in the given scope from source server and output add reservedip(destination) command to a file<\/p>\n else<\/p>\n wscript.echo “scope “&scope(i)& ” not present in server “&str1(3) end if X———————–End Paste———————X<\/p>\n And here is a more formal looking help: Options: Examples: found at link<\/a><\/p>\n","protected":false},"excerpt":{"rendered":" Simple version Load-balancing your DHCP has been well documented, but the matter of synchronizing your IP reservations has always the fly in the ointment. But no more. To export DHCP reservations, from the source server: netsh dhcp server [ip address] scope [scope address] dump>reserv.txt Open up \u2018reserv.txt\u2019 in a text editor, do a Find->Replace… Lees verder How to duplicate reservations from one Windows server to another?<\/span><\/a><\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[14,11,13,12,26],"tags":[36,37,38,40,39],"class_list":["post-65","post","type-post","status-publish","format-standard","hentry","category-ms","category-ms2k3","category-ms2k8","category-ms2k8r2","category-windows-administration","tag-dhcp","tag-export","tag-import","tag-server","tag-windows","entry"],"_links":{"self":[{"href":"https:\/\/www.mostlyharmless.nl\/index.php\/wp-json\/wp\/v2\/posts\/65","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/www.mostlyharmless.nl\/index.php\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/www.mostlyharmless.nl\/index.php\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/www.mostlyharmless.nl\/index.php\/wp-json\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/www.mostlyharmless.nl\/index.php\/wp-json\/wp\/v2\/comments?post=65"}],"version-history":[{"count":7,"href":"https:\/\/www.mostlyharmless.nl\/index.php\/wp-json\/wp\/v2\/posts\/65\/revisions"}],"predecessor-version":[{"id":69,"href":"https:\/\/www.mostlyharmless.nl\/index.php\/wp-json\/wp\/v2\/posts\/65\/revisions\/69"}],"wp:attachment":[{"href":"https:\/\/www.mostlyharmless.nl\/index.php\/wp-json\/wp\/v2\/media?parent=65"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.mostlyharmless.nl\/index.php\/wp-json\/wp\/v2\/categories?post=65"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.mostlyharmless.nl\/index.php\/wp-json\/wp\/v2\/tags?post=65"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}continuation of topic<\/h2>\n
A repyl on this on how to automate it was :<\/h2>\n
Microsoft VBS script<\/h2>\n
Reservation Manager – A tool to manage reservations<\/h2>\n
\nReservations\u00a0are a critical feature in the DHCP server. Reservations\u2019 are generally used for centralized static IP address assignment for critical machines. This way the IP address of the critical machines which serves critical functions in the network will not have dynamically assigned IP address which can change over time. The reservation manager is a tool which will help solve typical reservation-related problems which the network admins might face. More often than not this tool tries to automate problems to recurring customer problems. It tries to solve the following reservation-related problems:
\n1) Migrating reservations from one DHCP Server to another on specific subnets.<\/strong>
\nAs a general best-practice, reservations must be duplicated across all DHCP servers serving the same subnet. This particular functionality addresses this best-practice. Without this the admin has to manually dump reservations from one server to another. This command takes 3+ arguments. The first argument tells the destination DHCP server IP address to which the reservations must be copied to. The second argument identifies the IP Address of the source DHCP server. The last argument is either \u2018all\u2019 or identifies the first scope address on which this operation has to be performed. The third argument can be followed by n number of arguments which identify the different subnet\u2019s to which this operation has to be performed.
\nExample:
\ncscript rmanager.vbs Rmanager \u2013migrate 10.0.0.1 11.0.0.1 all
\nThis command will copy all reservations in all scopes from the server 10.0.0.1 to the server 11.0.0.1.
\ncscript rmanager.vbs Rmanager \u2013migrate 10.0.0.1 11.0.0.1 12.0.0.0 10.0.0.0 11.0.0.0
\nThis command will copy reservations from the scopes 12.0.0.0 10.0.0.0 and 11.0.0.0 from the server 10.0.0.1 to 11.0.0.1.
\nFor this command to work properly the specified scope\/scopes should be present in both the servers. An error message will be printed for those scopes for which this condition is not met. Also for those reservations which cannot be added successfully for whatever reason, an error is printed. Also for every successfully migrated reservation, it can be printed.
\nIn addition to this, this command can also take an additional preview switch which will just print the action which will be taken and not actually take the action. This is especially useful when the admin wants to review the action before doing it.
\nExample:
\ncscript rmanager.vbs Rmanager \u2013migrate 10.0.0.1 11.0.0.1 all \u2013preview out.txt
\ncscript rmanager.vbs Rmanager \u2013migrate 10.0.0.1 11.0.0.1 12.0.0.0 10.0.0.0 11.0.0.0 \u2013preview out.txt<\/p>\n
\nAs already mentioned, it is a general best-practice for reservations must be duplicated across all DHCP servers serving the same subnet. This particular functionality addresses this best-practice in a more subter way. Instead of copying reservations from one server to another, this option lets the admin to synchronize the reservation lists between two servers. The arguments for this switch is exactly similar to that of the migrate switch. This command also has an optional preview switch.
\nExample:
\ncscript rmanager.vbs\u00a0Rmanager \u2013sync 10.0.0.1 11.0.0.1 all
\nThis command will sync all reservations in all scopes from the server 11.0.0.1 to the server 10.0.0.1.
\ncscript rmanager.vbs Rmanager \u2013sync 10.0.0.1 11.0.0.1 12.0.0.0 10.0.0.0 11.0.0.0
\nFor this command to work properly the specified scope\/scopes should be present in both the servers. An error message will be printed for those scopes for which this condition is not met. Also for those reservations which cannot be added successfully for whatever reason, an error is printed. Also for every successfully migrated reservation, it can be printed.
\nIn addition to this, this command can also take an additional preview switch which will just print the action which will be taken and not actually take the action. This is especially useful when the admin wants to review the action before doing it.
\nExample:
\ncscript rmanager.vbs Rmanager \u2013sync 10.0.0.1 11.0.0.1 all \u2013preview out.txt
\ncscript rmanager.vbs Rmanager \u2013sync 10.0.0.1 11.0.0.1 12.0.0.0 10.0.0.0 11.0.0.0 \u2013preview out.txt<\/p>\n
\nThis command dumps the leases for a specific scope and server into a human-editable text file. The file will contains several lines each of which corresponds to a single lease. A lease is represented by IP address and MAC address. The exact utility of this command will be exposed once you see the next section.
\nExample:
\ncscript rmanager.vbs Rmanager -dumplease out.txt 120.0.0.1 all
\nThe above command dumps all leases in all scopes in the server 120.0.0.1 to a text file called “out.txt”
\ncscript rmanager.vbs Rmanager -dumplease out.txt 120.0.0.1 10.0.0.0 11.0.0.0
\nThe above command dumps all leases in scopes 10.0.0.0 and 11.0.0.0 in the server 120.0.0.1 to a text file called “out.txt”<\/p>\n
\nThis switch tries to create reservations on a given DHCP server from the information present in a given input file. The input file contains several lines of info. Each line corresponds to a single reservation. Each reservation is represented by IP address and MAC address pair. The format of this input file is exactly the same as the output file of the -dumplease switch.
\nExample:
\ncscript rmanager.vbs Rmanager -makereservation 120.0.0.1 out.txt
\nThis command will create reservations out of information present in the file out.txt in the server 120.0.0.1.<\/p>\n
\ncscript rmanager.vbs Rmanager -dumplease out.txt 120.0.0.1 all
\ncscript rmanager.vbs Rmanager -makereservation 120.0.0.1 out.txt
\nThese two commands intends to convert every active lease in a given DHCP server identified by an IP address in a given set of scopes identified by a list of scope addresses into reservations. Once this is done, the admin also has to make sure that the whole address space in the given scope in the DHCP server are excluded. This operation is thus particularly relevant to those admins who might want to move from a pure Dynamic IP address assignment to a more controlled purely reservation oriented address assignment. This way the admin can keep track of who is getting IP addresses and can limit the network access to those clients who already have an IP address.
\nThe first command Rmanager -dumplease <filename> <Scope Identifiers> will dump all the active leases in the specified server and scope to a text file. This text file will have pair of IP address and MAC addresses. The second command Rmanager \u2013makereservation <ServerIdentifier> <filename> will take the file which is generated by the first command and create reservations corresponding to them. The idea behind separating these two actions is to make sure that the admin gets a chance to edit the file generated by the first command before proceeding to the second. Also we want to support scenarios where the admin can just create the file and use it to run the second command directly.<\/p>\n
\ndim scopes
\ndim synccount
\ndim argerror
\ndim iparray
\ndim macarray
\ndim finaliparray
\ndim finalmacarray
\ndim m
\ndim args<\/p>\n
\nsynccount=0
\nargerror=0
\nif(wscript.arguments.count=0) then
\nwscript.echo “enter the command”
\nexit sub
\nend if<\/p>\n
\nif(i=0) then
\nstr=wscript.arguments.item(i)
\nelse
\nstr=str&” “&wscript.arguments.item(i)
\nend if
\nnext<\/p>\n
\nwscript.echo “Error: unrecongnized or incomplete command line.”
\ncall helpfile()
\nexit sub
\nend if
\n‘checking if the command is Rmanager or not<\/p>\n
\nwscript.echo “Error: unrecongnized or incomplete command line.”
\ncall helpfile()
\nexit sub
\nend if<\/p>\n
\nif(ubound(str1)=0) then
\nwscript.echo “Error: unrecongnized or incomplete command line.”
\ncall helpfile()
\nexit sub
\nend if
\nselect case str1(1)<\/p>\n
\nif(argerror=1) then
\nexit sub
\nend if
\nsynccount=1
\na=str1(2)
\nstr1(2)=str1(3)
\nstr1(3)=a
\ncall migrate(str1)<\/p>\n
\nwscript.echo “Error: unrecongnized or incomplete command line.”
\ncall helpfile()<\/p>\n
\nif(fso.fileexists(“scopefile.txt”))then
\nfso.deletefile(“scopefile.txt”),true
\nend if
\nend sub
\n‘ function for dumplease<\/p>\n
\nwscript.echo “Error: unrecongnized or incomplete command line.”
\ncall helpfile()
\nexit sub
\nend if<\/p>\n
\nset fso = createobject(“Scripting.FileSystemObject”)
\nSet outfile = fso.CreateTextFile(filename)
\noutfile.close<\/p>\n
\nwscript.echo “server “&str1(3)&” not present or is entered wrongly”
\nexit sub
\nend if<\/p>\n
\nwscript.echo “no scopes in server “&str1(3)
\nexit sub
\nend if<\/p>\n
\nscope = serverarray
\nelse
\nwscript.echo “improper arguments”
\nend if<\/p>\n
\nif(isscope(str1(i),serverarray)) then
\nredim preserve scope(i-4)
\nscope(i-4)=str1(i)
\nelse
\nwscript.echo “scope “& str1(i) &” is not present in server “&str1(3)
\nexit sub
\nend if
\nnext
\nend if
\n‘scope contains all the scopes entered
\nif not isarray(scope) then
\nwscript.echo “no scopes in the server “&str1(3)
\nelse
\nif scope(0)=”” then
\nwscript.echo “no scopes in the server “&str1(3)
\nelse
\nset wshell = CreateObject(“WScript.Shell”)<\/p>\n
\nset obj = wshell.exec(“netsh dhcp server “&str1(3)&” scope “&scope(i)&” show clients”)
\nclients = obj.stdout.readall()
\nif(instrrev(clients,”Command completed successfully.”)=0) then
\nexit sub
\nend if
\ncall makeclients(clients,str1(2))
\nnext
\nend if
\nend if
\nif args = 0 then
\nelse
\nwscript.echo “the ipaddress and macaddress pair are in file “&filename
\nend if
\nend sub<\/p>\n
\nSet scopefile = fso.CreateTextFile(“scopefile.txt”)
\nscopefile.writeline(clients)
\nscopefile.close<\/p>\n
\ndo While not scopefile.AtEndOfStream\u00a0\u00a0\u00a0‘reading line by line and checking for the string “Total No. of Scopes”<\/p>\n
\nstr = split(line)<\/p>\n
\nexit do<\/p>\n
\nwscript.echo “no clients in the scope “&str(ubound(str))<\/p>\n
\nend if
\nargs=args+1
\nSet scopefile = fso.OpenTextFile(“scopefile.txt”)
\nfor i= 1 to 8
\nscopefile.skipline
\nnext<\/p>\n
\nline=scopefile.readline<\/p>\n
\nd=0
\nfor l=0 to ubound(str)
\nif(str(l)=””) then
\nelse
\nif d=3 then
\nexit for
\nelse
\nd=d+1
\nend if
\nend if
\nnext<\/p>\n
\nfor size = 1 to 18-(len(str(0)))
\noutfile.write(” “)
\nnext<\/p>\n
\nd=0
\nfor l=0 to ubound(str)
\nif(str(l)=””) then
\nelse
\nif d=4 then
\nexit for
\nelse
\nd=d+1
\nend if
\nend if
\nnext
\noutfile.write(str(0))
\nfor size = 1 to 18-(len(str(0)))
\noutfile.write(” “)
\nnext<\/p>\n
\nend if
\nnext
\noutfile.close
\nend sub<\/p>\n
\nwscript.echo “Error: unrecongnized or incomplete command line.”
\ncall helpfile()
\nexit sub
\nend if<\/p>\n
\nfilename = str1(3)<\/p>\n
\nif(not fso.fileexists(filename))then
\nwscript.echo “file “&filename&” not present”
\nexit sub
\nend if<\/p>\n
\nif k=0 then
\nwscript.echo “server “&server&” is not present or may have been entered wrongly”
\nexit sub
\nend if<\/p>\n
\nDim macaddress
\nt=0
\ndo while not handle.atendofstream<\/p>\n
\nline=replace(line,”\u00a0“,””)
\nif line=”” then<\/p>\n
\nstrarray=split(line)<\/p>\n
\nif strarray(k)=”” then<\/p>\n
\nipaddress=trim(strarray(k))
\nelse if p=1 then
\nmacaddress = trim(strarray(k))
\nend if
\nend if
\np=p+1
\n‘wscript.echo Replace(ipaddress, ”\u00a0“, “”)
\n‘wscript.echo macaddress
\nend if
\nnext<\/p>\n
\nwscript.echo “improper format of file”
\nexit sub
\nend if<\/p>\n
\nredim preserve macarray3(t)
\niparray3(t)=ipaddress
\nmacarray3(t)=macaddress
\nt=t+1
\nend if
\nloop
\nhandle.close<\/p>\n
\nwscript.echo “there is nothing in the file”
\nexit sub
\nend if<\/p>\n
\nredim arr(t-1)<\/p>\n
\niprange.close
\narraysize = 0
\ndim iparray1
\nredim iparray1(0)
\nredim macarray1(0)<\/p>\n
\nset obj = wshell.exec(“netsh dhcp server “&server&” scope “&scopearray(i)&” show iprange”)
\nrange = obj.stdout.readall()<\/p>\n
\niprange.writeline(range)
\niprange.close
\nset iprange = fso.opentextfile(“iprangefile.txt”)<\/p>\n
\niprange.skipline
\nnext
\nline1=iprange.readline
\nline2=split(line1)<\/p>\n
\nredim preserve macarray1(arraysize)
\niparray1(arraysize) = iparray3(j)
\nmacarray1(arraysize) = macarray3(j)
\narraysize = arraysize + 1
\narr(j)=1
\nelse if k=2 then
\nwscript.echo “the ip address “&iparray3(j)&” is not valid”
\nfso.deletefile(“iprangefile.txt”),true
\nexit sub
\nend if
\nend if
\nnext<\/p>\n
\nif isarray(iparray1) and not iparray1(0)=”” then<\/p>\n
\nfor l=0 to ubound(finaliparray)
\nset obj = wshell.exec(“netsh dhcp server “&server&” scope ” &scopearray(i)& ” add reservedip “&finaliparray(l)&” “&finalmacarray(l) )
\noutp = \u00a0obj.stdout.readall()
\nif(instr(outp,”Command completed successfully.”)<>0) then
\nwscript.echo “added reservation “&finaliparray(l)& ” “&finalmacarray(l)&” to server “&server&” in scope “&scopearray(i)
\nelse<\/p>\n
\nend if
\nnext
\nend if<\/p>\n
\nredim iparray1(0)
\nredim macarray1(0)<\/p>\n
\nfor i=0 to ubound(arr)
\nstr=trim(handle.readline)<\/p>\n
\nline=split(str)<\/p>\n
\nend if
\nnext
\nhandle.close
\nfso.deletefile(“iprangefile.txt”),true
\nend sub<\/p>\n
\nredim finalmacarray(0)
\nset wshell = CreateObject(“WScript.Shell”)
\nset obj = wshell.exec(“netsh dhcp server “&server&” scope ” &scopestr& ” show reservedip” )
\noutpdest = obj.stdout.readall()<\/p>\n
\niparraydest = iparray
\nmacarraydest = macarray<\/p>\n
\nfinaliparray=iparraysource
\nfinalmacarray=macarraysource<\/p>\n
\nk=0<\/p>\n
\nflag=0
\nfor j=0 to ubound(iparraydest)
\nif(iparraysource(i)=iparraydest(j) and macarraysource(i)=macarraydest(j)) then
\nflag=1
\nexit for
\nend if
\nnext<\/p>\n
\nend if
\nelse<\/p>\n
\nredim preserve finalmacarray(k)
\nfinaliparray(k)=iparraysource(i)
\nfinalmacarray(k)=macarraysource(i)
\nk=k+1
\nend if
\nnext
\nend if<\/p>\n
\nstr3=split(ip2,”.”)
\nstr4=split(ip3,”.”)
\nif ubound(str4)<>3 then
\ncheckiprange=2
\nexit function
\nend if<\/p>\n
\nif cint(str2(1))<=cint(str4(1)) and cint(str4(1))<=cint(str3(1)) then
\nfor i=2 to 3
\nif(cint(str2(i))>=0 and cint(str2(i))<10) then
\nstring1=string1&”00″&str2(i)
\nelse if(cint(str2(i))>=10 and cint(str2(i))<100) then
\nstring1=string1&”0″&str2(i)
\nend if
\nend if
\nnext
\nfor i=2 to 3
\nif(cint(str3(i))>=0 and cint(str3(i))<10) then
\nstring2=string2&”00″&str3(i)
\nelse if(cint(str3(i))>=10 and cint(str3(i))<100) then
\nstring2=string2&”0″&str3(i)
\nend if
\nend if
\nnext
\nfor i=2 to 3
\nif(cint(str4(i))>=0 and cint(str4(i))<10) then
\nstring3=string3&”00″&str4(i)
\nelse if(cint(str4(i))>=10 and cint(str4(i))<100) then
\nstring3=string3&”0″&str4(i)
\nend if
\nend if
\nnext<\/p>\n
\ncheckiprange=1
\nelse
\ncheckiprange=0
\nend if<\/p>\n
\ncheckiprange=0
\nend if
\nelse
\ncheckiprange=0
\nend if
\nend function<\/p>\n
\nset help = fso.OpenTextFile(“help.txt”)<\/p>\n
\nfor i=0 to ubound(serverarray)
\nif(strcomp(scopestr,serverarray(i))=0) then
\nl=1
\nexit for
\nend if
\nnext<\/p>\n
\ndim wshell<\/p>\n
\nset obj = wshell.exec(“netsh dhcp server “&str1&” show scope”)<\/p>\n
\ncheckserver=1
\nelse
\ncheckserver=0
\nend if<\/p>\n
\n’the array of all scopes present in the server<\/p>\n
\nSet scopefile = fso.CreateTextFile(“scopefile.txt”)
\nscopefile.writeline(scopes)\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 \u00a0‘writing output string to a file
\nscopefile.close<\/p>\n
\ndo While not scopefile.AtEndOfStream\u00a0\u00a0\u00a0‘reading line by line and checking for the string “Total No. of Scopes”<\/p>\n
\nstr = split(line)
\nt=str(ubound(str)-1)\u00a0\u00a0\u00a0 \u00a0\u00a0\u00a0\u00a0’taking no. of scopes into t
\nexit do
\nend if<\/p>\n
\nelse<\/p>\n
\nfor i=1 to 5
\nscopefile.skipline\u00a0\u00a0\u00a0\u00a0\u00a0‘skipping first five lines
\nnext
\nfor i=0 to t-1
\nstr3=trim(scopefile.readline)<\/p>\n
\nserverscope(i)=str3(0)\u00a0\u00a0\u00a0\u00a0\u00a0‘adding scopes to array serverscope<\/p>\n
\nmakescopearray = serverscope\u00a0\u00a0\u00a0\u00a0‘returning the array to calling function
\nscopefile.close
\nend if
\nend function<\/p>\n
\nset wshell = CreateObject(“WScript.Shell”)
\nset obj = wshell.exec(“netsh dhcp server “&sourceadd&” scope ” &scopestr& ” show reservedip” )
\noutpsource = obj.stdout.readall()<\/p>\n
\niparraysource = iparray
\nmacarraysource = macarray<\/p>\n
\nwscript.echo “no reservations in the scope “&scopestr&” on the server “&sourceadd
\nexit sub
\nend if
\nif(m=1 or m=2) then<\/p>\n
\nSet outfile = fso.openTextFile(filename,8)<\/p>\n
\noutfile.writeline(“netsh dhcp server “&destadd& ” scope ” &scopestr& ” add reservedip ” &iparraysource(i)& ” ” & macarraysource(i))
\nnext
\noutfile.close
\nexit sub
\nend if
\ncall addreservation(destadd,scopestr,iparraysource,macarraysource)<\/p>\n
\nif ((m=1 or m=2)) then
\nif (strcomp(command,”-migrate”)=0 or (strcomp(command,”-sync”)=0 and synccount=1)) then
\nwscript.echo”output is in file “&filename
\nend if
\nend if<\/p>\n
\nend if<\/p>\n
\nfor i=0 to t
\nset obj = wshell.exec(“netsh dhcp server “&destadd&” scope ” &scopestr& ” add reservedip ” &finaliparray(i)& ” ” & finalmacarray(i))
\noutp = \u00a0obj.stdout.readall()
\nif(instr(outp,”Command completed successfully.”)) then
\nwscript.echo “added reservation “&finaliparray(i)& ” “&finalmacarray(i)&” to server “&destadd&” in scope “&trim(scopestr)
\nelse<\/p>\n
\nend if<\/p>\n
\nif (strcomp(command,”-migrate”)=0 or (strcomp(command,”-sync”)=0 and synccount=1)) then
\nwscript.echo”output is in file “&filename
\nend if
\nend if
\nend sub<\/p>\n
\nredim iparray(0)
\nredim macarray(0)<\/p>\n
\nSet scopefile = fso.CreateTextFile(“scopefile.txt”)
\nscopefile.writeline(outp)
\nscopefile.close<\/p>\n
\nline = scopefile.ReadLine
\nif(instr(line,”No of ReservedIPs”)=1) then
\nstr = split(line)
\nt=str(4)\u00a0\u00a0\u00a0 \u00a0\u00a0\u00a0\u00a0\u00a0’taking no. of reservations into t
\nexit do
\nend if
\nloop<\/p>\n
\niparray = “”
\nmacarray = “”
\nexit sub<\/p>\n
\nSet scopefile = fso.openTextFile(“scopefile.txt”)<\/p>\n
\nscopefile.skipline
\nnext<\/p>\n
\nredim preserve iparray(i-1)
\nredim preserve macarray(i-1)
\nstring1=split(trim(scopefile.readline))<\/p>\n
\nmacarray(i-1)=replace(string1(ubound(string1)),”-“,””)
\nnext
\nend if
\nscopefile.close<\/p>\n
\nwscript.echo “Error: unrecongnized or incomplete command line.”
\ncall helpfile()
\nargerror=1
\nexit sub
\nend if
\ndim k<\/p>\n
\n‘or if they are entered correct or not
\nif k=0 then
\nwscript.echo “server “&str1(2)& ” not present or is entered wrongly”
\nargerror=1
\nexit sub
\nend if<\/p>\n
\nif k=0 then
\nwscript.echo “server “&str1(3)& ” not present or is entered wrongly”
\nargerror=1
\nexit sub
\nend if<\/p>\n
\nif(isarray(sourcescope)) then\u00a0\u00a0\u00a0\u00a0 ‘checking if there are any scopes in source server
\nelse
\nwscript.echo “no scopes present on server “&str1(2)
\nargerror=1
\nexit sub
\nend if<\/p>\n
\nif(strcomp(str1(4),”all”)=0) then\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 ‘checking if the option “all” is entered
\nif(bound>4 and bound<7) then
\nif(strcomp(str1(5),”-preview”)<>0) then
\nargerror=1
\nwscript.echo “Error: unrecongnized or incomplete command line.”
\ncall helpfile()
\nexit sub
\nelse
\nif(bound=6) then
\nfilename = str1(6)
\nm=2
\nelse
\nm=1
\nfilename = “output.txt”
\nend if
\nend if
\nelse
\nm=0
\nend if<\/p>\n
\nelse<\/p>\n
\nm=1
\nfilename = “output.txt”
\nelse if(strcomp(str1(bound-1),”-preview”)=0) then
\nm=2
\nfilename = str1(bound)
\nelse
\nm=0
\nend if
\nend if<\/p>\n
\nfor i = 4 to ubound(str1)-m\u00a0\u00a0\u00a0\u00a0\u00a0 ’this is the case when scopes are entered as arguments
\nif(isscope(str1(i),sourcescope)) then\u00a0\u00a0\u00a0\u00a0 ‘checking if the given scope is present in source server
\nredim preserve scope(p)\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 ‘if present then add the scope entered to the array ‘scope’
\nscope(p)=str1(i)
\np=p+1
\nelse
\nif(synccount=0) then\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 ‘if the scope entered is not present in the source server
\nwscript.echo “scope “&str1(i)& ” is not present in the server “&str1(2)
\nend if
\nend if
\nnext
\nend if<\/p>\n
\nif(not isarray(scope)) then\u00a0\u00a0\u00a0\u00a0\u00a0 ‘checking if the scope array has some scopes or not
\nargerror=1
\nexit sub
\nend if<\/p>\n
\nif(isarray(destscope)) then\u00a0\u00a0\u00a0\u00a0\u00a0 ‘checking if there are scopes present on destination server<\/p>\n
\nwscript.echo “no scopes present on server “&str1(3)
\nargerror=1
\nexit sub
\nend if<\/p>\n
\nif(synccount=0) then
\nset fso = createobject(“Scripting.FileSystemObject”)
\nset outfile = fso.createtextfile(filename)
\noutfile.close
\nend if
\nend if<\/p>\n
\nend if
\nnext
\nif (m=1 or m=2) then
\nif(strcomp(str1(1),”-migrate”)=0 or (strcomp(str1(1),”-sync”)=0 and synccount=1)) then
\nwscript.echo”output is in file “&filename<\/p>\n
\nend if
\nend sub<\/p>\n
\nUSAGE:
\nRmanager\u00a0 \/?
\n-migrate <source server> <destination server> <all|<list of scopes>>
\n[-preview [filename]]
\n-sync <server1> <server2> <all | <list of scopes>>
\n[-preview [filename]]
\n-dumplease <filename> <server> <all | <listof scopes>>
\n-makereservation <server> <filename><\/p>\n
\n\/?\u00a0\u00a0\u00a0\u00a0 display this help message
\n-migrate \u00a0\u00a0\u00a0 copies reservations from all or the specified
\nscopes from source to destination server…if
\npreview is specified, it shows the commands that
\nwill be executed, in the output file
\n-sync\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 synchronises reservations between two servers for
\nall or the specified scopes….if preview is
\nspecified, it shows the commands that will be
\nexecuted, in the output file
\n-dumplease\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 outputs the ip and macaddresses of all clients in
\nthe given server for the given scopes
\n-makereservation\u00a0\u00a0\u00a0 adds reservations for the ip and mac address pairs
\nfrom the given file into the given server<\/p>\n
\n> cscript rmanager.vbs Rmanager -migrate 120.0.0.1 120.0.0.2 all
\n….copies reservations in all scopes from server 120.0.0.1
\nto server 120.0.0.2
\n> cscript rmanager.vbs\u00a0Rmanager -sync 120.0.0.1 120.0.0.2 120.0.0.0
\n….synchronises reservations between the two servers
\n120.0.0.1 and 120.0.0.2 for the scope 120.0.0.0
\n> cscript rmanager.vbs Rmanager -dumplease out.txt 120.0.0.1 all
\n…dumps all clients’ ip and mac addresses into out.txt
\n> cscript rmanager.vbs Rmanager -makereservation 120.0.0.1 out.txt
\n…takes ip and mac address pairs from the file out.txt and
\nmakes reservation on the server 120.0.0.1<\/p>\n