Copy this code into a text file with extension ".vbs" and run it
Option Explicit
Dim WSHShell, n, p, itemtype, MyBox
Set WSHShell = WScript.CreateObject("WScript.Shell")
p = "HKEY_CURRENT_USER\Control Panel\Desktop\WindowMetrics\"
p = p & "MinWidth"
itemtype = "REG_SZ"
n = "-2700"
WSHShell.RegWrite p, n, itemtype
MyBox = MsgBox("You must reboot for the changes to take effect.",
vbOKOnly,"Done")
Want to reply to this thread or ask your own question?
You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.