'Загрузка файла ветки реестра 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