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

Новости • Файловые архивы
Поиск • Активные темы • Топ лист
Правила • Кто в on-line?
Вход • Забыли пароль? • Первый раз на этом сайте? • Регистрация
Компьютерный форум Ru.Board » Компьютеры » Прикладное программирование » Программирование "удобняшек" на VBScript (Часть 2)

Модерирует : ShIvADeSt

 Версия для печати • Подписаться • Добавить в закладки
Страницы: 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

Открыть новую тему     Написать ответ в эту тему

ShIvADeSt



Moderator		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Вопросы, задачи и их решения по VBScript.

 
Мануал (english, 600 Кб). | Зеркало
MS Scripting 5.6 (700 КБ), включает последнюю версию VBS. Владельцам XP/2000(?) должен быть не нужен. | Зеркало
Немного на wikiпедии.
Предыдущие части: 1
 
Смежные темы:
Сценарии Windows
Командная строка, батники\сценарии (bat, cmd)
Скрипты KiXtart
Всего записей: 3956 | Зарегистр. 29-07-2003 | Отправлено: 04:12 12-07-2011 | Исправлено: Smitis, 23:28 26-02-2018
xpin2013



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

Код:
link: http://forum.ru-board.com/topic.cgi?forum=33&topic=11963&start=680#lt
gmt: 20000627132848
 
Ситуация такова. Есть сервак. На нём на двух
 

 
Добавлено:
спасибо
Всего записей: 291 | Зарегистр. 16-01-2014 | Отправлено: 06:04 14-07-2015
fff222fffy1

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

Цитата:
вот, пока делаю так:
Код:
link: http://forum.ru-board.com/topic.cgi?forum=33&topic=11963&start=680#lt
gmt: 20000627132848
 Ситуация такова. Есть сервак. На нём на двух
 Добавлено:
спасибо

Это был мне ответ? Если да - пардон, я его не понял.
Всего записей: 30 | Зарегистр. 07-01-2010 | Отправлено: 10:56 14-07-2015
fff222fffy1

Newbie		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Средствами vbs можно вытащить из pdf его превью?
Всего записей: 30 | Зарегистр. 07-01-2010 | Отправлено: 23:28 29-07-2015
idiMAN

Full Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
fff222fffy1
Без вызова сторонних программ, я думаю не обойтись.
Всего записей: 466 | Зарегистр. 05-05-2003 | Отправлено: 11:04 30-07-2015
king_stiven

Silver Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Всего записей: 2232 | Зарегистр. 17-07-2006 | Отправлено: 14:00 10-08-2015 | Исправлено: king_stiven, 14:09 10-08-2015
shade45

Newbie		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Добрый день форумчане и отличных выходных. Можете подсказать как в вбс собрать данные с названий нескольких файлов и сохранить это в блокнот,  
 
есть несколько файлов где написано имя студента пробел имя группы, нужно имя группы в один блокнот, а имя студента в другой, это реально сделать??
 
Пример файлов - VasyaPupkin vk-013.txt
Всего записей: 1 | Зарегистр. 21-08-2015 | Отправлено: 15:34 21-08-2015
fff222fffy1

Newbie		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Требуется менять дату модификации папок.
Сделал по образцу http://zheleznov.info/change_file_date.htm
но это работает только для файлов, а для папок и ошибок не выдаёт, но и не меняет.
Может есть ещё какой-то способ?
Всего записей: 30 | Зарегистр. 07-01-2010 | Отправлено: 13:46 31-08-2015
gale

Junior Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Метод SetSecurityDescriptor() выполняется 10 секунд. Почему так долго?
Всего записей: 128 | Зарегистр. 09-03-2006 | Отправлено: 12:20 17-09-2015
sundraw

Advanced Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Здравствуйте!
Имеется рабочий скрипт

Код:
 
clipboard = CreateObject("HTMLFile").parentWindow.clipboardData.getData("text")  
file = "C:\1.bat"  
'2 - перезапись, True - создавать, если  
set oFile = CreateObject("Scripting.FileSystemObject").OpenTextFile(file, 2, True)
ofile.WriteLine(clipboard)
ofile.Close
 

 
Файл 1.bat такой

Код:
 
IP.bat 11.11.11.11
 

 
Нужно сделать так, чтоб при копировании  из буфера обмена в файл 1.bat информация вставлялась только вместо цифр, не затрагивая другого текста.
 
P.S. Ещё, как вариант, можно к скопированному из буфера (11.11.11.11) дописывать в начало строки "IP.bat "
Всего записей: 849 | Зарегистр. 15-05-2011 | Отправлено: 18:17 24-09-2015 | Исправлено: sundraw, 18:20 24-09-2015
fff222fffy1

Newbie		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Ну собственно, если я правильно понял задачу, надо вместо

Код:
ofile.WriteLine(clipboard)

Вписать

Код:
ofile.WriteLine("IP.bat " & clipboard)
Всего записей: 30 | Зарегистр. 07-01-2010 | Отправлено: 21:40 24-09-2015
sundraw

Advanced Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
fff222fffy1
Всё работает на отлично. Даже не думал, что так просто. Спасибо.
Всего записей: 849 | Зарегистр. 15-05-2011 | Отправлено: 22:46 24-09-2015
j77



Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Поогите пожалуйста, нужно написать скрипт на VBScript, который будет выполнять:
1. Взять первую строку (целиком) в буфер обмена с удалением из текстового файла.
и еще
2. взять строку в буфер обмена первую с удалением из текстового файла, в строке содержатся данные 127.0.0.1:1111 , и там отрезать 127.0.0.1: оставив лишь только порт, порт скопировать в буфер обмена
Всего записей: 211 | Зарегистр. 11-06-2003 | Отправлено: 15:00 25-09-2015
TYMAH3003

Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Добрый день
Помогите написать скрипт такого типа.  
Создаёт папки исходя из текущей даты на копмьютере в C:\dok\октябрь(имя папки месяц. создаётся папка скриптом исходя из системного  
 
времени)\01-10(эта папка также формируется исходя из сегоднешнего числа)\ папка с менет "10" и "12" создаются просто в корне папки  
 
01-10. В итоге должно получиться так C:\dok\октябрь\01-10\ и в неи 2 папаки 10 и 12.  
И ешё проходит копирование С:\дата\01-10(папка выбирается относительно текужего числа и месяца) и всё содержимое авбранной папки  
 
копируется в папку С:\дата\сегодня . С заменой файлов без запроса.  И в конце просто скрипк выполнен.
Возможно ли такое написать на vbs.
Всего записей: 241 | Зарегистр. 15-03-2009 | Отправлено: 11:06 02-10-2015
cl85

Full Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Здравствуйте.
Выручайте, я не разберусь.
Мне подсказали скрипт, это для перезапуска USB, чтобы не было окон от cmd, но он не до конца отрабатывает.

Код:
Set WshShell = CreateObject("WScript.Shell")
WshShell.Run "devcon disable ""HID\VID_0D9F&PID_0004&REV_0002""", 0
WshShell.Run "devcon enable ""HID\VID_0D9F&PID_0004&REV_0002""", 0
Set WshShell = Nothing

Первая команда отключает, а включать не работает.
Подскажите, как исправить, буду очень благодарен.
 
Всего записей: 411 | Зарегистр. 26-10-2005 | Отправлено: 11:26 10-10-2015
Tilks

Silver Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
cl85
попробуйте ввести третий параметр true, чтобы вторая команда начинала работать, когда первая команда закончена.
WshShell.Run "devcon disable ""HID\VID_0D9F&PID_0004&REV_0002""", 0, true
https://msdn.microsoft.com/en-us/library/d5fk67ky(v=vs.84).aspx
 
Добавлено:
или паузу между командами, чтобы успела выполнится первая.  
WshShell.Sleep 5000
Всего записей: 2688 | Зарегистр. 14-08-2005 | Отправлено: 12:25 10-10-2015
cl85

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

Цитата:
параметр true

Спасибо, всё получилось.
Всего записей: 411 | Зарегистр. 26-10-2005 | Отправлено: 12:46 10-10-2015
gap5



Advanced Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Есть вот такой скрипт, чтобы проверить кто залогинен на удаленном компе (в домене). Как правильно его автоматизировать, чтобы он проходился по всем компам из OU=Computers, сохранял результат в лог, и при этом нормально себя чувствовал, если какой-то комп из списка недоступен в данный момент?
 

Код:
strComputer = InputBox("Getting logged in username on remote computer." & vbCrLf & "Enter computer name:")
'Wscript.Echo "The name you entered was " & strComputer
'WScript.echo "The user name will appear in seconds!"
On Error Resume Next 'continue when an error occurs
Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
If Err.Number <> 0 Then
  Wscript.Echo "There was a problem locating the computer: " & strComputer
  Wscript.quit
End If
On Error GoTo 0
Set colComputer = objWMIService.ExecQuery _
    ("Select * from Win32_ComputerSystem")
 For Each objComputer In colComputer
    Wscript.Echo "Logged-in user: " & objComputer.UserName & vbCrLf & "Computer: " & strComputer
 Next

 
Всего записей: 1070 | Зарегистр. 30-05-2006 | Отправлено: 15:48 14-11-2015
AndVGri

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

Код:
 
Function Avaible(sCompName) 'пингом проверяет доступность компьютера name в сети
    Dim objPing, objStatus, bResult
    On Error Resume Next
     
    bResult = False
    Set objPing = GetObject("winmgmts:{impersonationLevel=impersonate}").ExecQuery("select * from Win32_PingStatus where address = '" & sCompName & "'")
    For Each objStatus in objPing
        If Not (IsNull(objStatus.StatusCode) Or objStatus.StatusCode <> 0) Then  
            bResult = True: Exit For
        End If
    Next
    Avaible = bResult
End Function

Для сканирования OU=Computers нужно знать путь к нему в ActiveDirectory
У нас, например, так

Код:
 
Public Sub ScanComps()
    Dim pComps, pComp
    Set pComps = GetObject("LDAP://OU=Computers,OU=subGroupUnit,OU=groupUnit,DC=domainName,DC=ru")
    For Each pComp In pComps
        WScript.Echo Mid(pComp.Name, 4) 'pComp.Name содержит CN= перед именем.
    Next
End Sub
 
Всего записей: 750 | Зарегистр. 14-12-2005 | Отправлено: 06:55 17-11-2015 | Исправлено: AndVGri, 06:56 17-11-2015
msmih



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

Код:
Private Sub Application_Quit()
    Msgbox "текст"
End Sub

 
При вызове outlook через vbs с помощью такой конструкции все работает

Код:
set sh = createobject("wscript.shell")
sh.run "outlook.exe  /recycle" , 2

 
Но стоит вызвать с параметром свернутого окна, макрос не срабатывает.

Код:
set sh = createobject("wscript.shell")
sh.run "outlook.exe  /recycle" , 7
 

как победить? есть идеи?
Всего записей: 1195 | Зарегистр. 29-01-2006 | Отправлено: 06:50 30-11-2015
korosya1

Newbie		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Подробнее...
Всего записей: 19 | Зарегистр. 26-11-2015 | Отправлено: 18:36 12-12-2015 | Исправлено: korosya1, 09:00 14-12-2015
Открыть новую тему     Написать ответ в эту тему

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

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


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

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

BitCoin: 1NGG1chHtUvrtEqjeerQCKDMUi6S6CG4iC

Рейтинг.ru