DPI Settings

Hello,

I am looking to write a VBScript that retrieves the current system's DPI settings. I've tried looking online, but so far have not yet found anything that solidly works. Any help for a direction to look in would be greatly appreciated.

tristaanogre
8 years ago
I was just about to post that the value that you're looking for is in the registry. Now, there are a few things out there on StackOverflow and such that talk about needing to make sure you are referencing the proper device since different monitors on the same machine could be set differently... but the script that sanjay0288 looks pretty good.

One thing that I would suggest changing is that, starting with more recent versions of TC, you no longer need to create an object for the WScript.Shell. TC has it's own wrapper for it. So, you can pretty much just change your function to be:

Function readFromReg(strRegistryKey, defaultVal) Dim value On Error Resume Next value = WshShell.RegRead(strRegistryKey) If Err.Number <> 0 Then readFromReg = defaultVal Else readFromReg = value End If End Function

AlexKaras
Champion Level 3
8 years ago
Hi,

You may also consider to use either WMI or to create a simple .Net assembly and call it via the CLR Bridge of TestComplete to let system take care about possible OS differences.

E.g.:

-- https://blogs.technet.microsoft.com/heyscriptingguy/2005/07/21/how-can-i-determine-the-current-screen-resolution-being-used-on-a-computer/

-- http://www.vbforums.com/showthread.php?564811-how-do-i-get-DPI-of-system

-- https://social.technet.microsoft.com/Forums/scriptcenter/en-US/ac3b41b8-b563-4c8e-b50a-39952c442254/how-to-detect-screen-dpi-and-modify-hta-form-size-accordingly?forum=ITCG
tristaanogre
Esteemed Contributor
8 years ago
DPI settings? Or screen resolution?

Sys.Desktop.Height and Sys.Desktop.Width gives you the over all screen size.
- Ag3nt49
  Occasional Contributor
  8 years ago
  the actual DPI settings. I already have a script that retrieves the screen resolution (on that note, I found going into the Win32API to be more useful than using Sys.Desktop, as Sys.Desktop will give you the entire length and width if you're on a multi-monitor setup)
  
  The point of this script, is that not all of the QA running the company's tests are using the same font magnification settings in Win 7. We've agreed on standard settings for running our tests on, but I'm looking to write a script that actually checks if they are on the right settings or not
  - sanjay0288
    Frequent Contributor
    8 years ago
    Hi Ag3nt49
         You can write vbscript to get the DPI settings from registry. For a windows 7 64 bit machine the path is "HKEY_CURRENT_USER\Control Panel\Desktop\WindowMetrics\AppliedDPI".
    
    I am posting sample vbscript to read registry and get the DPI settings. Hope this might be of some help.
    
    Function readFromReg(strRegistryKey, defaultVal)
        Dim wshShell, value
        On Error Resume Next
        Set wshShell = CreateObject("WScript.Shell")
        value = wshShell.RegRead(strRegistryKey)
        If Err.Number <> 0 Then
            readFromReg = defaultVal
        Else
            readFromReg = value
        End If
        Set wshShell = Nothing
    End Function
    
    Sub GetDPI()
        Dim dpiVal
        dpiVal = readFromReg("HKEY_CURRENT_USER\Control Panel\Desktop\WindowMetrics\AppliedDPI", "NoValFound")
        MsgBox "Current DPI Val : " & dpiVal
    End Sub