[megaloman]

Код:

    strLogonInfo = strLogonInfo & vbCrLf & objItem.Name & ": " & vbTab & dtmLastLogin
Next

''''MsgBox strLogonInfo, vbOKOnly + vbInformation, "Информация о последнем входе в систему"

Dim View: View = "notepad.exe"
With CreateObject("Scripting.FileSystemObject")
    Dim Out: Out = .GetSpecialFolder(2).Path + "\~~~vbs.tmp"
    With .OpenTextFile(Out, 2, True)
        .Write "Информация о последнем входе в систему" & vbCrLf & strLogonInfo
        .Close
    End With
    CreateObject("WScript.Shell").Run """" & View & """ " + Out, 1, True    'False
    If .FileExists(Out) Then .DeleteFile Out, True
End With