Untitled

<html>
<head>
<style media="print">
 .hide {
    display: none;
}
</Style>
<title>Обновление 2Гис</title>

<Script language="VBScript">

'On Error Resume Next

window.resizeTo 700, 700

sPath_local = "C:\Program Files\2gis\3.0\"
sPath_server = "\\xeon\Users\2gis\3.5\"
Set Dict = CreateObject("Scripting.Dictionary")
Dict.Add "Новосибирск",      "Data_Novosibirsk.dgdat"
Dict.Add "Астрахань",      "Data_Astrakhan.dgdat"
Dict.Add "Барнаул",      "Data_Barnaul.dgdat"
Dict.Add "Бийск",          "Data_Biysk.dgdat"
Dict.Add "Владивосток",  "Data_Vladivostok.dgdat"
Dict.Add "Волоград",        "Data_Volgograd.dgdat"
Dict.Add "Воронеж",      "Data_Voronezh.dgdat"
Dict.Add "Горноалтайск",    "Data_Gornoaltaysk.dgdat"
Dict.Add "Екатеринбург",    "Data_Ekaterinburg.dgdat"
Dict.Add "Иркутск",      "Data_Irkutsk.dgdat"
Dict.Add "Ижевск",            "Data_Izhevsk.dgdat"
Dict.Add "Калининград",  "Data_Kaliningrad.dgdat"
Dict.Add "Казань",            "Data_Kazan.dgdat"
Dict.Add "Кемерово",        "Data_Kemerovo.dgdat"
Dict.Add "Кострома",        "Data_Kostroma.dgdat"
Dict.Add "Краснодар",      "Data_Krasnodar.dgdat"
Dict.Add "Красноярск",        "Data_Krasnoyarsk.dgdat"
Dict.Add "Курган",            "Data_Kurgan.dgdat"
Dict.Add "Магнитогорск",    "Data_Magnitogorsk.dgdat"
Dict.Add "Москва",            "Data_Moscow.dgdat"
Dict.Add "Н.Новгород",         "Data_N_Novgorod.dgdat"
Dict.Add "Н. Челны",      "Data_Nabchelny.dgdat"
Dict.Add "Нижневартовск",  "Data_Nizhnevartovsk.dgdat"
Dict.Add "Новокузнецк",  "Data_Novokuznetsk.dgdat"
Dict.Add "Одесса",            "Data_Odessa.dgdat"
Dict.Add "Омск",            "Data_Omsk.dgdat"
Dict.Add "Пенза",          "Data_Penza.dgdat"
Dict.Add "Пермь",          "Data_Perm.dgdat"
Dict.Add "Ростов",            "Data_Rostov.dgdat"
Dict.Add "Самара",            "Data_Samara.dgdat"
Dict.Add "Саратов",      "Data_Saratov.dgdat"
Dict.Add "Сочи",            "Data_Sochi.dgdat"
Dict.Add "Санкт-Петербург", "Data_Spb.dgdat"
Dict.Add "Сургут",            "Data_Surgut.dgdat"
Dict.Add "Тольятти",        "Data_Togliatti.dgdat"
Dict.Add "Томск",          "Data_Tomsk.dgdat"
Dict.Add "Тула",            "Data_Tula.dgdat"
Dict.Add "Тюмень",            "Data_Tyumen.dgdat"
Dict.Add "Уфа",          "Data_Ufa.dgdat"
Dict.Add "Улан-удэ",         "Data_Ulanude.dgdat"
Dict.Add "Хабаровск",      "Data_Khabarovsk.dgdat"
Dict.Add "Челябинск",      "Data_Chelyabinsk.dgdat"
Dict.Add "Ярославль",      "Data_Yaroslavl.dgdat"

Arr = Dict.Items
Arr2 = Dict.Keys

texttoHTML = ""
texttoHTML = texttoHTML & "<h1>Скрипт обновления ДубльГис.</h1>"
'texttoHTML = texttoHTML & "<input type='radio'checked name='office' value='Ellite'> Офис в Элитном           "
'texttoHTML = texttoHTML & "<input type='radio' name='office' value='Bezmenovo'> Офис в Безменово<Br>"
texttoHTML = texttoHTML & "Для обновления, отметьте необходимые города галочками и нажмите кнопку <Выполнить обновление>.<br>"
texttoHTML = texttoHTML & "Обновление может занять несколько минут. Пожалуйста, дождитесь сообщения об окончании.<br><br>"
texttoHTML = texttoHTML & "<input type='checkbox' checked name='CheckBox'> " & Arr2(0) & "<br><br>"
texttoHTML = texttoHTML & "<table cellpadding='7' border='1' cellspacing='0' cellpadding='0'>"
texttoHTML = texttoHTML & "<tr><td valign='top'>"

document.write(texttoHTML)

For i=1 To Dict.Count-1

    If i = 16 Then
        document.write("</td><td valign='top'>")
    End If
    If i = 31 Then
        document.write("</td><td valign='top'>")
    End If


        document.write(" <input type='checkbox' name='CheckBox'>" & Arr2(i)& "<br>")
Next

document.write("</td></tr></table><br>")


Sub runmod
    Set FSO = CreateObject("Scripting.FileSystemObject")
    Set WshShell = CreateObject("WScript.Shell")
    WshShell.Run "taskkill /IM grym.exe /F /T",0,True

    For i=0 To Dict.Count-1
        If CheckBox(i).Checked Then
        FSO.CopyFile sPath_server + Arr(i) , sPath_local + Arr(i)
        End If
    Next

    MsgBox "Обновление завершено. Можно закрыть программу обновления"
End Sub

</Script>
</head>

<TITLE>Обновлятор ДубльГиса</TITLE>
    <HTA:APPLICATION ID="Update2Gis"
     APPLICATIONNAME="Update2Gis"
     BORDER="thin"
     BORDERSTYLE="normal"
     CAPTION="yes"
     ICON="myicon.ico"
     MAXIMIZEBUTTON="no"
     MINIMIZEBUTTON="no"
     SHOWINTASKBAR="yes"
     SINGLEINSTANCE="no"
     SYSMENU="yes"
     SCROLL="no"
     VERSION="2.0"
     WINDOWSTATE="normal">

<body>
<input type='button' value='Выполнить обновление' name='runbutton' onClick='RunMod()'>
</body>
</html>