VBScript在Windows平台是相当强大的,例如可以连接数据库执行一些操作
连接Oracle
Dim DB
Dim isSQL
Dim userName
Dim userOwner
Set DB = CreateObject("ADODB.Connection")
Set objRecordSet = CreateObject("ADODB.RECORDSET")
DB.Open "DRIVER={Oracle in XEClient};UID=hr;PWD=hr;DBQ=192.168.56.23:1521/xe;DBA=W;"
isSQL = "select job_id,job_title,max_salary from JOBS"
Set objRecordSet = DB.Execute(isSQL)
set ws=createobject("wscript.shell")
Do Until objRecordSet.EOF
userName = objRecordSet("job_id")
userOwner = objRecordSet("job_title")
ws.popup userName,1,userOwner
objRecordSet.MoveNext
Loop
连接SQL Server
Dim DB
Dim isSQL
Dim userName
Dim userOwner
Set DB = CreateObject("ADODB.Connection")
Set ob