Dim WSHShell Set WSHShell = WScript.CreateObject("WScript.Shell") if WSHShell.RegRead("HKCUSoftwareMicrosoftWindowsCurrentVersionExplorerAdvancedHidden") = 1 then WSHShell.Reg…