Перейти к содержанию

}{OTT@БЬ)Ч

Пользователи
  • Постов

    62
  • Зарегистрирован

  • Посещение

Сообщения, опубликованные }{OTT@БЬ)Ч

  1. Помогите подобрать конфигурацию...

    1)сервер для содержания базы 1с

    2)работы

    3)базе i3 ил i5 процессора, с SSD диском(обязательные требования)

    4)цена (чтобы не тормозило),проц,оператива, винт,видео встроенное, мать, бп, корпус(желательно по комплектующим),+ 1 вариант уже собранного пк

    5)фактор тишины не важен

    6)без перефирии

    Желательно в днс-е http://www.dns-shop.ru/

  2. Проблема решена, ros.pro пробовал твой скрипт, он помог, но скрипт от Гризлика был более идеален, с его скриптом не вылазило окно выбора нажатия "да" либо "отмена", спасибо всем за помощь, сори за копипаст темы http://ulanovka.ru/forum/viewtopic.php?t=389507

  3. вот скрины http://pixs.ru/showimage/Tochechniy_2365419_7797675.jpg когда захожу выводит это, а когда нажимаю "да" то выводит это http://pixs.ru/showimage/Tochechniy_5295626_7797716.jpg если "отмена" то все нормально, но нужно сделать так чтобы ничего этого не вылазило

    Добавлено спустя 1 минуту 33 секунды:

    ros.pro пробовал, все равно вылазит((

  4. я не писал этот скрипт, я просто пользователь 1с, и наш сисадмин сделал такую фигню, и теперь при входе на сервер, вылазит только окно 1с, нет ни пуска ничего, тока 1с, это нам сделали чтобы мы якобы неиграли, а мы работать теперь нормально не можем, мне нужно просто чтобы был пуск итд, чтобы все было по умолчанию, а сисадмин намутил, удаляя этот файл .vbs на сервер под своей учеткой вообще не заходит так как скрипт не выполняется(((

  5. поменял ничего, захожу на сервер удаленно под своей учеткой, запрашивает установку принтеров, нажимаю "ок" пуска нет и открывается 1с, нажимаю отмена все нормально, я бы мог так оставить, но надо убрать эту штуку(((

  6. '********************************************************************

    'Запуск 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

  7. 1) 10-11 тысяч рублей

    2) фильмы,музыка,интернет

    3) периферия не нужна,корпус надо, корпус можно с бп(чтоб подешевле),видеокарту можно встроенную, чтобы потом докупить

    4)фактор тишины нет

    желательно тут)))www.dns-shop.ru

×
×
  • Создать...