WSH script to read remote registry key/subkey

Const ForReading = 1, ForWriting = 2, ForAppending = 8

dim conn, rs, fso, f, objMenuPage, strsql

Set conn = createobject("adodb.connection")
conn.open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=c:inetpubwwwrootdb1.mdb"

strsql = "select * from table1"

set rs = createobject("adodb.recordset")
rs.open strsql, conn

Set objFSO = CreateObject("Scripting.FileSystemObject")

strFileName = "c:inetpubwwwrootusers.txt"
Set objMenuPage = objFSO.opentextFile(strFileName, forWriting, True)

Do While NOT RS.EOF
    objMenuPage.write "ID:" & rs(0) & vbcrlf
    objMenuPage.write "Field1:" & rs(1) & vbcrlf
    objMenuPage.write "Field2:" & rs(2) & vbcrlf
rs.movenext
Loop

objMenuPage.WriteLine
objMenuPage.Close
rs.close
conn.close
set rs = nothing
set conn = nothing
set objFSO = nothing
set objMenuPage