На диске C располагаете файл file1.txt и запускаете скрипт который прикреплен так же в архиве.
Скрипт ищет по файлу логин Константин и если нашел, то выполняется условие строка найдена.
Но не могу понять если логин не будет явно задан допустим он будет определяться относительно профиля на которой запущен данный скрипт (тобишь будет меняться) как производить сравнение if MyArray(0) = "Константин" ?
Set objNetwork = CreateObject("Wscript.Network")
login = objNetwork.UserName
MsgBox objNetwork.UserName , vbInformation
Set oFso = CreateObject("Scripting.FileSystemObject")
If oFso.FileExists("C:\File1.txt") Then
Set vStream = oFso.OpenTextFile("C:\File1.txt", 1, True)
Do Until vStream.AtEndOfStream 'цикл по строкам файла
sLine = vStream.ReadLine
' MsgBox "Прочитана строка: " & sLine
Dim MyArray
MyArray = Split(sLine,";")
if MyArray(0) = "Константин" Then
MsgBox "Строка найдена!"
End If
Loop
vStream.Close 'закрываем файл
End If
MsgBox "Поиск завершен"