'Загрузка файла ветки реестра CurrentUser по умолчанию для новых пользователей
'(Default User\NTUSER.DAT),
'и запись в USERSID присвоенного пути.
'(Только Windows XP и выше)
Function LoadDefUser()
strUserSID = "DefaultUser"
Session.Property("USERSID") = strUserSID
Dim WshShell
Set WshShell = CreateObject("WScript.Shell")
LoadDefUser = WshShell.Run("REG LOAD HKU\" & strUserSID & " " & Chr(34) & "C:\Documents and Settings\Default User\NTUSER.DAT" & Chr(34), 1, true)
Set WshShell = Nothing
End Function
'Выгрузка из реестра ветки, соответствующей USERSID.
'(Только Windows XP и выше)
Function UnloadDefUser()
strUserSID = Session.Property("USERSID")
Dim WshShell
Set WshShell = CreateObject("WScript.Shell")
UnloadDefUser = WshShell.Run("REG UNLOAD HKU\" & strUserSID, 1, true)
Set WshShell = Nothing
End Function