[DJ Mogarych]

Powershell, вывод в файл

Код:

Get-LocalUser |select name,lastlogon > c:\temp\$env:computername-lastlogon.txt

[Sham]

проще заменить строку с msgbox .... на WScript.Echo strLogonInfo и куда угодно: cscript //nologo users.vbs >file.txt

[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