| 1234567891011121314151617181920212223242526272829303132333435363738394041 |
- '********************************************************
- 'Сценарий автоматической установки 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
|
