'******************************************************************** 'Запуск 1С Предприятие 8.2 'с окном выбора баз из списка ' '******************************************************************** const HKEY_CURRENT_USER = &H80000001 const HKEY_LOCAL_MACHINE = &H80000002 Const OverwriteExisting = True Const ForReading = 1 On Error Resume Next Set objFSO = CreateObject("Scripting.FileSystemObject") Set WSHNetwork = WScript.CreateObject("WScript.Network") Set WshShell = CreateObject("WScript.Shell") Do While WSHNetwork.username = "" WScript.Sleep 250 Loop strComputer = WshNetwork.ComputerName Set objEnv = WshShell.Environment("process") strUserName = WshNetwork.UserName strUserProfile = WshShell.ExpandEnvironmentStrings("%userprofile%") strFolderName = strUserProfile & "\Application Data\1C\1CEStart\" If objFSO.FolderExists(strFolderName) Then else objFSO.CreateFolder(strUserProfile & "\Application Data\1C") objFSO.CreateFolder(strUserProfile & "\Application Data\1C\1CEStart") end if objFSO.CopyFile "c:\install\default\ibases.v8i" , strFolderName, OverwriteExisting if msgbox ( "Уважаемые пользователи!" & vbnewline &_ "Перед запуском 1C проверьте наличие требуемых для работы принтеров." & vbnewline &_ "Нажмите OK для открытия окна установки принтеров", 1, "Установка принтеров")=1 then wshShell.Run "c:\print\printexplorer.exe /n,/root,c:\print\Printers.{2227A280-3AEA-1069-A2DE-08002B30309D}", 1 end if Set colGroups = GetObject("WinNT://" & strComputer & "") colGroups.Filter = Array("group") For Each objGroup In colGroups For Each objUser in objGroup.Members if objUser.Name = strUserName Then ' Wscript.Echo objGroup.Name ' Wscript.Echo objUser.Name Select Case objGroup.name case "Administrators" wshShell.Run "%systemdrive%\windows\explorer.exe", 1, FALSE Case "1C_Users" If objFSO.FolderExists(strFolderName) Then else objFSO.CreateFolder(strUserProfile & "\Application Data\1C") objFSO.CreateFolder(strUserProfile & "\Application Data\1C\1CEStart") end if objFSO.CopyFile "c:\install\default\Extended\ibases.v8i" , strFolderName, OverwriteExisting wshShell.Run """%systemdrive%\Program Files\1cv82\8.2.14.540\bin\1cv8.exe"" enterprise /DisableStartUpMessages", 1, FALSE Case Else End Select end if Next Next Wscript.Quit(0) При входе на сервер сразу запускается 1с, нет ни пуска ни рабочего стола, при удалении файла скрипта на сервер вообще не заходит, выкидывает после авторизации, как его можно поменять или изменить чтобы запускался и пуск и рабочий стол??? Heeeelp=D