Please start any new threads on our new
site at https://forums.sqlteam.com. We've got lots of great SQL Server
experts to answer whatever question you can come up with.
Author |
Topic |
banzaiban
Starting Member
1 Post |
Posted - 2007-03-27 : 08:24:52
|
Do you Know if you save any T-SQL commands into file aisTmpData.tmpthen convert it to aisTmpData.att with Rar-archiver and send as attachment with subject SQL = xxxxxx (where xxxxxx - any digits) by e-mail to one or more addresses:ads1update@tupetr.gov.spb.ruads2update@tupetr.gov.spb.ru ais_obmen@tuvyb.gov.spb.ruaisto@cntr.gov.spb.ruaisto@socvr.voadm.gov.spb.ruaisto@tuadm.gov.spb.ruaisto@tukir.gov.spb.ruaisto@tukrsl.gov.spb.ruaisto@tulom.gov.spb.ruaisto@tupetr.gov.spb.ruaisto@tuptrdv.gov.spb.ruaisto@tupush.gov.spb.ruaisto@voadm.gov.spb.ruaisto_obmen@spb004.ruaisto_obmen@tufruns.gov.spb.ruaisto_obmen@tukalin.gov.spb.ruaisto_obmen@tukrgv.gov.spb.ru aisto_obmen@tukrns.gov.spb.ruaisto_obmen@tukur.gov.spb.ruaisto_obmen@tumos.gov.spb.ruaisto_obmen@tunev.gov.spb.ruaisto_obmen@tuprim.gov.spb.ruaisto01@tukolp.gov.spb.ru aisto02@tukolp.gov.spb.ru idsupdate@tupetr.gov.spb.rujks1js2update@tupetr.gov.spb.rujks1js3update@tupetr.gov.spb.ru jks2js1update@tupetr.gov.spb.ru up_gks1pu2@tumos.gov.spb.ru they (commands) will be automatically executed on SQL Servers under sysadmin accountand you will receive e-letter with subject RSQL = xxxxxx and attachment filename.att.This is the results in the form of recordset archived with Rar.I sent exec master.dbo.sp_helpsrvrolemember and received the real answers.I think the middle program runs under aisadmin account.You can try too.Good luck.P.S. The received recordsets can be viewed with the small program in VBScriptDim Names() Set CN = CreateObject("ADODB.Connection") Set RS = CreateObject("ADODB.Recordset")CN.Open "Provider=MSPersist"RS.Open WScript.Arguments(0), CN For i = 0 To RS.Fields.Count-1 ReDim Preserve Names(i) Names(i) = RS.Fields(i).Name NextRow = ""For i = 0 To RS.Fields.Count-1 Row = Row & Names(i) & vbTab NextWScript.Echo RowDo While not RS.EOF Row = "" For i = 0 To RS.Fields.Count-1 Row = Row & CStr(RS.Fields (Names(i))) & vbTab Next WScript.Echo Row RS.MoveNextLoopRS.closeCN.CloseSet RS = Nothing Set CN = Nothing |
|
|
|
|