مسار خريطة الوظيفة (ن)
Mappath=Fso.getabsolutepathname(n)
وظيفة نهاية
الوظيفة IpToNum(Ip)
IpNs=split(ip,".")
IpN=IpNs(0)*S4+IpNs(1)*S3+IpNs(2)*S2+IpNs(3)*S1
إذا أخطأ <>0 فإن IpN = 0
خطأ. واضح
IpToNum=IpN
وظيفة النهاية
S1=256
S2=256*S1
S3=256*S2
S4=256*S3
على خطأ استئناف المقبل
تعيين Fso=CreateObject("Scripting.FileSystemObject")
تعيين Conn=CreateObject("ADODB.Connection")
Conn.open "provider=microsoft.jet.oledb.4.0;data source="&Mappath("dat.mdb")
Set Rs=CreateObject("ADODB.Recordset")
Rs.open "Slect * from d",Conn,2,3
Set Fto=Fso.OpenTextFile(Mappath("dat.txt"))
افعل بينما لا Fto.atendofstream
روبية. إضافة جديدة
Res=Split(Replace(Replace(Fto.Readline،" ""،")"، ""، ""،"،" ")
Rs("s")=IpToNum(Res(0))
Rs("e")=IpToNum(Res(1))
روبية("ج")=الدقة(2)
روبية("ح")=الدقة(3)
تم تحديث Wscript.Echo "من "&Res(0)&" إلى "&Res(1)&".
تحديث روبية
حلقة
روبية قريبة
اختر ما تحتاج إلى معرفته، قم باختيار المزيد من المعلومات. أفضل ما في الأمر هو الحصول على
أفضل
النتائج
Conn.open "driver={SQL Server}; الخادم = (محلي)؛ قاعدة البيانات =؛ uid =؛ pwd = "
استخدام قاعدة البيانات MYSQL، والتعامل معها بشكل
أفضل
Conn.open "Driver={mysql};database=[yourdatabase];uid=[username];pwd=[yourpassword];option=16386;"