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

НовостиФайловые архивы
ПоискАктивные темыТоп лист
ПравилаКто в 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

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

Всего записей: 601 | Зарегистр. 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'ку до нужной кондиции с кнопками и прочей мешурой.

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

Full Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Да,в том то и дело, что не wav, а АС3... И скорее всего надо Ligt Alloy

Всего записей: 601 | Зарегистр. 09-06-2008 | Отправлено: 15:59 31-01-2011
ComradG



Silver Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
cambit
дядь, ты мне параметры командной строки элоя дай, тогда будет о чем говорить.

Всего записей: 2038 | Зарегистр. 05-07-2008 | Отправлено: 16:12 31-01-2011
cambit

Full Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
ComradG
 
F:\Soft\LAP\LA.exe 1.ac3  
пожалуйста.
Тут по ходу получается, что сообщение выскакивает после проигрывания файла (в предложенном примере) или я ошибаюсь?

Всего записей: 601 | Зарегистр. 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

Всего записей: 2038 | Зарегистр. 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)
вообще можно удалить? для этого как минимум нужны права системы.

Всего записей: 2038 | Зарегистр. 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
чего-то пропустил, а в чем, собственно, проблема?

Всего записей: 2038 | Зарегистр. 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

Всего записей: 2038 | Зарегистр. 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

Рейтинг.ru