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

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

   

alexio



Full Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
фух победил всем спасибо  
"начинающий "

Всего записей: 532 | Зарегистр. 25-11-2003 | Отправлено: 15:54 03-04-2008
elimS

Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
как получить доменное имя по IP, аналог на php gethostbyname .  
И наоборот IP по доменному имени

Всего записей: 7 | Зарегистр. 09-02-2008 | Отправлено: 13:34 05-04-2008
loplop777

Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Запуск программы и ее использование во время загрузки системы(конкретная реализация: с помощью программы Everest сделать отчет об установленном ПО, разметки жеского диска и  железе для каждого компьютера)то знает как это делать подскажите!

Всего записей: 7 | Зарегистр. 21-03-2008 | Отправлено: 09:34 07-04-2008
ViSiToR



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

Цитата:
с помощью программы Everest сделать отчет об установленном ПО, разметки жеского диска и  железе для каждого компьютера

 
С FAQ'а в справке Everest:
 

Цитата:
3. Is it possible to create reports automatically using command-line options?  
 
Only EVEREST Corporate Edition supports command-line options. List of them can be reviewed in main menu / Help / Command-line Options. Full list of command-line options with explanation is available in the EVEREST Manual. Using command-line options it is possible to create reports with custom layout in any of the supported report formats. Created reports can be saved to file, inserted to SQL database, sent in e-mail or uploaded to a FTP server.  

 
Т.е корпоративный Everest  поддерживает параметры ком. строки, И тогда из VBS-скрипта можно будет сделать отчёт...

----------
ViSiToR a.k.a CreatoR
CreatoR это не ник, CreatoR это стиль жизни!

Всего записей: 3251 | Зарегистр. 01-04-2006 | Отправлено: 10:27 07-04-2008
meskalin13

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

Всего записей: 51 | Зарегистр. 24-08-2005 | Отправлено: 10:37 07-04-2008
Nervniy2000



Newbie
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
meskalin13
1. не та ветка
2. политики \ кофигурация компьютера \ конфигурация Windows \ сценарии: запуск завершение

Всего записей: 30 | Зарегистр. 21-02-2006 | Отправлено: 13:11 07-04-2008 | Исправлено: Nervniy2000, 13:12 07-04-2008
meskalin13

Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Сорри что не в ту ветку.  
Скрипт там и лежит кстати.  
Проблема в следущем: есть скрипт который просматривает диски, папки и подпапки, и ищет заданный по имени фаил, а потом его удаляет. И есть папки на которые есть только права SYSTEM и локальные админы, эти папки остались еще со времен когда у нас не было домена, т.е. они были созданы когда комп еще в рабочей группе был. В паре таких папок есть файлы под удаление. И когда скрипт доходит то этои папки то пишет что нет прав доступа к обьекту (файлу).

Всего записей: 51 | Зарегистр. 24-08-2005 | Отправлено: 14:48 07-04-2008 | Исправлено: meskalin13, 14:49 07-04-2008
Liderdomofon

Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Спецы, я борюсь за то, чтоб нам в офисе разрешили пользоваться аькой. Начальство против, но мы забились что если я сделаю ЭТО то будет разрешено. Так вот, я хочу , чтобы лог аськи печатался на сетевом принтере, самом собой автоматически, например, раз в неделю, и при этом, отпечатанное бы бэкапилось скажем в зип архив в имени период, а журнал очищался. Если шеф увидит, что я реально ему могу предоставлять отчёты по аське с каждого компутера в сетке, то все будет нормально, и народ наш весь за - все заняты сугубо работой. Помогите, пожалуйста, тк сам не догоняю как вообще это можно сделать.

Всего записей: 147 | Зарегистр. 18-11-2006 | Отправлено: 23:37 07-04-2008
loplop777

Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Спасибо за помощь ViSiToR!Есть еще одна задача-сделать запрет на прогу любую!выгрузить я сделал а вот запрет не могу поставить!Помоги!

Всего записей: 7 | Зарегистр. 21-03-2008 | Отправлено: 09:57 08-04-2008
ViSiToR



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

Цитата:
сделать запрет на прогу любую

Запрет на что? на запуск? это нужно копать системную безопасность, админские права тут в любом(?) случае нужны.

----------
ViSiToR a.k.a CreatoR
CreatoR это не ник, CreatoR это стиль жизни!

Всего записей: 3251 | Зарегистр. 01-04-2006 | Отправлено: 10:21 08-04-2008
loplop777

Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Например на запрет игры косынка!
 
Добавлено:
Например на запрет запуска игры косынка!

Всего записей: 7 | Зарегистр. 21-03-2008 | Отправлено: 10:38 08-04-2008
ViSiToR



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

Цитата:
запрет запуска игры косынка

Единственное что приходит в голову, это закрытие процесса при его появлении, не красиво, но другие методы мне не известны (хотя наверняка они есть):
 

Код:
Proc_Name = "sol.exe"
 
Set oWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")
 
Set oMonitoredProc = oWMIService.ExecNotificationQuery("select * from __instancecreationevent " _
    & " within 1 where TargetInstance isa 'Win32_Process'")
 
Do While True
    Set oLatestProcess = oMonitoredProc.NextEvent
    
    If oLatestProcess.TargetInstance.Name = Proc_Name Then oLatestProcess.TargetInstance.Terminate
Loop


----------
ViSiToR a.k.a CreatoR
CreatoR это не ник, CreatoR это стиль жизни!

Всего записей: 3251 | Зарегистр. 01-04-2006 | Отправлено: 13:06 08-04-2008
loplop777

Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Большое спасибо ViSiToR!во время входа в систему прописывать в файл:время входа, дата входа,веремя и дата выхода!Вот именно про время и дату я ниче не знаю а мне надо сделать отет по этому!если знаешь помоги!Сразу спасибо!

Всего записей: 7 | Зарегистр. 21-03-2008 | Отправлено: 09:28 09-04-2008
Sun Ray

Full Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
VBS: download file
 
 
Подскажите как можно с сана скачать файлик? Там предварительно нужно региться, простые довлоадменеджеры тоже не справляются, решил это дело сделать скриптом, вроде этого...

Код:
    strFileURL = "http://cds.sun.com/file.iso/"
    strHDLocation = "C:\file.iso"
    Set objXMLHTTP = CreateObject("MSXML2.XMLHTTP")
     objXMLHTTP.open "GET", strFileURL, false
    objXMLHTTP.send()
     If objXMLHTTP.Status = 200 Then
      Set objADOStream = CreateObject("ADODB.Stream")
      objADOStream.Open
      objADOStream.Type = 1 'adTypeBinary
       objADOStream.Write objXMLHTTP.ResponseBody
      objADOStream.Position = 0    'Set the stream position to the start
       Set objFSO = Createobject("Scripting.FileSystemObject")
        If objFSO.Fileexists(strHDLocation) Then objFSO.DeleteFile strHDLocation
      Set objFSO = Nothing
       objADOStream.SaveToFile strHDLocation
      objADOStream.Close
      Set objADOStream = Nothing
    End if
     Set objXMLHTTP = Nothing
 

и тоже не выходит, файл не качается. Как скачать?

Всего записей: 461 | Зарегистр. 17-03-2006 | Отправлено: 15:56 14-04-2008
igor_andreev

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

Цитата:
решил это дело сделать скриптом

vbs-ом качать большие бинарные файлы - не самая лучшая идея

Цитата:
простые довлоадменеджеры тоже не справляются

Консольные wget или curl тебе подойдут? Я интереса ради зарегился на sun.com, получил длиннющую ссылку на скачивание исошника и запустил батник из двух строчек

Код:

REM сохранил печеньки в файл wget-cookie.txt
wget -O - --no-check-certificate --keep-session-cookies --save-cookies wget-cookie.txt --post-data "IDToken1=USERNAME&IDToken2=PASSWORD" "https://portal.sun.com/amserver/UI/Login?org=self_registered_users&goto=/portal/dt&gotoOnFail=/portal/dt?error=true"
 
REM и отдал ссылку wget-у
wget -O sol-10.zip -с --load-cookies wget-cookie.txt "http://192.18.108.228/ECom/тут_длиннющая ссылка/sol-10-u4-ga-sparc-v1-iso.zip"

Со свистом, если это выражение применимо к скорости моего провайдера , началась закачка
   
 
 
Добавлено:
Вместо USERNAME и PASSWORD соответственно твой логин и пароль

Всего записей: 1705 | Зарегистр. 08-12-2004 | Отправлено: 17:53 14-04-2008 | Исправлено: igor_andreev, 18:00 14-04-2008
Vby



Advanced Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Подскажите как на VBS результат выполнения внешней программы занести в переменную?
например,
....бла бла бла
.....
......
Set WshShell = CreateObject("WScript.Shell")  
Set WshExec = WshShell.Exec("ping.exe 10.10.10.10")
Wscript.Echo вот сюда результат выполнения пинга
 
Надеюсь понятно объяснил

Всего записей: 781 | Зарегистр. 16-09-2004 | Отправлено: 18:59 22-04-2008
igor_andreev

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

Код:

Set oShell = CreateObject("WScript.Shell")
Set oExec = oShell.Exec("ping -n 1 192.168.1.1")
Do While oExec.Status = Running  
  WScript.Sleep 100  
Loop
MsgBox oExec.ExitCode  


Всего записей: 1705 | Зарегистр. 08-12-2004 | Отправлено: 19:14 22-04-2008
Integer27h



Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
Подскажите пример кода:
 
1. Если пользователь AD является членом некой группы, то не выполнять действие.
2. Если компьютер AD является членом некой группы, то не выполнять действие.
3. Добавление в локальную группу администраторы групп из AD

Всего записей: 201 | Зарегистр. 11-09-2006 | Отправлено: 19:48 22-04-2008 | Исправлено: Integer27h, 19:49 22-04-2008
Vby



Advanced Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
igor_andreev
Это немного не то, что нужно, в твоем примере возвращаеется код завершения программы, а нужен результат выполнения, для пинга что-то типа того:
Обмен пакетами с server [10.20.100.100] по 32 байт:
 
Ответ от 10.20.100.100: число байт=32 время<1мс TTL=128
Ответ от 10.20.100.100: число байт=32 время<1мс TTL=128
Ответ от 10.20.100.100: число байт=32 время<1мс TTL=128
Ответ от 10.20.100.100: число байт=32 время<1мс TTL=128
 
Статистика Ping для 10.20.100.100:
    Пакетов: отправлено = 4, получено = 4, потеряно = 0 (0% потерь),
Приблизительное время приема-передачи в мс:
    Минимальное = 0мсек, Максимальное = 0 мсек, Среднее = 0 мсек

Всего записей: 781 | Зарегистр. 16-09-2004 | Отправлено: 10:33 23-04-2008 | Исправлено: Vby, 10:34 23-04-2008
efrik

Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Set StdOut = objShell.Exec("ping.exe computer ").Stdout

Всего записей: 8 | Зарегистр. 23-08-2005 | Отправлено: 11:51 23-04-2008
   

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