Is there some one know how to do a script in PtokaX witch can read the register users??
and then put it in a Ms Access i want to know if there is anyway to do this??
I am looking for a similar solution.
See this thread:
http://board.univ-angers.fr/thread.php?threadid=965&boardid=6&styleid=1&sid=64cfccd50c1b5930062663e28a5629df
You might be better off parsing the RegisteredUsers.dat file and importing the data in via a VB Script rather than using LUA. You could even setup a scheduled task to run however often you need to get new users into your database.
Here is a VB Script that should work for importing that file into your Acccess database. Make sure you read the comments and change as neccessary. Then schedule you a task to import them into your database. I haven't tested this script but it should work.
Here ya go:
Dim ObjConn, varTextPath, varLine, varUser, varPassword, varTypeUser, varDB
'path to your registeredusers.dat
varTextPath = "d:\whereever\"
'path and name of your database
varDB = "D:\whereever\yourdb.mdb"
Set fs=CreateObject("Scripting.FileSystemObject")
Set f=fs.OpenTextFile(varTextPath & "RegisteredUsers.dat"), 1)
'we have opened the file, now we loop through the entire file, line by line
do while f.AtEndOfStream = false
varLine = f.ReadLine
arrLine = Split(varLine, "|")
If UBound(arrLine) = 2 Then
'if I remember correctly, the first value is the username, second is password, followed by type of user(OP, reg, etc.)
varUser = arrLine(0)
'i will not use the 2 values below for this script but you could simply use the values below in your own SQL statement
varPassword = arrLine(1)
varTypeUser = arrLine(2)
'here we are going to make a connection to the db
SET ObjConn = CreateObject("ADODB.Connection")
strConnString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & & ";Persist Security Info=False"
ObjConn.Open strConnString
'make sure you rename your table and columns
strSQLExist = "Select YourColumnNameForUsers FROM YourTable WHERE YourColumnNameForUsers = '" & varUser & "'"
Set rsUser = ObjConn.Execute(strSQLExist)
'if the user is NOT already in the databse then we will add it.
If rsUser.EOF Then
strSQL = "Insert Into YourTable (YourColumnNameForUsers) VALUES ('" & varUser & "')
ObjConn.Execute(strSQL)
End IF
ObjConn.Close
Set ObjConn = Nothing
End If
loop
f.Close
Set f=Nothing
Set fs=Nothing