VBS/WSH/JS - Увеличить высоту окна вывода скрипта либо добавить вывод в файл

DJ Mogarych · Конфигурация компьютера

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

Код:

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

Sham · Отправлено: **15:48, 09-04-2025** | #3

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

megaloman · Отправлено: **16:42, 10-04-2025** | #4

Код:

    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