[原创]windows 2000 server dhcp server 导入及导出（1）

anetwolf

不知道大家碰到和我一样的问题么？？
最近公司网段要重新划分，dhcp的绑定地址要重新建，2000 server没有导入工具，几百条记录啊，我真晕
赶快google,一无所获
查找msdn，功夫不负有心人，终于找到解决的办法了，下载windows 2000 server resource kit，安装dhcpobjs,注册dhcpobjs.dll
下面的dhcp-export.vbs代码是导出的，导入的还有点bug，以后发上来
其实大家看了代码写导入的也不难了。

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 *************")
    

复制代码

运行，赶快看看dhcp.txt，哈哈，成功。