vbscript.
pradžia duomenų nuskaitymui gali būti tokia, belieka tau prisirašyti tik 
ekportavimą į xml :)
Dim FDefPath, FSys, SConn, OutFileName
Dim SQL, Serveris, duomb
Serveris = InputBox("Serveris:",":)")
duomb = InputBox("Duomenu baze:",":)")
Set SConn = CreateObject("ADODB.Connection")
SConn.Open 
"conn=Application;Name=MQIS;Provider=sqloledb;Trusted_Connection=yes;Server="& 
Serveris &";Database="& duomb
SQL = "select * from table"
SConn.Execute(SQL)
SQL = "create table blabla (xml ntext)"
SConn.Execute(SQL)
MsgBox("Pavyko!")
SConn.Close
> Taigi - kuom rasyt ta softa?
> Mokytis tai teks bet kuriuo atveju.
>
> Dekui jei kas tures protingu minciu.
>