i've run into some 1606 errors that were caused and resolved by populating the default user regsitry. I did so with the script below (save as a vbs file and execute). It resolved SOME 1606 errors... not all.
Based off:
Wait a minute…
http://www.edsa.com/supportDownloads/faq.html
Check FAQ 6.
Check the .DEFAULT user Shell Folder settings?
' COMMENT: Populates 2 registry settings in the default user registry, and checks
' for and creates the application data subfolder or local settings
' in the default user profile if it does not exist.
'==========================================================================
const HKEY_USERS = &H80000003
On Error Resume Next
strComputer = "."
Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" &_
strComputer & "\root\default:StdRegProv")
'Configure the Default User Local Settings Values
strKeyPath = ".DEFAULT\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders"
strValueName = "Local Settings"
strValue = "C:\WINDOWS\system32\config\systemprofile\Local Settings"
oReg.SetStringValue HKEY_USERS,strKeyPath,strValueName,strValue
strValueName = "Local AppData"
strValue = "C:\WINDOWS\system32\config\systemprofile\Local Settings\Application Data"
oReg.SetStringValue HKEY_USERS,strKeyPath,strValueName,strValue
'Create the App Data sub-folder if it does not exist in the default user\local settings folder
Set objFSO = CreateObject("Scripting.FileSystemObject")
If NOT objFSO.FolderExists("c:\Documents and Settings\Default User\Local Settings\Application Data") Then
Set objFolder = objFSO.CreateFolder("c:\Documents and Settings\Default User\Local Settings\Application Data")
End If
'=====================