objWShell.Run を用いてsqlplusの実行結果をmail本文に

Writer: admin Type: foresth Date: 2019-01-08 00:00
objWShell.Run を用いてsqlplusの実行結果をmail本文に記載したいです。そもそも、objWShell.Runを変数に格納できるのでしょうか。不明点をコメント表示しています。Option ExplicitDim msg,uriDim objWShell,resultset msg = CreateObject("CDO.Message")set objWShell = CreateObject("WScript.Shell")'----Runメソッドでsqlplus起動後、test.sqlを実行しメール本文に追記したいです。set result= objWShell.Run (cmd /c "sqlplus -s / as sysdba @test.sql")msg.From = "aaa@xxx.co.jp"msg.To = "bbb@xxx.co.jp"msg.Subject = "【test】"'----Runメソッドの結果をメール本文に記載したいです。msg.TextBody = (result)uri = "http://schemas.microsoft.com/cdo/configuration/"msg.Configuration.Fields.Item(uri & "sendusing") = 2msg.Configuration.Fields.Item(uri & "smtpserver") = "smtpサーバIP"msg.Configuration.Fields.Item(uri & "smtpserverport") = 25msg.Configuration.Fields.Updatemsg.Send-------------test.sql-------------# select sessions_current,sessions_highwater from v$license;[output(下記をメール本文に記載したいです)]SESSIONS_CURRENT SESSIONS_HIGHWATER---------------- ------------------ 7 26以上、宜しくお願いします。補足execメソッドでもかまいません。この質問は、活躍中のチエリアン・専門家に回答をリクエストしました。###メール本文にセットして送信するところは分かりませんがwishのExecメソッドからStdOutでReadAllは可能です。http://korokara.at.webry.info/200609/article_6.htmlSqlplusの実行結果について余計なものが入るかもしれませんが。ナイス0
###回答ありがとうございます!WScript.echo oExec.StdOut.ReadAllGUI表示ではなく、oExec.StdOut.ReadAllを変数に格納したいです。どうすれば、変数に格納できるのでしょうか。下記、コマンドの格納希望です。cmd /c "sqlplus -s / as sysdba @test.sql
###勉強になりました。

 

TAG