Wie erhalte ich die Bildschirmauflösung und speichere sie in einer Textdatei?

Wie erhalte ich die Bildschirmauflösung und speichere sie in einer Textdatei?

Ich habe das folgende VBS-Skript gefunden, um die Bildschirmauflösung zu erhalten

aber ich möchte das Ergebnis in einer Textdatei speichern, bitte helfen Sie mir

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

Antwort1

Um es in einer neuen Textdatei zu speichern, können Sie für Ihre Zwecke das folgende VBScript verwenden.

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

Wenn Sie Text an das Ende einer bestehenden Textdatei anhängen möchten, können Sie den IOMode-Parameter einfach ändern in 8z.B.

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

Der trueParameter stellt sicher, dass die Datei neu erstellt wird bzw. bereits vorhanden sein muss, wenn false.

verwandte Informationen