This script will Fix 1606 Error. (VBScript)
| Option Explicit Dim WSHShell, m, MyBox, p, itemtype, Title Dim FSO, WinFolder Set FSO = CreateObject("Scripting.FileSystemObject") Set WinFolder = fso.GetSpecialFolder(0) Set FSO = Nothing WinFolder = Left(WinFolder,3) Set WSHShell = WScript.CreateObject("WScript.Shell") p = "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders\" p = p & "Common Administrative Tools" itemtype = "REG_SZ" m = WinFolder & "Documents and Settings\All Users\Start Menu\Programs\Administrative Tools" WSHShell.RegWrite p, m, itemtype Title = "Common Administrative Tools are now reset." & vbCR Title = Title & "You may need to ReBoot to take effect" MyBox = MsgBox(Title,64,"Finished") |