}{OTT@БЬ)Ч
-
Постов
62 -
Зарегистрирован
-
Посещение
Тип контента
Профили
Форумы
Блоги
Галерея
События
Сообщения, опубликованные }{OTT@БЬ)Ч
-
-
Проблема решена, ros.pro пробовал твой скрипт, он помог, но скрипт от Гризлика был более идеален, с его скриптом не вылазило окно выбора нажатия "да" либо "отмена", спасибо всем за помощь, сори за копипаст темы http://ulanovka.ru/forum/viewtopic.php?t=389507
-
вот скрины http://pixs.ru/showimage/Tochechniy_2365419_7797675.jpg когда захожу выводит это, а когда нажимаю "да" то выводит это http://pixs.ru/showimage/Tochechniy_5295626_7797716.jpg если "отмена" то все нормально, но нужно сделать так чтобы ничего этого не вылазило
Добавлено спустя 1 минуту 33 секунды:
ros.pro пробовал, все равно вылазит((
-
я не писал этот скрипт, я просто пользователь 1с, и наш сисадмин сделал такую фигню, и теперь при входе на сервер, вылазит только окно 1с, нет ни пуска ничего, тока 1с, это нам сделали чтобы мы якобы неиграли, а мы работать теперь нормально не можем, мне нужно просто чтобы был пуск итд, чтобы все было по умолчанию, а сисадмин намутил, удаляя этот файл .vbs на сервер под своей учеткой вообще не заходит так как скрипт не выполняется(((
-
поменял ничего, захожу на сервер удаленно под своей учеткой, запрашивает установку принтеров, нажимаю "ок" пуска нет и открывается 1с, нажимаю отмена все нормально, я бы мог так оставить, но надо убрать эту штуку(((
-
'********************************************************************
'Запуск 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
-
Спасибо!! Работает) Хм а можно сделать так чтобы, при перезагрузке сервера, при авторизации пользователя он вводил сам логин и пароль, просто убрать незя, безопасность...
-
Помогите написать батник для перезагрузки сервера, чтобы каждое утро он сам перезагружался
-
-
1) 10-11 тысяч рублей
2) фильмы,музыка,интернет
3) периферия не нужна,корпус надо, корпус можно с бп(чтоб подешевле),видеокарту можно встроенную, чтобы потом докупить
4)фактор тишины нет
желательно тут)))www.dns-shop.ru
-
без разницы, на средних чтоб тянули хотяб новые
-
Всем привет, помогите собрать конфу, 12тыс.р, для игр перефирию не нужно
спасибо
Подбираем конфигурацию компьютера в различных ценовых категориях
в Компьютерное железо
Опубликовано
Помогите подобрать конфигурацию...
1)сервер для содержания базы 1с
2)работы
3)базе i3 ил i5 процессора, с SSD диском(обязательные требования)
4)цена (чтобы не тормозило),проц,оператива, винт,видео встроенное, мать, бп, корпус(желательно по комплектующим),+ 1 вариант уже собранного пк
5)фактор тишины не важен
6)без перефирии
Желательно в днс-е http://www.dns-shop.ru/