Как узнать разрешение экрана и сохранить его в текстовый файл?

Как узнать разрешение экрана и сохранить его в текстовый файл?

Я нашел следующий скрипт VBS для получения разрешения экрана

но я хотел бы сохранить результат в текстовом файле, пожалуйста, помогите мне

    Dim HTM, wWidth, wHeight
    Set HTM = CreateObject("htmlfile")
    wWidth = HTM.parentWindow.screen.Width
    wHeight = HTM.parentWindow.screen.Height
    wscript.echo wWidth & "X" & wHeight

решение1

Чтобы сохранить его в новом текстовом файле, вы можете использовать следующий код VBScript.

Dim HTM, wWidth, wHeight
Set HTM = CreateObject("htmlfile")
wWidth = HTM.parentWindow.screen.Width
wHeight = HTM.parentWindow.screen.Height
wscript.echo wWidth & "X" & wHeight

Set objFileToWrite = CreateObject("Scripting.FileSystemObject").OpenTextFile("D:\file.txt",2,true)
objFileToWrite.WriteLine("--- screen resolution start -------------------------")
objFileToWrite.WriteLine( wWidth & "X" & wHeight)
objFileToWrite.WriteLine("--- screen resolution end   -------------------------")
objFileToWrite.Close
Set objFileToWrite = Nothing

Если вы хотите добавить текст в конец существующего текстового файла, вы можете легко изменить параметр IOMode, 8например, на

("D:\file.txt",8,true)

Параметр trueгарантирует, что файл создан заново или уже существует, если false.

Связанный контент