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