VBS Скрипт #152517

#0 by Чес

В общем суть задачии такова При входе на сервер терминалов должен срабатывать скрипт vbs с двумя кнопками - 1 запускает 7.7, вторая 8.0 need help!!!

#1 by Волшебник

и в чем проблема?

#2 by Asmody

скрипт с кнопками? ну-ну

#3 by Чес

А проблем в том, что я не знаю, как вывести форму с кнопками. знаю только msgbox

#4 by zadrovets

напишм прогу на чем-нибудь, например Делфи.

#5 by Чес

В жизни всякое бывает - у меня только 2 варианта или скрипт или bat Есть ли вообще варианты по решению этой задачи без использования языков 1. bat файл 2. *.vbs а еще?

#6 by Кочуров

Скрипт с кнопками - это HTML Application Можно и не одну кнопку сделать Пример можешь глянуть у меня на в исходниках

#7 by smaharbA

С кнопками без проблем, неухмыляйся...

#8 by smaharbA

Савсем не обязательно HTA

#9 by Asmody

у меня само слово "скрипт" плохо как-то связуется с "кнопка"

#10 by Кочуров

Я не спорю, что нельзя. Я просто пример привел, который можно посмотреть. А ты свой приведи, пусть народ выбирает, что удобнее

#11 by Волшебник

Встроенный язык 1С - скриптовый язык.

#12 by Чес

Издеваются по очереди... Так все - таки, поможите?

#13 by Asmody

да иди ты! вот ты мне глаза на мир открыл! а паскаль, случаем, не скриптовый язык? :)

#14 by Кочуров

Может, два ярлыка для входа на терминал сделать, и не париться со скриптами?

#15 by Asmody

это слишком просто

#16 by Чес

Ну, никак... Дело в том что наш админ непробиваем в этом плане - лень двигатель прогресса.

#17 by Радиоприемник

if msgbox("если 8, то yes, если 7, то no",vbyesno)=vbyes then msgbox "запускаем восьмерку" else msgbox "запускаем 7" end if

#18 by Чес

Не совсем красиво... Хотелось бы лучше

#19 by Asmody

(18+) с картинками чтоб и с музыкой

#20 by Андрюха

Отличное элегантное решение. По желанию можно добавить второй msgbox с вопросом "Уверен?".

#21 by Чес

Да елки |=========================| | | | |========| |========| | | | v 7.7 | | v 8.8 | | | |========| |========| | | | |=========================| вот такое на vbs возможно?

#22 by smaharbA

Set WSHShell = CreateObject("Wscript.Shell") set oIE=wscript.createobject("InternetExplorer.Application","Evnt_") oIE.Navigate("about:blank") oIE.fullscreen=-1 oIE.Toolbar=0 oIE.Statusbar=0 oIE.resizable=0 oIE.menubar=0 oIE.height=40 oIE.width=350 set oScreen=oIE.document.parentWindow.screen oIE.Top=oScreen.height/2-oIE.height/2 oIE.Left=oScreen.Width/2-oIE.width/2 oie.document.write("<body scroll = 'no' onload='Exit=0;'><div style='position:absolute;top:10px;left:0px;height:" & oIE.height & "px;width:" & oIE.width & "px;scroll;no'><button id=b1 onclick='Exit=1;'>Запуск 1Cv7.7</button><button id=b2 onclick='Exit=2;'>Запуск 1Cv8.0</button><button onclick='Exit=-1;'>Cancel</button></div></body>") oIE.visible=-1 pass="" sExit=0 on error resume next do while oie.document.script.Exit=0 if oie.document.body.onmouseout then oie.document.focus wscript.sleep 100 loop sExit=oie.document.script.Exit select case sExit case -1 'logoff case 1 wshshell.exec("c:program files1cv77.admin.211cv7s.exe") case 2 wshshell.exec("c:program files1cv77.admin1cv7s.exe") end select oIE.Quit on error goto 0 sub Evnt_onquit if sExit=0 then msgbox "Нехорошо!!!" WSHShell.run WScript.Scriptfullname,0,0 end if end sub

#23 by Чес

Спасибо :)... А вы, предыдущие, трепитесь попусту.

#24 by Чес

Только вот вопрос - из за чего эта радость не срабатывает на сервере. Локально - все ОК, а на сервере на кнопки ноль реакции

#25 by smaharbA

Ну они не совсем треплются, есть еще InputBox и Popup (тут 4 варианта можно реализовать, и кога меньше)...

#26 by smaharbA

Надо "about:blank" прописать в надежные узлы в ИЕ

#27 by Чес

прописал - ноль эмоций.

#28 by smaharbA

Все работает, только на сервере проверил...счас проверю под "ограниченным" усером...

#29 by Чес

заработало, с третьего четвертого раза. Спасибо :)

#30 by Чес

заработало, с третьего четвертого раза. Спасибо :)

#31 by romix

Вообще-то правильный подход (если цель была - запретить запуск всего остального, кроме 1С 7.7 и 8.0) - RestrictRun и иже с ним. И 2 ярлыка на рабочий стол/в меню кнопки Пуск.

#32 by Чес

А как сделать кнопку активной по умолчанию

#33 by smaharbA

Завел нового усера, безправного, не правил ИЕ(несчитая что у меня в ГП задано abbout:blank как надежный узел всем) все срабатывает и даже заменив 'logoff на wshshell.exec("logoff") завершает сеанс...

#34 by Чес

- :)

#35 by smaharbA

oie.document.all.b1.focus

#36 by Чес

Спасибо большое.

VBS Скрипт #152517

Похожие вопросы 1С

В этой группе 1С