Solved Executing SQL Queries In VBS Script

Firstly :
I want to execute the SP and get the resultset in the attachement for mail.
SP name : Exec rpt_XC_BUF_SUM
DB : fi4_xc_prod
Server : FACETSRPT\FACETS

I want to capture the resultset of above SP into the txt file to be attached in mail.

Secondly : I want to run the below query and capture the result set (that is count) into the Body of the mail.
DB : fi4_xc_prod
Server : FACETSRPT\FACETS
Query : select count(*) from fi4_xc_prod.dbo.XC_BUF where TBL_ORDER_ID=’C’

The body of the mail shoulde be like :
Listing of today’s claim batch ID’s and count is attached. Total Count: (From above query).

The below is the mail script i have :

SMTPServer = “mail.xxx.com”
Recipient = “suhail_abbas@xxx.com”
Cc = “suhail_abbas@xxx.com”
From = “suhail_abbas@xxx.com”
Subject = “Test email”
Message = “Listing of today’s claim batch ID’s and count is attached. Total Count: (From above query)”
‘attachment = Here the attachment from the above SP result set. It should be text file

GenericSendmail SMTPserver, From, Recipient, Subject, Message

Sub GenericSendmail (SMTPserver, From, Recipient, Subject, Message)

set msg = WScript.CreateObject(“CDO.Message”)
msg.From = From
msg.To = Recipient
msg.Cc = Cc
msg.Subject = Subject
msg.TextBody = Message
‘msg.AddAttachment attachment
msg.Configuration.Fields (“http://schemas.microsoft.com/cdo/configuration/smtpserver”) = SMTPServer
msg.Configuration.Fields(“http://schemas.microsoft.com/cdo/configuration/sendusing”) = 2
msg.Configuration.Fields.Update
msg.Send
End Sub