[DmitriiV]

... найти старые профили которые не использовались больше 90 дней

Пример:

Код:

Dim objFS, objItem, strPath, strTemp, dtmTemp
strPath = "\\server\profiles"
Set objFS = CreateObject("Scripting.FileSystemObject")
If objFS.FolderExists(strPath) Then
    For Each objItem In objFS.GetFolder(strPath).SubFolders
        strTemp = objFS.BuildPath(objItem.Path, "NTUSER.DAT")
        If objFS.FileExists(strTemp) Then
            dtmTemp = objFS.GetFile(strTemp).DateLastModified
            If Abs(DateDiff("d", dtmTemp, Date)) > 90 Then WScript.Echo objItem.Name
        End If
    Next
Else
    WScript.Echo "Не найден путь " & strPath
End If
Set objFS = Nothing
WScript.Quit 0