Forum Moderators: open
Option Explicit
Set WSHShell = WScript.CreateObject("WScript.Shell")
Dim WSHShell, n, p, itemtype, mybox
p = "HKCU\Control Panel\Desktop\WindowMetrics\IconTitleWrap"
itemtype = "REG_SZ"
n = "0"
WSHShell.RegWrite p, n, itemtype
MyBox = MsgBox("You must Log Off/Log On for the changes to take effect.", 64,"Done")