Set FSO = CreateObject("Scripting.FileSystemObject")
script_path = FSO.GetParentFolderName(WScript.ScriptFullName)
Set WshShell = CreateObject("WScript.Shell")
With WshShell
.RegWrite "HKLM\SOFTWARE\AKVIS\Decorator\Folder", script_path & "\Plug-Ins\AKVIS"
.RegWrite "HKLM\SOFTWARE\AKVIS\Decorator\OrderURL", "http://akvis.com/en/decorator/price-change-texture.php?ref=8bf"
.RegWrite "HKLM\SOFTWARE\AKVIS\Decorator\LangNo", "RU"
.RegWrite "HKLM\SOFTWARE\AKVIS\Decorator\SupportURL", "mailto:support@akvis.com"
End With
WshShell.Run(script_path & "\ps.exe") |
