need a vb script

[costacosti]

Hi guys,

please have charity with me . Can someone create a vbs file which should change the registry to following:

Windows Registry Editor Version 5.00

[HKEY_USERS\.DEFAULT\Control Panel\Desktop\WindowMetrics]

"AppliedDPI"=dword:00000060

[HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Hardware Profiles\Current\Software\Fonts]

"LogPixels"=dword:00000060

[HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Hardware Profiles\0001\Software\Fonts]

"LogPixels"=dword:00000060
[HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Hardware Profiles\Current\Software\Fonts]

"LogPixels"=dword:00000060


[HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Hardware Profiles\0001\Software\Fonts]

"LogPixels"=dword:00000060

[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\FontDPI]
"LogPixels"=dword:00000060

What I need is a vbs-file instead of this registry keys...I want to change the dpi settings to 96 dpi for win7

Thanks and regards

 

[mrmovie]

check out

Set WshShell = CreateObject("Wscript.Shell")
intReturn = WshShell.RegWrite("HKEY_USERS\.DEFAULT\Control Panel\Desktop\WindowMetrics\AppliedDPI", 60, "REG_DWORD")
Wscript.Echo intReturn & " after AppliedDPI"
etc
etc