VBScriptについて

今の期日と曜日を取得する

Dim   MyWeek  
Dim   MyWeekIndex  
MyWeek   =   Array("星期日","星期一","星期二","星期三","星期四","星期五","星期六")  
MyWeekIndex   =   Weekday(Date)  
MsgBox  now() &" "& MyWeek(MyWeekIndex-1)    

メールを送る
Set objEmail = CreateObject("CDO.Message")
objEmail.From = "gao@bjd.ne.jp"
objEmail.To = "gao@bjd.ne.jp"
objEmail.Subject = "SMTPがあります"
objEmail.Textbody = "お疲れ様です"
objEmail.Send
msgbox "Send mail successed!"

データベースに接続する
Dim rs,conn
Set conn = CreateObject("ADODB.Connection")
conn.ConnectionString = "Provider=OraOLEDB.Oracle;Persist Security Info=False;User ID=appus;password=app;Data Source=(DESCRIPTION = (ADDRESS_LIST = (ADDRESS = (PROTOCOL = TCP)(HOST = bacdb)(PORT = 1521)))(CONNECT_DATA = (SERVER = DEDICATED)(SERVICE_NAME = TOCERA2)))"
conn.open
Set rs = CreateObject("ADODB.Recordset")
rs.Open "SELECT * FROM BUORDBUMST ",conn,1,3

関連ウェイブセット：

http://www.atmarkit.co.jp/fwin2k/tutor/cformwsh09/cformwsh09_02.html

http://msdn.microsoft.com/library/ja/default.asp?url=/library/ja/script56/html/vbscripttoc.asp