Function Mappath(n)
    Mappath=fso.getabsolutepathname(n)
End Function

Function ipToNum(Ip)
    IpNs=split(ip,".")
    IpN=IpNs(0)*S4+IpNs(1)*S3+IpNs(2)*S2+IpNs(3)*S1
    if err<>0 then IpN=0
    err.clear
    IpToNum=IpN
End Function

S1=256
S2=256*S1
S3=256*S2
S4=256*S3
on error resume next
Set Fso=CreateObject("Scripting.FileSystemObject")
Set Conn=CreateObject("ADODB.Connection")
Conn.open "PRovider=microsoft.jet.oledb.4.0;data source="&Mappath("dat.mdb")

Set Rs=CreateObject("ADODB.Recordset")
Rs.open "S elect * from d",Conn,2,3

Set Fto=Fso.OpenTextFile(Mappath("dat.txt"))
Do while not Fto.atendofstream
    Rs.addnew
    Res=Split(Replace(Replace(Fto.Readline,"    ",""),"  "," ")," ")
    Rs("s")=IpToNum(Res(0))
    Rs("e")=IpToNum(Res(1))
    Rs("c")=Res(2)
    Rs("h")=Res(3)
    Wscript.Echo "From "&Res(0)&" To "&Res(1)&" Updated."
    Rs.update
Loop
Rs.close

注意S elect中間有空格，復制時候請去掉中間空格。復制代碼，保存另存為.vbs 即可。

將純真數據庫轉MSSQL數據庫也很簡單，只需改

 程序代碼
Conn.open “driver={SQL Server}; server=(local);database= ;uid= ;pwd= ”

將純真數據庫轉MySQL數據庫，只需改

 程序代碼
Conn.open “Driver={mysql};database=[yourdatabase];uid=[username];pwd=[yourpassWord];option=16386;”