strFrom = "ScriptResults@ScriptComplete.com" strTo = "greggo@hisownlittleworld.com" strSubject = "Here are the results from the script!" strSMTPServer = "emailserver.abccorp.com" strResultsFile = "script.results.txt" set objFSO = CreateObject("Scripting.FileSystemObject") set objFile = objFSO.OpenTextFile(strResultsFile, 1, true) strReadFile = objFile.ReadAll Set objEmail = CreateObject("CDO.Message") objEmail.From = strFrom objEmail.To = strTo objEmail.Subject = strSubject objEmail.Textbody = strReadFile objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = strSMTPServer objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 objEmail.Configuration.Fields.Update objEmail.Send On Error Resume Next Set objFSO = CreateObject("Scripting.FileSystemObject") Set objShell = CreateObject("WScript.Shell") objTermSrv = WScript.Arguments.Item(0) Set objResultsFile = objFSO.OpenTextFile(objTermSrv & " TermServ_User_Audit.csv", 8, True) objTempFile = objFSO.GetTempName ObjShell.Run("%comspec% /C psexec \\" & objTermSrv & " query user > " & ObjTempFile), 1, True Set objTextFile = objFSO.OpenTextFile(objTempFile, 1, True) Do While objTextFile.AtEndOfStream <> TRUE objLineCheck = objTextFile.ReadLine If mid(objLineCheck, 24, 3) = "rdp" Then objName = rtrim(mid(objLineCheck, 2, 12)) objConcatLine = objConcatLine & objName & "," objUserCount = objUserCount + 1 End If Loop objResultsFile.WriteLine(Date & "," & Time & "," & objUserCount & "," & objConcatLine) objTextFile.Close objFSO.DeleteFile(objTempFile) On Error Resume Next strUserName = WScript.Arguments.Item(0) strVerbose = WScript.Arguments.Item(1) Set Connection = CreateObject("ADODB.Connection") Set RecordSet = CreateObject("ADODB.Recordset") SQLConnection = "Driver={SQL Server};Server=SMSServer;Database=SMS_ABC;UID=UserName;PWD=Password" Connection.open SQLConnection strSQLQuery = "SELECT Name0 from v_R_System WHERE User_Name0 LIKE '" & strUserName & "'" RecordSet.Open strSQLQuery, Connection, 3, 3 If strVerbose = "-v" Then While Not RecordSet.EOF strComputer = RecordSet("Name0") Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") If Err.Number <> 0 Then Wscript.StdOut.Write(strComputer & " is not responding." & vbCrLf) RecordSet.MoveNext Else Set colSubFolders = objWMIService.ExecQuery("ASSOCIATORS OF {Win32_Directory.Name='c:\docume~1'} " & "WHERE AssocClass = Win32_Subdirectory " & "ResultRole = PartComponent") Wscript.StdOut.Write(RecordSet("Name0")) & vbCrLf For Each objFolder in colSubfolders Wscript.StdOut.Write(vbTab & Mid(objFolder.Name,13,50) & " " & Left(objFolder.LastModified,8) & vbCrLf) Next RecordSet.MoveNext End If Wend Else While Not RecordSet.EOF Wscript.StdOut.Write(RecordSet("Name0")) & vbCrLf RecordSet.MoveNext Wend End If RecordSet.Close Connection.Close