[原創(chuàng)]windows 2000 server dhcp server 導(dǎo)入及導(dǎo)出（1）

anetwolf

不知道大家碰到和我一樣的問(wèn)題么？？
最近公司網(wǎng)段要重新劃分，dhcp的綁定地址要重新建，2000 server沒(méi)有導(dǎo)入工具，幾百條記錄啊，我真暈
趕快google,一無(wú)所獲
查找msdn，功夫不負(fù)有心人，終于找到解決的辦法了，下載windows 2000 server resource kit，安裝dhcpobjs,注冊(cè)dhcpobjs.dll
下面的dhcp-export.vbs代碼是導(dǎo)出的，導(dǎo)入的還有點(diǎn)bug，以后發(fā)上來(lái)
其實(shí)大家看了代碼寫導(dǎo)入的也不難了。

1. 
   
2. strfilepath = "dhcp.txt"
   
3. Set objFile = CreateObject("Scripting.FileSystemObject")
   
4. Set strguyfile=objFile.CreateTextFile(strFilePath,true)
   
5. strguyfile.WriteLine("******************DHCP Server Configure*************")
   
6. 
   
7. set dhcpmgr =Createobject("Dhcp.Manager")
   
8. set dhcpsrv = dhcpmgr.Servers.Connect("192.168.0.2")
   
9. set ll_dhcp = dhcpsrv
   
10. for i = 1 to  dhcpsrv.Scopes.count
    
11. strguyfile.WriteLine("Scopes"&i&":"&dhcpsrv.Scopes.Item(i).Address)
    
12. strguyfile.WriteLine("Reservations:")
    
13.         for j = 1 to dhcpsrv.Scopes(i).Reservations.count
    
14.         ll_address = dhcpsrv.Scopes(i).Reservations(j).Address
    
15.         ll_name = dhcpsrv.Scopes(i).Reservations(j).name
    
16.         ll_uniqueid=dhcpsrv.Scopes(i).Reservations(j).UniqueID
    
17.         ll_comment=dhcpsrv.Scopes(i).Reservations(j).Comment
    
18.         strguyfile.WriteLine(chr(9)&ll_name&","&ll_address&","&ll_uniqueid&","&ll_comment )
    
19.         next
    
20. next
    
21. strguyfile.WriteLine("****************** END *************")
    

復(fù)制代碼

運(yùn)行，趕快看看dhcp.txt，哈哈，成功。