vbscript для WiX

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
'Загрузка файла ветки реестра 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