Recently a new application we are deploying company wide has a specific display resolution requirement. Here is a simple VBScript to show you how to output this to a text file on the local computer. Of course, you could direct this to a specific drive letter, etc. In this example, we’ve actually added the extra process to find a “Tools” directory we locate on each workstation, typically this is the c:\ partition, but it sometimes is a different drive letter. Enjoy:
' Writes screen resolution to the Tools directory
'
' Written by Jason Olson
' Based on work by Microsoft Script Guy
' Find the tools directory, create it if missing
' Get the available logical drives and load them into an array from WMI
Set objWMIService = GetObject("winmgmts:\\.\root\CIMV2")
Set colItems = objWMIService.ExecQuery _
("SELECT * FROM Win32_LogicalDisk Where DriveType = 3")
For Each objItem In colItems
fldrx = objItem.DeviceID & "\Tools\"
set fso = CreateObject("Scripting.FileSystemObject")
if NOT fso.FolderExists(fldrx) Then
fso.CreateFolder (fldrx)
fldcx = True
Exit For
End If
Exit For
Next
' Grab the screen elements
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery _
("Select * From Win32_DisplayConfiguration")
' Write the data to the tools directory
For Each objItem In colItems
fsa = "Name: " & objItem.DeviceName
fsb = "Color depth: " & objItem.BitsPerPel
fsc = "Horizontal resolution: " & objItem.PelsWidth
fsd = "Vertical resolution: " & objItem.PelsHeight
fsl = fldrx & "screenresolution.txt"
set fso = CreateObject("Scripting.FileSystemObject")
set f = fso.OpenTextFile(fsl, "8", True)
f.WriteLine(fsa)
f.WriteLine(fsb)
f.WriteLine(fsc)
f.WriteLine(fsd)
f.Close()
Next
