Программирование "удобняшек" на VBScript - [100] :: Прикладное программирование :: Компьютерный форум Ru.Board

Перейти из форума на сайт.

Новости • Файловые архивы
Поиск • Активные темы • Топ лист
Правила • Кто в on-line?

Вход • Забыли пароль? • Первый раз на этом сайте? • Регистрация

Компьютерный форум Ru.Board » Компьютеры » Прикладное программирование » Программирование "удобняшек" на VBScript

Модерирует : ShIvADeSt
ShIvADeSt (12-07-2011 15:12): http://forum.ru-board.com/topic.cgi?forum=33&topic=11963#1	Версия для печати • Подписаться • Добавить в закладки
Страницы: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112

quakerock Newbie	Редактировать \| Профиль \| Сообщение \| Цитировать \| Сообщить модератору AndVGri Спасибо за ссылочки.
	Всего записей: 29 \| Зарегистр. 08-07-2009 \| Отправлено: 08:29 27-01-2011

BullVinkL

Newbie

Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

Столкнулся с проблемой сохранения из xls в csv с разделителем "точка с запятой"

Код:

...
Set objWorkSheet4 = objWorkBook.Sheets.Item(4)
objWorkSheet4.SaveAs("D:\vbs\result.csv"), 6
...

Пробую сохранить, на выходе получаю csv с разделителем "запятая"
Если сохранять вручную из экселя - разделитель "точка с запятой".
Может кто-нибудь сталкивался с подобным??

Всего записей: 10 | Зарегистр. 11-07-2007 | Отправлено: 16:46 27-01-2011

cambit

Advanced Member

Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

Уважаемые Знатоки, не могли бы Вы помочь написать vbs скрипт, который бы запускал на воспроизведение аудиофайл проигрывателем (например light alloy) и выдавал mesagebox c некоторым текстом и кнопкой "Отмена", при нажатии на которую производилось закрытие плеера. А если кнопка не нажималась, то этот mesagebox исчез бы сам после закрытия плеера вручную.

Всего записей: 620 | Зарегистр. 09-06-2008 | Отправлено: 13:00 31-01-2011

ComradG

Silver Member

Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

cambit
любым? ты б лучше написал какой формат аудио то. wav'ки можно и так воспроизвести:
Код:

Set objShell = CreateObject("WScript.Shell")

strSound = "C:\WINDOWS\Media\ding.wav"
strAbout = "Файл:" & Chr(10) & strSound
strCommand = "sndrec32 /play /close " & Chr(34) & strSound & Chr(34)

objShell.Run strCommand, 0, False
WScript.Sleep 1000

MsgBox strAbout, 32, "Дарова!!!"

работаешь напильником и доводишь vbs'ку до нужной кондиции с кнопками и прочей мешурой.

Всего записей: 2041 | Зарегистр. 05-07-2008 | Отправлено: 14:49 31-01-2011 | Исправлено: ComradG, 14:49 31-01-2011

cambit Advanced Member	Редактировать \| Профиль \| Сообщение \| Цитировать \| Сообщить модератору Да,в том то и дело, что не wav, а АС3... И скорее всего надо Ligt Alloy
	Всего записей: 620 \| Зарегистр. 09-06-2008 \| Отправлено: 15:59 31-01-2011

ComradG Silver Member	Редактировать \| Профиль \| Сообщение \| Цитировать \| Сообщить модератору cambit дядь, ты мне параметры командной строки элоя дай, тогда будет о чем говорить.
	Всего записей: 2041 \| Зарегистр. 05-07-2008 \| Отправлено: 16:12 31-01-2011

cambit Advanced Member	Редактировать \| Профиль \| Сообщение \| Цитировать \| Сообщить модератору ComradG F:\Soft\LAP\LA.exe 1.ac3 пожалуйста. Тут по ходу получается, что сообщение выскакивает после проигрывания файла (в предложенном примере) или я ошибаюсь?
	Всего записей: 620 \| Зарегистр. 09-06-2008 \| Отправлено: 16:47 31-01-2011 \| Исправлено: cambit, 17:18 31-01-2011

ComradG

Silver Member

Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

Код:

Const btnYes = 6
Const bntNo = 7

Set objShell = CreateObject("Wscript.Shell")

intReturn = objShell.Popup("Хотите прослушать мелодию?", 10, "Light Alloy", 36)

If intReturn = btnYes Then
strSound = "F:\Soft\LAP\1.ac3"
strCommand = "F:\Soft\LAP\LA.exe" & Chr(34) & strCound & Chr(34)
objShell.Run strCommand, 0, False
WScript.Sleep 50000
Wscript.Quit
Else
MsgBox "Операция отменена пользователем.", 48, "Отмена"
Wscript.Quit
End If

Всего записей: 2041 | Зарегистр. 05-07-2008 | Отправлено: 20:27 31-01-2011 | Исправлено: ComradG, 00:01 01-02-2011

WSQ2

Newbie

Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

Подскажите пожалуйста, как скриптом настроить состав группы "пользователи"?
не могу скриптом удалить из группы "Пользователи" группы
NT AUTHORITY\ИНТЕРАКТИВНЫЕ (S-1-5-4)
NT AUTHORITY\Прошедшие проверку (S-1-5-11)

и добавить другую группу из домена.

для удаления пытаюсь обратиться к группам
Set objGroupForDel = GetObject("WinNT://" & strComputer & "/NT AUTHORITY\ИНТЕРАКТИВНЫЕ,group")
или
Set objGroupForDel = GetObject("WinNT://{S-1-5-19},group")
получаю "не найдено имя группы".

При этом пользователя из группы "Пользователи" удаляет нормально
Цитата:

Set objNetwork = CreateObject("Wscript.Network")
strComputer = objNetwork.ComputerName
Set objGroupUsers = GetObject("WinNT://" & strComputer & "/Пользователи,group")
Set objUser = GetObject("WinNT://" & strComputer & "/Test_user,user")
objGroupUsers.Remove(objUser.ADsPath)

как правильно зачистить группу "Пользователи"??

Всего записей: 9 | Зарегистр. 21-11-2008 | Отправлено: 00:43 01-02-2011 | Исправлено: WSQ2, 00:54 01-02-2011

ComradG

Silver Member

Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

WSQ2
кхе, кхе! простите, уважаемый, но с чего вы взяли, что
Цитата:

NT AUTHORITY\ИНТЕРАКТИВНЫЕ (S-1-5-4)
NT AUTHORITY\Прошедшие проверку (S-1-5-11)

вообще можно удалить? для этого как минимум нужны права системы.

Всего записей: 2041 | Зарегистр. 05-07-2008 | Отправлено: 12:33 01-02-2011

ChiStiK_XaSeR Newbie	Редактировать \| Профиль \| Сообщение \| Цитировать \| Сообщить модератору Мне хоть кто-нибудь поможет?....Сомневаюсь...
	Всего записей: 9 \| Зарегистр. 20-01-2011 \| Отправлено: 15:17 01-02-2011

ComradG Silver Member	Редактировать \| Профиль \| Сообщение \| Цитировать \| Сообщить модератору ChiStiK_XaSeR чего-то пропустил, а в чем, собственно, проблема?
	Всего записей: 2041 \| Зарегистр. 05-07-2008 \| Отправлено: 15:46 01-02-2011

WSQ2

Newbie

Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

Цитата:

WSQ2
кхе, кхе! простите, уважаемый, но с чего вы взяли, что
Цитата:NT AUTHORITY\ИНТЕРАКТИВНЫЕ (S-1-5-4)
NT AUTHORITY\Прошедшие проверку (S-1-5-11)

вообще можно удалить? для этого как минимум нужны права системы.

объясню ситуацию: после установку Windows XP и ввода в домен в группе пользователи появляются три группы:
NT AUTHORITY\ИНТЕРАКТИВНЫЕ (S-1-5-4)
NT AUTHORITY\Прошедшие проверку (S-1-5-11)
Domain Users

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

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

Только скриптом удалить группы не получается.

Всего записей: 9 | Зарегистр. 21-11-2008 | Отправлено: 18:26 01-02-2011 | Исправлено: WSQ2, 18:35 01-02-2011

Accessor Silver Member	Редактировать \| Профиль \| Сообщение \| Цитировать \| Сообщить модератору WSQ2 А я бы этот вопрос урегулировал на уровне Групповой политики. Параметр "интерактивный вход" именно для этого и предназначен.
	Всего записей: 2863 \| Зарегистр. 31-10-2003 \| Отправлено: 05:27 02-02-2011

ComradG Silver Member	Редактировать \| Профиль \| Сообщение \| Цитировать \| Сообщить модератору del
	Всего записей: 2041 \| Зарегистр. 05-07-2008 \| Отправлено: 12:22 02-02-2011 \| Исправлено: ComradG, 12:53 02-02-2011

GRom V Full Member	Редактировать \| Профиль \| Сообщение \| ICQ \| Цитировать \| Сообщить модератору Уважаемые VBSисты! Мне нужно чтоб после 23:00 комп выключался... ПодсАбите плизз...как моно?
	Всего записей: 466 \| Зарегистр. 31-10-2006 \| Отправлено: 03:10 05-02-2011

Rush

Уже за тридцать...

Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

GRom V
А не проще назначить задание с на 23:00 с командной строкой такого вида?

Код:

"shutdown -s -t 0"

Ну а если надо обязательно скриптом:

Код:

Option Explicit

Dim ms, t

If WScript.Arguments.Count > 0 Then
If WScript.Arguments.Named.Exists("t") Then
If WScript.Arguments.Named.Exists("s") Then
ms = WScript.Arguments.Named.Item("s")
Else
ms = 1000
End If
t = WScript.Arguments.Named.Item("t")
Do While True
If Time >= CDate(t) Then
CreateObject("Wscript.Shell").Exec("shutdown -s -t 0")
WScript.Quit
End If
WScript.Sleep CLng(ms)
Loop
End If
End If

Можно добавить в автозагрузку так:

Код:

wscript path.vbs /t:23:00 /s:2000

Или можно с секундами, например:

Код:

wscript path.vbs /t:14:45:30

Параметр /s задает период слежения в миллисекундах. Не обязателен - по умолчанию стоит 1 секунда.

Всего записей: 3551 | Зарегистр. 20-11-2003 | Отправлено: 10:15 05-02-2011

GRom V Full Member	Редактировать \| Профиль \| Сообщение \| ICQ \| Цитировать \| Сообщить модератору Rush Спасибо, нон нужно чтоб запущенНый скрипт, если больше 23:00 будет вырубать комп
	Всего записей: 466 \| Зарегистр. 31-10-2006 \| Отправлено: 13:07 05-02-2011

Rush

Уже за тридцать...

Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

GRom V

Цитата:

Спасибо, нон нужно чтоб запущенНый скрипт, если больше 23:00 будет вырубать комп

Что-то я не соображу - тебе не все понятно? Если я ошибаюсь, дальше читать не обязательно.

--------
Скрипт так и делает. Запускай из командной строки:

Код:

wscript "path.vbs" /t:23:00:01 /s:3000

вместо path.vbs пропиши путь к скрипту, который создашь в нужном тебе месте.

Всего записей: 3551 | Зарегистр. 20-11-2003 | Отправлено: 14:39 05-02-2011

GRom V Full Member	Редактировать \| Профиль \| Сообщение \| ICQ \| Цитировать \| Сообщить модератору Rush сори втупил! Спасибо все работает!
	Всего записей: 466 \| Зарегистр. 31-10-2006 \| Отправлено: 16:01 05-02-2011

Страницы: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112

Компьютерный форум Ru.Board » Компьютеры » Прикладное программирование » Программирование "удобняшек" на VBScript
ShIvADeSt (12-07-2011 15:12): http://forum.ru-board.com/topic.cgi?forum=33&topic=11963#1

Реклама на форуме Ru.Board.

Powered by Ikonboard "v2.1.7b" © 2000 Ikonboard.com
Modified by Ru.B0ard
© Ru.B0ard 2000-2024

BitCoin: 1NGG1chHtUvrtEqjeerQCKDMUi6S6CG4iC