When you are using dhcp you don't have an automated recovery system. You
can run an 80/20 rule whereby you split 80% of the IP address with 1 server
and 20% with the other. If 1 of the servers goes down the other can
hopefully temp service requests while getting the other back up.
For more details see:
http://technet2.microsoft.com/WindowsServer/en/Library/deaad0f1-ab70-46b2-80cc-e304620a78891033.mspx
We don't employ this, we run a weekly verification and backup. 2003 now has
some scripting capabilities but we haven't been succesfull in getting there
system to work. So we just run a manual task and let send key do the work.
I will have to someday get the script piece to work automatically. Either
way I highly recommend you get a backup of it at least every week. The
script below will open up a mmc console named automated_dhcp and back our
dhcp system up and store it to disk.
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' Program - backupDhcp.vbs '
' Author - Paul Bergson '
' Date Written - September 30, 2003 '
' Description - Send Key Script to automate the backup of dhcp '
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run "e:\task\automated_dhcp.msc"
'Wait for application to become active
WScript.Sleep 1000
'Set the focus on the DHCP application
WshShell.AppActivate "Automated_dhcp"
WScript.Sleep 100
WshShell.SendKeys "{DOWN}"
WScript.Sleep 500
WshShell.SendKeys "{TAB}"
WScript.Sleep 500
WshShell.SendKeys "{ENTER}"
WScript.Sleep 500
WshShell.SendKeys "%a"
WScript.Sleep 500
WshShell.SendKeys "b"
WScript.Sleep 500
WshShell.SendKeys "{ENTER}"
WScript.Sleep 500
WshShell.SendKeys "{ENTER}"
WScript.Sleep 500
WScript.Sleep 500
WshShell.SendKeys "%f"
WScript.Sleep 500
WshShell.SendKeys "x"
WScript.Sleep 500
WshShell.SendKeys "n"
Set FS = CreateObject("Scripting.FileSystemObject")
Set WSHNetwork = CreateObject("WScript.Network")
Set WshShell = WScript.CreateObject( "WScript.Shell" )
BuildDate = Year(Now)
If Month(Now) < 10 then
BuildDate = BuildDate & "0"
End If
BuildDate = BuildDate & Month(Now)
If Day(Now) < 10 then
BuildDate = BuildDate & "0"
End If
BuildDate = BuildDate & Day(Now)
FolderName = "\\servername\dhcpdump\dataDump\" & BuildDate
FS.CreateFolder(FolderName)
WScript.Sleep 2000
FS.CopyFolder "c:\winnt\system32\dhcp\*", FolderName
--
Paul Bergson MCT, MCSE, MCSA, CNE, CNA, CCA
http://www.pbbergs.com
This posting is provided "AS IS" with no warranties, and confers no rights.
