☰

¿Cómo obtener la resolución de la pantalla y guardarla en un archivo de texto?

tag-icon • tag-icon vbscript screenresolution
¿Cómo obtener la resolución de la pantalla y guardarla en un archivo de texto?

Encontré el siguiente script vbs para obtener la resolución de pantalla

pero me gustaría guardar el resultado en un archivo de texto por favor ayúdenme

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

Respuesta1

Para guardarlo en un nuevo archivo de texto, es posible que desee utilizar el siguiente VBScript según sus necesidades.

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

Si desea agregar texto al final de un archivo de texto existente, puede cambiar fácilmente el parámetro IOMode, por 8ejemplo

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

El trueparámetro garantiza que el archivo se haya creado recientemente o que ya exista si false.

información relacionada