Dim conn Set conn = CreateObject("ADODB.Connection") conn.Open "DSN=server;" & _ "Uid=a_server;" & _ "Pwd=server;" Dim rs set rs = conn.Execute "SELECT DiskReq FROM tabelle" if not rs.eof then wscript.echo "DiskReq: " & rs("DiskReq") end if
Hier eine Variante, falls der SQL-Server auf dem eigenen Rechner läuft. Die SQL Abfrage ist natürlich anzupassen. Z.B. wie bei Floyd. Der folgende Code ist erfolgreich getestet:
Dim conn Set conn = CreateObject("ADODB.Connection") conn.Open "Driver={SQL Server};Server=localhost;" Dim rs set rs = conn.Execute("SELECT db_name(0) dbname") if not rs.eof then wscript.echo "DiskReq: " & rs("dbname") end if