Showing results for 
Search instead for 
Did you mean: 


All credit goes to Wayne Humphrey for writing the SQL query which retrieves this very useful information from the database. This is simply a wrapper which I wrote in vbscript to output the information to a .csv file.

I have not included this in the main script, however to email the output you would need to append something like this to the bottom of the script.

Set objMessage = CreateObject("CDO.Message")
objMessage.Subject = "subject"
objMessage.From = "your_from_address"
objMessage.To = "your_to_address"
objMessage.HTMLBody = "body"
objMessage.AddAttachment OutputFile

objMessage.Configuration.Fields.Item ("") = 2
objMessage.Configuration.Fields.Item ("") = "your_email_server"
objMessage.Configuration.Fields.Item ("") = 25

I have blanked out my own environment settings and replaced them with fill-ins.

You will need to rename: EV-User-Report.txt to EV-User-Report.vbs & SQLQuery.txt to SQLQuery.sql

Hope someone gets some use out of this.