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

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

   

mozers



Silver Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
mihmig
Незачем грузить рекламу. Открывай сразу https://support.atknet.ru/webuser.phtml?username=1001111&password=111&authform
Подробности - в ПМ.

Всего записей: 2187 | Зарегистр. 03-01-2002 | Отправлено: 23:58 07-07-2009
Postscriptum



Full Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Помогите, плиз - никак не могу разобраться - как на VBScript получить список терминальных (RDP) сессий на сервере?

Всего записей: 464 | Зарегистр. 31-01-2004 | Отправлено: 04:51 08-07-2009
Grisha_Tamashi_SAN



Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
volser
14:15 07-07-2009  
Хотел использовать в скрипте см. выше.
Grisha_Tamashi_SAN
12:04 06-07-2009
Цитата:
Хай, Олл.  
---hid_exec.vbs  
Код:  
Option Explicit  
On Error Resume Next  
 
Dim WshShell  
Set WshShell = WScript.CreateObject ("WScript.Shell")  
 
'Число в скобках равно "количество дисков минус единица"  
Dim TrueCryptCommands(2), TrueCryptCommand  
 
TrueCryptCommands(0) = Chr(34) & "C:\Program Files\TrueCrypt\TrueCrypt.exe" & Chr(34) & " /v \Device\Harddisk1\Partition1 /lS /q background" 'Монтируем том  
TrueCryptCommands(1) = "net share Music$=s:\music /remark:" & """My Misic""" 'Создаем шары  
TrueCryptCommands(2) = "net share dist$=s:\dist /remark:" & """My distribution""" 'Создаем шары  
TrueCryptCommands(3) = WshShell.ExpandEnvironMentStrings("%SystemDrive%") & "\del_temp.bat" 'Удаляем временные файлы  
   
For Each TrueCryptCommand in TrueCryptCommands  
MSGbOX TrueCryptCommand  
   WshShell.Run TrueCryptCommand, 0, vbTrue  
Next  
----hid_exec.vbs  

Всего записей: 44 | Зарегистр. 17-09-2002 | Отправлено: 12:30 08-07-2009
volser

Advanced Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Grisha_Tamashi_SAN
Вот в нете нашел, может поможет.
Подробнее...

Всего записей: 713 | Зарегистр. 31-03-2006 | Отправлено: 12:39 08-07-2009
Grisha_Tamashi_SAN



Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
volser
Читал я про эту функцию, но применить не получилось, вот например данный код выдает
Ошибку о "не соответствии типа 'Environ' "
 

Код:
EnvString = Environ("Temp")
     MsgBox EnvString
 

Всего записей: 44 | Зарегистр. 17-09-2002 | Отправлено: 11:45 10-07-2009
TiR



Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Есть у меня скрипт на VBS, который вызывает команду ROUTE ADD с параметрами, чтобы добавить в таблицу маршрутизации определенные IP, которые определяются в этом же VBS. Ну не суть. Суть в том что в Windows 7 (в Vista наврное тоже) команда ROUTE требует чтобы ее запустили от имени администратора иначе ничего не добавляет.
 
Пользователь, который запускает скрипт, естественно в группе администраторов и сам администратор, но W7 этого мало. Нужно чтобы ROUTE было вызвано от Администратора.
 
Если отключить UAC - то все работает и так. Но хотелось бы при влюченном UAC чтобы вплывало предупреждение и при согласии - выполнялась ROUTE.  
 
W7 не предлагает возможности поставить для ROUTE или wscript - запускать всегда от имени Админа.
 
Есть идеи?

Всего записей: 106 | Зарегистр. 22-02-2004 | Отправлено: 10:27 11-07-2009
mozers



Silver Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Grisha_Tamashi_SAN volser
Цитата:
Environ
Нет такой функции в WSH.
Используйте свойство WshShell.Environment (если метод ExpandEnvironmentStrings чем то не устраивает).
И почитайте справку.
 
TiR
runas

Всего записей: 2187 | Зарегистр. 03-01-2002 | Отправлено: 13:40 12-07-2009
TiR



Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
mozers
А чем мне поможет RunAs? RunAs позволяет запустить что-то от имени другого пользователя, а мне надо от имени этого же, но с правами администратора и чтобы пароль не спрашивал - только чтобы UAC окно выдал

Всего записей: 106 | Зарегистр. 22-02-2004 | Отправлено: 15:51 12-07-2009
GRom V

Full Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
Есть такая весЧ...обьясните ктонить - вместо 1мег закачивается 177кб и сообщение что файл закачан! Можно ли как то это исправить?
 
Set oXMLHTTP = CreateObject("MSXML2.XMLHTTP")
'подключение
oXMLHTTP.Open "GET", "http://www.script-coding.info/ocs_last.dos.zip", 0
'получение файла
oXMLHTTP.Send
Set oADOStream = CreateObject("ADODB.Stream")
oADOStream.Mode = 3 'разрешение на чтение и запись
oADOStream.Type = 1 'тип данных - Binary
oADOStream.Open
oADOStream.Write oXMLHTTP.responseBody
'сохранение (с перезаписью файла при необходимости)
oADOStream.SaveToFile "D:\Temp\ocs_last.dos.zip", 2
MsgBox "Файл D:\Temp\ocs_last.dos.zip сохранён."

Всего записей: 466 | Зарегистр. 31-10-2006 | Отправлено: 07:58 14-07-2009
Grisha_Tamashi_SAN



Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
mozers
Спасибо, дружище.

Всего записей: 44 | Зарегистр. 17-09-2002 | Отправлено: 15:11 14-07-2009
NOwlar



Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
GRom V
Походу недокачанный файлик у тебя в кэше IE засел. Удали оттудова, а так код рабочий.

Всего записей: 170 | Зарегистр. 25-01-2006 | Отправлено: 15:48 14-07-2009
Grisha_Tamashi_SAN



Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
TiR
IMHO если идти по аналогии с Вистой, то Вам  поможет это  
ElevateWSHScript.inf - Установить inf из архива, в результате получите  
   
 
Добавлено:
TiR
Либо (вариант 2) создать ярлык, например wscript.exe c:\_test.vbs, там этот пункт меню будет активным.

Всего записей: 44 | Зарегистр. 17-09-2002 | Отправлено: 16:36 14-07-2009
TiR



Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Grisha_Tamashi_SAN
спасибо. попробую

Всего записей: 106 | Зарегистр. 22-02-2004 | Отправлено: 21:33 14-07-2009
mozers



Silver Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
GRom V NOwlar
Цитата:
в кэше IE засел. Удали оттудова, а так код рабочий.
C диагнозом - согласен. Но код, в котором напрочь отсутсвует проверка и который выдает "сохранён" при любом результате "рабочим" назвать сложно. Обычно проверку вешают на эвент onreadystatechange и когда readyState будет равно 4, а status = 200 запускают сохранение данных.

Всего записей: 2187 | Зарегистр. 03-01-2002 | Отправлено: 21:13 15-07-2009
NOwlar



Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
mozers
Это имеет смысл, если выбран асинхронный метод работы. А тут он вернётся из send(), когда запрос уже будет завершён. Но, статус, согласен, перед записью проверить будет не лишним.
 
Добавлено:
Кстати, файл по коду сохраняется всегда, так что последний мессэдж "Сохранён..." вполне оправдан. Правда, что будет внутри файла - вещь неопределённая

Всего записей: 170 | Зарегистр. 25-01-2006 | Отправлено: 21:22 15-07-2009
mozers



Silver Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
NOwlar
Цитата:
Это имеет смысл, если выбран асинхронный метод работы. А тут он вернётся из send(), когда запрос уже будет завершён
Логично, согласен.
Кстати, чтобы из кеша не тянул можно добавить к запросу заголовок
Код:
req.setRequestHeader("If-Modified-Since", "Sat, 1 Jan 2000 00:00:00 GMT");
Я только этим и спасся. Решение нашел тут.

Всего записей: 2187 | Зарегистр. 03-01-2002 | Отправлено: 17:49 16-07-2009
x52deus



Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Каким образом можно получить версию файла, используя VBS?
 

Всего записей: 49 | Зарегистр. 01-02-2007 | Отправлено: 14:36 20-07-2009
violant



Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Подскажите как получить время с домен контроллера Windows 2003 из Vbscript?

Всего записей: 364 | Зарегистр. 08-11-2006 | Отправлено: 16:04 20-07-2009
igor_andreev

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

Цитата:
Каким образом можно получить версию файла, используя VBS?

 

Код:

Set objFSO = CreateObject("Scripting.FileSystemObject")
Wscript.Echo objFSO.GetFileVersion("c:\windows\system32\shell32.dll")

Всего записей: 1704 | Зарегистр. 08-12-2004 | Отправлено: 16:08 20-07-2009
Serhi84

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

Код:
set fso = createobject("scripting.filesystemobject")  
set sha = createobject("shell.application")  
set dir = sha.namespace("C:\Backup")  
set arr = dir.items  
arr.filter 192, "*.txt"  
for i = 0 to arr.count - 1  
   if i = 0 then
      set fnewest = fso.getfile(arr.item(i).path)
   else
      if fnewest.datecreated < fso.getfile(arr.item(i).path).datecreated then  
         set fnewest = fso.getfile(arr.item(i).path)  
      end if  
   end if  
next  

 
Нашел этот скрипт на предыдущих страницах. Вопрос - как сделать так, чтобы поиск по маске проходил и во всех подпапках? Если в цикле проверяю на isfolder=true, то он выводит только файлы из подпапок, причем приходится создавать новый массив arr1. Думал поможет маска 160 (128+32), но так не срабатывает

Всего записей: 45 | Зарегистр. 31-01-2008 | Отправлено: 07:54 22-07-2009 | Исправлено: Serhi84, 07:58 22-07-2009
   

Страницы: 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