Forum Discussion

Ag3nt49's avatar
Ag3nt49
Occasional Contributor
9 years ago

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 dire...
  • tristaanogre's avatar
    tristaanogre
    9 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

     

     

tristaanogre's avatar
tristaanogre
Esteemed Contributor
9 years ago

DPI settings? Or screen resolution?

Sys.Desktop.Height and Sys.Desktop.Width gives you the over all screen size.

  • Ag3nt49's avatar
    Ag3nt49
    Occasional Contributor
    9 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's avatar
      sanjay0288
      Frequent Contributor
      9 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

      • tristaanogre's avatar
        tristaanogre
        Esteemed Contributor
        9 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