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

anetwolf

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

1. \r\nstrfilepath = \"dhcp.txt\"\r\nSet objFile = CreateObject(\"Scripting.FileSystemObject\")\r\nSet strguyfile=objFile.CreateTextFile(strFilePath,true)\r\nstrguyfile.WriteLine(\"******************DHCP Server Configure*************\")\r\n\r\nset dhcpmgr =Createobject(\"Dhcp.Manager\")\r\nset dhcpsrv = dhcpmgr.Servers.Connect(\"192.168.0.2\")\r\nset ll_dhcp = dhcpsrv\r\nfor i = 1 to  dhcpsrv.Scopes.count\r\nstrguyfile.WriteLine(\"Scopes\"&i&\":\"&dhcpsrv.Scopes.Item(i).Address)\r\nstrguyfile.WriteLine(\"Reservations:\")\r\n        for j = 1 to dhcpsrv.Scopes(i).Reservations.count \r\n        ll_address = dhcpsrv.Scopes(i).Reservations(j).Address\r\n        ll_name = dhcpsrv.Scopes(i).Reservations(j).name\r\n        ll_uniqueid=dhcpsrv.Scopes(i).Reservations(j).UniqueID\r\n        ll_comment=dhcpsrv.Scopes(i).Reservations(j).Comment\r\n        strguyfile.WriteLine(chr(9)&ll_name&\",\"&ll_address&\",\"&ll_uniqueid&\",\"&ll_comment )\r\n        next\r\nnext\r\nstrguyfile.WriteLine(\"****************** END *************\")\r\n

復制代碼

\r\n\r\n運行，趕快看看dhcp.txt，哈哈，成功。