'********************************************************
'Сценарий автоматической установки JaCartaUnifiedClient 
'********************************************************

On Error Resume Next
platform = right(wscript.createobject("wscript.shell").environment("system").item("processor_architecture"), 2)
If Not WScript.Arguments.Named.Exists("elevate") Then
  CreateObject("Shell.Application").ShellExecute WScript.FullName _
    , """" & WScript.ScriptFullName & """ /elevate", "", "runas", 1
	WScript.Quit
End If

set WshShell = WScript.CreateObject("WScript.Shell")
set WshShell = CreateObject("WScript.Shell")
set fso=CreateObject ("Scripting.FileSystemObject")

set FSO = CreateObject("Scripting.FileSystemObject")
set F = FSO.GetFile(Wscript.ScriptFullName)

path = FSO.GetParentFolderName(F)

calais_folder = "C:\eToken_reg"
reg_file = path + "\eToken\calais.reg"
If (fso.FolderExists(calais_folder)) Then
  fso.DeleteFolder calais_folder, true
End If

fso.CreateFolder(calais_folder)
fso.CopyFile reg_file, calais_folder & "\calais.reg" , true
inst_reg = "regedit.exe /s " + calais_folder + "\calais.reg"
WshShell.Run inst_reg

inst_x64 = "msiexec.exe /I " + Chr(34) + path + "\JaCartaUC\JaCartaUnifiedClient_2.11.0.1749_win-x64_ru-Ru.msi"+ Chr(34) + " /qb"
inst_x32 = "msiexec.exe /I " + Chr(34) + path + "\JaCartaUC\JaCartaUnifiedClient_2.11.0.1749_win-x86_ru-Ru.msi" + Chr(34) + " /qb"
if platform = "64" then
	WshShell.Run inst_x64,2,True
else
	WshShell.Run inst_x32,2,True
End If

fso.DeleteFolder calais_folder, true