Fonction Mappath(n)
Mappath=Fso.getabsolutepathname(n)
Fin de la fonction
Fonction IpToNum(Ip)
IpNs=split(ip,".")
IpN=IpNs(0)*S4+IpNs(1)*S3+IpNs(2)*S2+IpNs(3)*S1
si err<>0 alors IpN=0
err.clear
IpVersNum=IpN
Fin de fonction
S1=256
S2=256*S1
S3=256*S2
S4=256*S3
en cas d'erreur, reprendre ensuite
Définir Fso=CreateObject("Scripting.FileSystemObject")
Définir 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élect * from d",Conn,2,3
Set Fto=Fso.OpenTextFile(Mappath("dat.txt"))
Faire sans Fto.atendofstream
Rs.ajouternouveau
Res=Split(Remplacer(Remplacer(Fto.Readline," ","")," "," ")," ")
Rs("s")=IpVersNum(Rés(0))
Rs("e")=IpVersNum(Res(1))
Rs("c")=Rés(2)
Rs("h")=Rés(3)
Wscript.Echo "De "&Res(0)&" à "&Res(1)&" mis à jour."
Rs.mise à jour
Boucle
Rs.fermer
d'un fichier S elect, d'un fichier .vbs et d'un fichier
MSSQL.数据库也很简单，只需改
程序代码
Conn.open « driver={SQL Server} ; serveur=(local);base de données= ;uid= ;pwd= ”
Le système MYSQL est basé sur une application MySQL
.
Conn.open "Driver={mysql};database=[votrebase de données];uid=[nom d'utilisateur];pwd=[votre mot de passe];option=16386;"