NeoBook Functions – VBScript & JavaScript :: RE: VBScript For Getting Available Desktop Resolutions

Posted by Wrangler on March 14, 2012
Posted in: NeoSoft Forum. Tagged: , , , , , , , .

Author: Tony Kroos

Posted: Wed Mar 14, 2012 9:40 am (GMT -7)
Topic Replies: 1


Code:
{NeoBook Function}

Version=5,70

Language=VBScript

Comment=GetVideoResolutions

{End}

On Error Resume Next

dim i, objWMIService, colItems, objItem

Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\.\root\cimv2")

Set colItems = objWMIService.ExecQuery ("Select * from CIM_VideoControllerResolution")

For Each objItem in colItems

i=i+1

nbSetVar "[Resolution"&i&"]",objItem.HorizontalResolution & "x" & objItem.VerticalResolution _

& "x" & objItem.NumberOfColors & "@" & objItem.RefreshRate

Next

Set colItems = Nothing

Set objWMIService = Nothing


NeoSoft Support Forum





Share