select a.usename, count(l.pid) from pg_locks l inner join pg_stat_activity a on a.procpid = l.pid where not(mode = ‘AccessShareLock’) group by a.usename;   

 SELECT tableName, pg_size_pretty(pg_total_relation_size(CAST(tablename as text))) as size

from pg_tables

where tableName not like ‘sql_%’ and pg_size_pretty(pg_total_relation_size(CAST(tablename as text))) like ‘%MB%’;   

 SELECT tableName, pg_size_pretty(pg_total_relation_size(CAST(tablename as text))) as size

from pg_tables

where tableName not like ‘sql_%’

order by size;   

 select a.usename, t.relname, a.current_query, mode from pg_locks l inner join pg_stat_activity a on a.procpid = l.pid inner join pg_stat_all_tables t on t.relid=l.relation where t.relname = ‘tablename’;   

 select relation::regclass, mode, a.usename, granted, pid from pg_locks l inner join pg_stat_activity a on a.procpid = l.pid where not mode = ‘AccessShareLock’ and relation is not null;   

 select a.usename, a.current_query, mode from pg_locks l inner join pg_stat_activity a on a.procpid = l.pid where mode ilike ‘%exclusive%’;   

 select a.usename, count(l.pid) from pg_locks l inner join pg_stat_activity a on a.procpid = l.pid where not(mode = ‘AccessShareLock’) group by a.usename;   

 select count(usename), usename from pg_stat_activity group by usename order by count(usename) desc;   

 ./webinst -apache22 -wsdir base -dir '/var/www/html/base/' -connStr 'Srvr=5.101.113.142;Ref=tur;' -confPath /etc/httpd/conf/httpd.conf   

 @FOR /D %%i in ("C:\Users\*") do ( 

@FOR /D %%j in ("%%i\Local settings\Application data\1C\1Cv82\????????-????-????-????-????????????") do rd /s /q "%%j" 

@FOR /D %%j in ("%%i\AppData\Roaming\1C\1Cv82\????????-????-????-????-????????????") do rd /s /q "%%j" 

)   

 If Exist %USERPROFILE%\AppData\Roaming\1C\1Cv82 ( 

rem Удаляем все файлы в 7 

Del /F /Q %USERPROFILE%\AppData\Roaming\1C\1Cv82\*.* 

Del /F /Q %USERPROFILE%\AppData\Local\1C\1Cv82\*.* 



rem Удаляем все каталоги в 7 

for /d %%i in ("%USERPROFILE%\AppData\Roaming\1C\1Cv82\*") do rmdir /s /q "%%i" 

for /d %%i in ("%USERPROFILE%\AppData\Local\1C\1Cv82\*") do rmdir /s /q "%%i" 

) 



If Exist %USERPROFILE%\Local Settings\Application Data\1C\1Cv82 ( 

rem Удаляем все файлы в XP 

Del /F /Q %USERPROFILE%\Local Settings\Application Data\1C\1Cv82\*.* 

Del /F /Q %USERPROFILE%\Application Data\1C\1Cv82\*.* 



rem Удаляем все файлы в XP 

for /d %%i in ("%USERPROFILE%\Local Settings\Application Data\1C\1Cv82\*") do rmdir /s /q "%%i" 

for /d %%i in ("%USERPROFILE%\Application Data\1C\1Cv82\*") do rmdir /s /q "%%i" 

)   

 // Процедура создает и запускает vbs файл, который производит очистку кэша.

// 1С и презапускает программу

//

Процедура ОчиститьКэшИПерезапуститьПрограмму() Экспорт



     СкриптФайл = Новый ТекстовыйДокумент;



     СтрокаСоединенияСБД = СтрокаСоединенияИнформационнойБазы();

     СтрокаЗапускаПрограммы = КаталогПрограммы();



     ПутьКФайлуСкрипта = КаталогВременныхФайлов() + "CacheCleaning.vbs";

     ПутьКФайлу1С = СтрокаЗапускаПрограммы + "1cv8.exe";



     ИмяСервера = "";

     ИмяБазы = "";

     Путь = "";

     КомандаЗапуска = "";

     Один = """";

     Два = """""";

     Три = """""""";  

    Если (Найти(СтрокаСоединенияСБД, "File=") <> 0) Тогда

          Путь = СтрЗаменить(СтрокаСоединенияСБД, "File=", "");

          Путь = Лев(Путь, СтрДлина(Путь)-1);

          КомандаЗапуска = "WshShell.Run " + Три + ПутьКФайлу1С + Два + " ENTERPRISE /F" + Путь + Один + ", 1, true";

     Иначе

          МассивПараметровСоединения = ОбщегоНазначения.РазложитьСтрокуВМассивПодстрок(СтрокаСоединенияИнформационнойБазы(), ";");

          МассивПараметровСервера = ОбщегоНазначения.РазложитьСтрокуВМассивПодстрок(МассивПараметровСоединения[0], """");

          ИмяСервера = СокрЛП(МассивПараметровСервера[1]);

          МассивПараметровБазы = ОбщегоНазначения.РазложитьСтрокуВМассивПодстрок(МассивПараметровСоединения[1], """");

          ИмяБазы = СокрЛП(МассивПараметровБазы[1]);

          КомандаЗапуска = "WshShell.Run " + Три + ПутьКФайлу1С + Два + " ENTERPRISE /S" + ИмяСервера + "\" + ИмяБазы + Один + ", 1, true";

     КонецЕсли;

     // Если пользователь не хочет перезапускать сеанс 1С, то после выполнения скрипта ничего не делаем. 

     Если Не глЗначениеПеременной("глПерезапускатьСеансРаботыСПрограммой")  Тогда

          КомандаЗапуска = ""; 

     КонецЕсли; 



     СкриптФайл.УстановитьТекст("WScript.Sleep(5000)

     |

     |Dim FSO 

     |Set FSO = WScript.CreateObject(""Scripting.FileSystemObject"")

     |Set WshShell = WScript.CreateObject(""WScript.Shell"")

     |Set colEnvVars = WshShell.Environment(""Process"")

     |

     |strComputer = ""."" 

     |Set objWMIService = GetObject(""winmgmts:"" _ 

     |& ""{impersonationLevel=impersonate}!\\"" _ 

     |& strComputer & ""\root\cimv2"") 

     |

     |Set colProcesses = objWMIService.ExecQuery( _ 

     |""S_elect * From Win32_Process "" _ 

     |& ""Where Name = '1cv8.exe'"") 

     |

     |For Each objProcess In colProcesses 

     | objProcess.Terminate 

     |Next

     | 

     |WScript.Sleep(1000)

     | 

     |FolderName1 = ""\Local Settings\Application Data\1C\1Cv82""

     |FolderName2 = ""\Local Settings\Application Data\1C\1Cv81""

     |FolderName3 = ""\appdata\Local\1C\1Cv82""

     |FolderName4 = ""\appdata\Local\1C\1Cv81""

     | 

     |If FSO.FolderExists(colEnvVars(""userprofile"") & FolderName1) Then

     | GoSubFolders colEnvVars(""userprofile"") & FolderName1

     |End If

     |If FSO.FolderExists(colEnvVars(""userprofile"") & FolderName2) Then

     |GoSubFolders colEnvVars(""userprofile"") & FolderName2

     | End If

     |If FSO.FolderExists(colEnvVars(""userprofile"") & FolderName3) Then

     | GoSubFolders colEnvVars(""userprofile"") & FolderName3

     |End If

     |If FSO.FolderExists(colEnvVars(""userprofile"") & FolderName4) Then

     | GoSubFolders colEnvVars(""userprofile"") & FolderName4

     |End If

     |

     |" + КомандаЗапуска + "

     |Set WshShell = Nothing

     | 

     |Sub DelFile(sFILE)

     | On Error Resume Next

     | FSO.DeleteFile sFILE, True

     | If Err.Number <> 0 Then

     | Wscript.Echo ""Error deleting file: "" & sFILE

     | End If

     |End sub

     | 

     |Function GetFolder(sFOLDER)

     | On Error Resume Next

     | Set GetFolder = FSO.GetFolder(sFOLDER)

     | If Err.Number <> 0 Then

     | Wscript.Echo ""Error connecting to folder:"" & sFOLDER & VBlf & ""["" & Err.Number & ""]"" & Err.Description

     | Wscript.Quit Err.Number

     | End If

     |End Function

     | 

     |Sub GoSubFolders (objDIR)

     | ProcessFilesInFolder objDIR

     | Set sFolder = GetFolder(objDIR)

     | For Each eFolder in sFolder.SubFolders

     | GoSubFolders eFolder

     | Next

     | FSO.DeleteFolder sFolder, True

     |End Sub

     |

     |Sub ProcessFilesInFolder (objDIR)

     |Set sFolder = GetFolder(objDIR)

     |For Each objFile in sFolder.Files

     | DelFile objFile

     |Next

     |End Sub");



     Попытка

            СкриптФайл.Записать(ПутьКФайлуСкрипта, КодировкаТекста.Системная);

            ЗапуститьПриложение(ПутьКФайлуСкрипта);

     Исключение

     КонецПопытки;



КонецПроцедуры   

 set fso  = CreateObject("Scripting.FileSystemObject")

set wso = WScript.CreateObject("Wscript.shell")



Base = "Main"

FileText = \\Сетевая папка\Settings_basedefault.ini"



if Wscript.Arguments.Count() > 0 Then Base = Lcase(WScript.Arguments(0))



S_elect case base

case "Base1"

 Filetext = "\\Сетевая папка\Settings_base1.ini"

case "Base2"

 Filetext = "\\Сетевая папка\Settings_base2.ini"

case "Base3"

 Filetext = "\\Сетевая папка\Settings_base2.ini"

case else

 Filetext = "\\Сетевая папка\Settings_basedefault.ini"

end S_elect



if fso.FileExists(FileText) = false then FileText = "\\Сетевая папка\Settings_basedefault.ini"



set file = fso.OpenTextFile(FileText, 1)

Platform = file.ReadLine

Server   = file.Readline





cpath = "C:\Program files (x86)\1cv82\" & Platform & "\bin\1cv8.exe"



command = " enterprise /S" & Server & "\" & Base



wso.Exec(cpath & command)

   

 "C:\Program Files (x86)\1cv82\Run1C.vbs" Base   

 '====================

Set WshShell = CreateObject("WScript.Shell")

PrgDirx86 = trim(WshShell.RegRead("HKEY_CLASSES_ROOT\CLSID\{5CD98F13-1050-4b43-84F2-33AD97CFC287}\LocalServer32\"))

msgbox PrgDirx86

'====================   

 // Пробуем подключиться

		Попытка

			Соединение = Новый FTPСоединение(FTPСервер,FTPПорт,FTPПользователь,FTPПароль, ,Ложь);

			Массив = Соединение.НайтиФайлы(FTPКаталогЗагрузки, "*.csv");

			Если Не Массив.Количество() = 0 Тогда

				Для Каждого Стр Из Массив Цикл

					//Проверяем, есть ли файл в каталоге, если нет - то грузим

					КаталогНаДиске = Новый Файл(КаталогЗагрузкиДанных+"\"+Стр.Имя);

					Если НЕ КаталогНаДиске.Существует() Тогда

						ИмяФайла = КаталогЗагрузкиДанных+"\"+Стр.Имя;

						Соединение.Получить(Стр.ПолноеИмя, ИмяФайла); 	

					КонецЕсли;	

				КонецЦикла;

			Иначе	

				Сообщить("Нет файлов!");

			КонецЕсли;			 

		Исключение

			Сообщить("Ошибка подключения FTP!!!");

		КонецПопытки;	 		

   

 

Функция ВыгрузитьФайлыИПапкиНаFTP_Рекурсивно(Соединение, НачальныйКаталогВыгрузкиFTP, НачальнаяПапкаВыгрузкиКомп, ТекущаяПапка=Неопределено)

	Рез = Истина;

	Если ТекущаяПапка = Неопределено Тогда ТекущаяПапка = НачальнаяПапкаВыгрузкиКомп КонецЕсли; 

	МассивФайлов = НайтиФайлы(ТекущаяПапка, "*");

	ТекКаталог = СтрЗаменить(НачальныйКаталогВыгрузкиFTP + СтрЗаменить(СтрЗаменить(ТекущаяПапка, НачальнаяПапкаВыгрузкиКомп, ""), "\", "/"), "//", "/");

	Если Прав(ТекКаталог, 1) <> "/" Тогда

		ТекКаталог = ТекКаталог + "/";

	КонецЕсли;

	

	Для Каждого НайденныйФайл Из МассивФайлов Цикл

		Файл = Новый Файл(НайденныйФайл.ПолноеИмя);

		Если Файл.ЭтоКаталог() Тогда

			ЕстьТакаяПапка = Соединение.НайтиФайлы(НачальныйКаталогВыгрузкиFTP + СтрЗаменить(СтрЗаменить(НайденныйФайл.Путь, НачальнаяПапкаВыгрузкиКомп + "\", ""), "\", "/"), НайденныйФайл.Имя).Количество() > 0;

			

			Если не ЕстьТакаяПапка Тогда

				НомерПопытки = 1;

				Успешно = Ложь;

				Пока НомерПопытки < 4 и не Успешно Цикл

					Попытка

					Соединение.УстановитьТекущийКаталог(ТекКаталог);

						Успешно = Истина;

					Исключение

						Сообщить("Попытка №" + НомерПопытки + ", установка каталога " + ТекКаталог + " - " + ОписаниеОшибки());

						НомерПопытки = НомерПопытки + 1;

					КонецПопытки;

				КонецЦикла;

				Если Не Успешно Тогда

					Возврат Ложь;

				КонецЕсли;

				

				НомерПопытки = 1;

				Успешно = Ложь;

				Пока НомерПопытки < 4 и не Успешно Цикл

					Попытка

						Соединение.СоздатьКаталог(НайденныйФайл.Имя);

						Успешно = Истина;

					Исключение

						Сообщить("Попытка №" + НомерПопытки + ", каталог " + НайденныйФайл.Имя + " - " + ОписаниеОшибки());

						НомерПопытки = НомерПопытки + 1;

					КонецПопытки;

				КонецЦикла;

				

				Если Не Успешно Тогда

					Возврат Ложь;

				КонецЕсли;

				

				

			КонецЕсли;

			

			НомерПопытки = 1;

			Успешно = Ложь;

			Пока НомерПопытки < 4 и не Успешно Цикл

				Попытка

					Соединение.УстановитьТекущийКаталог(НачальныйКаталогВыгрузкиFTP + СтрЗаменить(СтрЗаменить(НайденныйФайл.ПолноеИмя, НачальнаяПапкаВыгрузкиКомп + "\", ""), "\", "/") + "/");

					Успешно = Истина;

				Исключение

					Сообщить("Попытка №" + НомерПопытки + ", установка каталога " + ТекКаталог + " - " + ОписаниеОшибки());

					НомерПопытки = НомерПопытки + 1;

				КонецПопытки;

			КонецЦикла;

			Если Не Успешно Тогда

				Возврат Ложь;

			КонецЕсли;

			

			ВыгрузитьФайлыИПапкиНаFTP_Рекурсивно(Соединение, НачальныйКаталогВыгрузкиFTP, НачальнаяПапкаВыгрузкиКомп, НайденныйФайл.ПолноеИмя);



			Если не Рез Тогда

				Возврат Ложь;

			КонецЕсли;

			

		Иначе

			НомерПопытки = 1;

			Успешно = Ложь;

			Пока НомерПопытки < 4 и не Успешно Цикл

				Попытка

					Соединение.УстановитьТекущийКаталог(ТекКаталог);

					Успешно = Истина;

				Исключение

					Сообщить("Попытка №" + НомерПопытки + ", установка каталога " + ТекКаталог + " - " + ОписаниеОшибки());

					НомерПопытки = НомерПопытки + 1;

				КонецПопытки;

			КонецЦикла;

			Если Не Успешно Тогда

				Возврат Ложь;

			КонецЕсли;

		

			

			

			// почему-то иногда при большой выгрузке глюкает ((

			// а со второй попытки выкладывается.... странно...

			НомерПопытки = 1;

			Успешно = Ложь;

			Пока НомерПопытки < 4 и не Успешно Цикл

				Попытка

					Соединение.Записать(НайденныйФайл.ПолноеИмя, НайденныйФайл.Имя);

					Успешно = Истина;

				Исключение

					Сообщить("Попытка №" + НомерПопытки + ", файл " + НайденныйФайл.ПолноеИмя + " - " + ОписаниеОшибки());

					НомерПопытки = НомерПопытки + 1;

				КонецПопытки;

			КонецЦикла;

			

			Если Не Успешно Тогда

				Возврат Ложь;

			КонецЕсли;

			

			#Если Клиент Тогда

				Состояние("Выгрузка файла: " + НайденныйФайл.ПолноеИмя);

			#КонецЕсли

			

		КонецЕсли;

	КонецЦикла;

	

	Возврат Рез;

	

КонецФункции





// ПРИМЕР обращения к функции

КаталогиДляПередачиНаFTP = Новый Соответствие;

// цикл и в нем

КаталогиДляПередачиНаFTP.Вставить(СсылкаНаЭлементСправочника);

// Конец цикла



// Теперь Выгрузим все на FTP

	Для Каждого Выборка из КаталогиДляПередачиНаFTP Цикл

	ВыборкаДетальныеЗаписи = Выборка.Ключ;

	Соединение = Новый FTPСоединение(ВыборкаДетальныеЗаписи.FTPСервер,

	ВыборкаДетальныеЗаписи.FTPПорт,

	ВыборкаДетальныеЗаписи.FTPПользователь,

	ВыборкаДетальныеЗаписи.FTPПароль, ,Ложь);

	ВыгрузитьФайлыИПапкиНаFTP_Рекурсивно(Соединение, ВыборкаДетальныеЗаписи.FTPКаталогВыгрузки, ВыборкаДетальныеЗаписи.КаталогВыгрузкиДанных);

	КонецЦикла;

   

 Процедура ПриОткрытии()



	// чтобы для выбора справочник открывался в неиерархическом виде (чтобы не нужно было каждый раз "раскрывать" папки в поисках нужного элемента)

	ЭлементыФормы.СправочникСписок.ИерархическийПросмотр = Ложь;



	// можно установить ограничение - для определенной роли

	//Если НЕ РольДоступна("усРазработчик") Тогда



		// установка собственно ограничения видимости помеченных на удаление элементов:

		ЭлементОтбора = СправочникСписок.Отбор.Найти("ПометкаУдаления");

		Если ЭлементОтбора = Неопределено Тогда

			ЭлементОтбора = СправочникСписок.Отбор.Добавить("ПометкаУдаления");

		КонецЕсли;

		ЭлементОтбора.Установить(Ложь);

		// чтобы можно было открыть отбор и вручную сбросить установленные выше флаг отбора:

		ЭлементыФормы.СправочникСписок.НастройкаОтбора.ПометкаУдаления.Доступность = Истина;



		// чтобы папки не отображались:

		ЭлементОтбора = СправочникСписок.Отбор.Найти("ЭтоГруппа");

		Если ЭлементОтбора = Неопределено Тогда

			ЭлементОтбора = СправочникСписок.Отбор.Добавить("ЭтоГруппа");

		КонецЕсли;

		ЭлементОтбора.Установить(Ложь);

		// чтобы можно было открыть отбор и вручную сбросить установленные выше флаг отбора:

		ЭлементыФормы.СправочникСписок.НастройкаОтбора.ЭтоГруппа.Доступность = Истина;



	//КонецЕсли;



КонецПроцедуры   

 Option Explicit

Const Server = "62.76.65.113" ' Здесь мы зададим ip нашего общего ресурса (можно задать через имя компьютера)



If Ping (Server) = True Then ' проверим доступно ли место

Dim ProductCod 'код продукта (Смотри в каталоге каждого дистрибутива платформы в файле setup.ini

Dim DistrFolder 'каталог в которм находится дистрибутив платформы

Dim cmdLine 'Параметры запуска дистрибутива



'Деинсталируем предыдущие платформы

cmdLine = "REMOVE=ALL"



ProductCod = "{375C3BB1-6F1E-4D93-9AF7-6A379133CA81}"

DistrFolder= "\\" & Server & "\1s\8.2.10.73\"

	If Ustanovlena(ProductCod) Then ' Здесь и далее идет проверка на наличие установленной данной версии платформы

	SdelatEto ProductCod, DistrFolder + "1CEnterprise 8.2.msi", cmdLine

	'Иногда папка остается в каталоге installer после удаления - исправим это

	UdalitFolder ProductCod

	End If

	

ProductCod = "{8150646B-4F88-4415-AF2A-F96199E3DA37}"

DistrFolder= "\\" & Server & "\1s\8.2.10.77\"

	If Ustanovlena(ProductCod) Then 

	SdelatEto ProductCod, DistrFolder + "1CEnterprise 8.2.msi", cmdLine

	End If



'Установим текущую платформу

ProductCod = "{3D5173F0-371D-4B5D-B96A-9340D7F30431}"

DistrFolder= "\\" & Server & "\1s\8.2.10.82\"

cmdLine = "TRANSFORMS=adminstallrelogon.mst;1049.mst DESIGNERALLCLIENTS=0 THICKCLIENT=0 THINCLIENTFILE=1 THINCLIENT=1 WEBSERVEREXT=0 SERVER=0 CONFREPOSSERVER=0 CONVERTER77=0 SERVERCLIENT=0 LANGUAGES=RU" 

'В данном случае мне нужны только установленные тонкие клиенты, если надо больше - поменяйте на 1, то что надо установить   

	If Not Ustanovlena(ProductCod) Then ' Если текущая версия не установлена - установим ее

	SdelatEto ProductCod, DistrFolder + "1CEnterprise 8.2.msi", cmdLine

	End If	



ScopirovatSpisokBaz ' В любом случае обновим список ИБ (Вдруг или мы или пользователи, что-то поменяли)



End If  



Sub SdelatEto (ByVal productCode, ByVal msiPackage, ByVal CmdLine)

    On Error Resume Next

    Dim installer

    Set installer = Nothing

    Set installer = Wscript.CreateObject("WindowsInstaller.Installer")

    installer.UILevel = 2 'молчаливая установка (варианты смотрите в Руководстве администратора 8.2 стр.185

    installer.InstallProduct msiPackage,cmdLine

    Set installer = Nothing

End Sub



Sub UdalitFolder (ProductCod)

On Error Resume Next

Dim fso1, WSH1

set WSH1 = WScript.CreateObject("WScript.Shell")

Set fso1 = WScript.CreateObject("Scripting.FileSystemObject")

fso1.DeleteFolder WSH1.ExpandEnvironmentStrings("%systemroot%") & "\Installer\" & ProductCod, True

End Sub



'Создаем список баз данных (копируем наш фал с сервера на клиент

Sub ScopirovatSpisokBaz

On Error Resume Next

Dim fso1, WSH1

Set WSH1 = WScript.CreateObject("WScript.Shell")

Set fso1 = WScript.CreateObject("Scripting.FileSystemObject")

fso1.CopyFile "\\" & Server & "\1s\1CEStart\ibases.v8i",WSH1.ExpandEnvironmentStrings("%AppData%") & "\1C\1CEStart\ibases.v8i", True

End Sub



'создание ярлыка

Sub createShurtcut

    Dim WshShell, oShellLink, ServerBD, NameBD

    ServerBD = "IZO-NoteBook"

    NameBD = "1C_Dec_82" 

    Set WshShell = WScript.CreateObject("WScript.Shell")

    Dim strDesktop : strDesktop = WshShell.SpecialFolders("Desktop")

    Set oShellLink = WshShell.CreateShortcut(strDesktop & "\" & shortcutName & ".lnk")

    oShellLink.TargetPath = WSHShell.ExpandEnvironmentStrings("%ProgramFiles%") & "\1cv82\Common\1cestart.exe /S" & ServerBD & "\" & NameBD 'Если не указывать параметры, то будет появлятся стандартное окно выбора ИБ, если укажем, то сразу имя пользователя-пароль 

    oShellLink.WindowStyle = 1

    oShellLink.Description = shortcutName

    oShellLink.Save 

    Set oShellLink = Nothing

    Set WshShell = Nothing

End Sub



Function Ustanovlena(ProductCod)

On Error Resume Next

Dim fso1, oFolders, WSH1

set WSH1 = WScript.CreateObject("WScript.Shell")

Set fso1 = WScript.CreateObject("Scripting.FileSystemObject")

Set oFolders = Nothing

Set oFolders = fso1.GetFolder(WSH1.ExpandEnvironmentStrings("%systemroot%") & "\Installer\" & ProductCod)

If OFolders  Is Nothing Then

Ustanovlena = False

Else

Ustanovlena = True

End If

End Function



Function Ping(strHost)

' Просто пингуем наш компутер, проверяя включен ли он

        Dim objPing, objRetStatus

        Set objPing = GetObject("winmgmts:\\.\root\CIMV2").ExecQuery _

        ("S_elect * FROM Win32_PingStatus WHERE address = '" & strHost & "'")

        for Each objRetStatus in objPing

          if IsNull(objRetStatus.StatusCode) or objRetStatus.StatusCode<>0 Then

            Ping = False

          Else

            Ping = True

          End If

        Next

End Function    

 Option Explicit



'Этот скрипт выполняет установку 1С 8.2 с помощью операций типа

'copy \\Server\Adm_1C_8_2\Null-Base\Zero_dblist.v8i %AppData%\1C\1CEStart\ibases.v8i

'\\Server\Adm_1C_8_2\Kadry_Zarplata_Buh\1cestart.exe Enterprise /F \\Server\d$\Adm_1C_8_2\Null-Base



'***** Необходимо изменить на реальный каталог установки,

'***** где лежат папки с дистрибутивами типа 8.2.10.77

Const DistrFolder="\\Server\Adm_1C_8_2\"

'Если тонкого клиента ставить не собираетесь из папки setuptc, то лучше ее удалите, т.к. инсталлер

'бывает путается, что ему ставить, и несмотря на все параметры начинает ставить тонкого клиента, когда его

'об этом не просят.



'***** Для каждго набора баз (отдела) свой подкаталог, в котором располагаются 1CESCmn, 1cestart.exe,

'***** common_dblist.v8i и этот скрипт Setup 1C8_2.vbs

Const DistrFolderOtdel="Kadry_Zarplata_Buh\"



'Т.к. отключить запуск 1С при выполнении 1CEStart нельзя (а нам нужна только установка), то кроме этого скрипта должна быть

'создана пустая база в каталоге \\Server\Adm_1C_8_2\Null-Base.

'Для надежности в модуле управляемого приложения базы можно прописать процедуру

'

'Процедура ПередНачаломРаботыСистемы(Отказ)

' // Вставить содержимое обработчика.

' ЗавершитьРаботуСистемы(Ложь);

'КонецПроцедуры



'В эту же папку положить файл-пустышку общих баз Zero_dblist.v8i



Const myBase = "\\Server\Adm_1C_8_2\Null-Base"



Dim shortcutTarget : shortcutTarget = DistrFolder & DistrFolderOtdel & "1cestart.exe"

Dim WshShell

Dim strAppData

Dim objFSO

Dim strFolder1C, strFolder1CEStart, strFullFolderName, strFullFileName



'Сначала получим каталог пользователя

Set WshShell = WScript.CreateObject("WScript.Shell")

strAppData = WSHShell.SpecialFolders("AppData")



Set objFSO = CreateObject("Scripting.FileSystemObject")



'Проверим наличие папок у пользователя и при необходимости создадим

strFolder1C = "1C"

strFolder1CEStart = "1CEStart"

strFullFolderName =  objFSO.BuildPath(strAppData, strFolder1C)



If Not objFSO.FolderExists(strFullFolderName) Then

   objFSO.CreateFolder strFullFolderName

End If



strFullFolderName =  objFSO.BuildPath(strAppData & "\" &strFolder1C, strFolder1CEStart)



If Not objFSO.FolderExists(strFullFolderName) Then

   objFSO.CreateFolder strFullFolderName

End If



'Если файл со списокм баз уже есть, то затирать его не будем

strFullFileName = objFSO.BuildPath(strFullFolderName, "ibases.v8i")

If Not objFSO.FileExists(strFullFileName) Then

'Скопируем пустой список общих баз из папки с пустой базой,

'чтобы при запуске не задавались рядовому пользователю вопросы типа "Скопировать список баз из 8.1?"

objFSO.CopyFile  myBase & "\" & "Zero_dblist.v8i", strAppData & "\1C\1CEStart\ibases.v8i", True

Set objFSO = Nothing

End If



'Теперь установка

'Указан параметр nterprise вместо Enterprise, чтобы подавить запуск самой 1С из-за ошибки параметра

'т.к. нужна только инсталляция. Вот такая хитрость.

WshShell.run(shortcutTarget & " nterprise /F " & myBase)

Set WshShell = Nothing