dim strComputer
' Read computer name from argument supplied - if no argument, assume local machine
if WScript.Arguments.Count<1 then
strComputer="."
else
strComputer=WScript.Arguments(0)
end if
Const HKEY_CURRENT_USER = &H80000001
Const HKEY_LOCAL_MACHINE = &H80000002
dim oReg: Set oReg = GetObject("winmgmts:\\" & strComputer & "\root\default:StdRegProv")
keypath = "Software\Microsoft\Windows\CurrentVersion\Explorer\HideDesktopIcons"
keypath2 = "Software\Microsoft\Windows\CurrentVersion\Explorer\HideDesktopIcons\ClassicStartMenu"
oReg.CreateKey HKEY_CURRENT_USER, keypath
oReg.CreateKey HKEY_CURRENT_USER, keypath2
oReg.SetDWORDValue HKEY_CURRENT_USER, keypath2, "{59031a47-3f72-44a7-89c5-5595fe6b30ee}","1" |