1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
|
Option Explicit
Dim cn
Dim rs
Dim cmdText
Set cn = CreateObject("ADODB.Connection")
Set rs = CreateObject("ADODB.Recordset")
function main()
'Set ADO connection properties.
cn.Provider = "sqloledb"
cn.Properties("Data Source").Value = "olbessy"
cn.Properties("Initial Catalog").Value = "cdinv"
'cn.Properties("User ID").Value = "ihsuser"
'cn.Properties("Password").Value = "ihsuser"
cn.Properties("Integrated Security").Value = "SSPI"
cn.Open
'cmdText = "Select 'rowcount' = Count(*) from Customers"
cmdText = "select 'rowcount' = count(*) from dbo.album"
rs.Open cmdText, cn
wscript.echo "cdinv.dbo.album contains " & rs.fields(0).value & " rows."
end function
main
|