помогите со скриптом!

Скрипт выгружает информацию о пользователях в блокнот в виде (см. рисунок)
Const ADS_SCOPE_SUBTREE = 2
Set wshFSO = CreateObject("Scripting.FileSystemObject")
Set f = wshFSO.OpenTextFile("c:\active_directory.txt", 8, True)
Set objConnection = CreateObject("ADODB.Connection")
Set objCommand = CreateObject("ADODB.Command")
objConnection.Provider = "ADsDSOObject"
objConnection.Open "Active Directory Provider"
Set objCommand.ActiveConnection = objConnection
objCommand.CommandText = ""&_
"Select * from 'LDAP://OU=Organisation,DC=d1,DC=nephtechim,DC=kz' where objectClass='user' and objectClass<>'computer'"
objCommand.Properties("Page Size") = 10000
objCommand.Properties("Searchscope") = ADS_SCOPE_SUBTREE
Set objRecordSet = objCommand.Execute
objRecordSet.MoveFirst
f.WriteLine "Фамилия Имя Отчество" & vbTab+ vbTab&_
"Внутренний" & vbTab+ vbTab&_
"E-mail" & vbTab+ vbTab&_
"Должность" & vbTab+ vbTab&_
"Отдел" & vbTab+ vbTab&_
"Компания"

Do Until objRecordSet.EOF
strPath = objRecordSet.Fields("ADsPath").Value
Set objUser = GetObject(strPath)
f.WriteLine objUser.displayName & vbTab+ vbTab&_
objUser.telephoneNumber & vbTab+ vbTab&_
objUser.mail & vbTab+ vbTab&_
objUser.title & vbTab+ vbTab&_
objUser.department & vbTab+ vbTab&_
objUser.company
objRecordSet.MoveNext
Loop
f.Close

как выгрузить конкретного пользователя, например Василий Пупкин