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)