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

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

   

Muznark



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

Всего записей: 518 | Зарегистр. 16-11-2004 | Отправлено: 01:48 09-01-2009 | Исправлено: Muznark, 22:02 10-01-2009
alxkk

Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Хочу создать файл с названием системного времени.
12-21-08.txt к примеру
делаю Time()
в ответ все через двоеточие,  винда такое имя не создает.
Как или двоеточие переделать в тире или еще можно вытянуть время??

Всего записей: 27 | Зарегистр. 19-11-2004 | Отправлено: 13:04 12-01-2009
Zeesh



Silver Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
alxkk
Формат времени берется из региональных настроек системы. Для русской версии разделитель — двоеточие.

Всего записей: 2350 | Зарегистр. 27-07-2006 | Отправлено: 14:20 12-01-2009
ViSiToR



Silver Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
alxkk 13:04 12-01-2009
Цитата:
Как или двоеточие переделать в тире или еще можно вытянуть время?

Предлагаю функцию для замены неподдерживаемых символов в имени файла:
 

Код:
sFileName = Time() & ".txt"
sFileName = String_Get_Valid_FileName(sFileName, "[*?\\/|:<>""]", "-")
 
MsgBox "Valid File Name: " & sFileName, 64, "Replace Unsupported Example"
 
Function String_Get_Valid_FileName(sString, sPattern, sReplace)
    If Len(Trim(sString)) = 0 Then
        StringReplaceUnsupported = sString
        Exit Function
    End If
    
    If sPattern = "" Then sPattern = "[*?\\/|:<>""]"
    If sReplace = "" Then sReplace = "_"
    
    Set RegEx = New RegExp
    
    RegEx.IgnoreCase = True
    RegEx.Global = True
    
    RegEx.Pattern = sPattern
    sString = RegEx.Replace(sString, sReplace)
    
    RegEx.Pattern = "(" & sReplace & "+)"
    sString = RegEx.Replace(sString, sReplace)
    
    String_Get_Valid_FileName = sString
End Function


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

Всего записей: 3251 | Зарегистр. 01-04-2006 | Отправлено: 01:11 13-01-2009
alxkk

Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
есть такой скрипт.
Смотрит определенное событие в event на одном компе.
 
Помогите модифицировать: скрипт бегает по компам домена-смотрит нужный эвент и создает файл,где указан комп где появился эвент ну и дату можно.
 
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate, (Security)}!\\" & _
strComputer & "\root\cimv2")
 
Set colMonitoredEvents = objWMIService.ExecNotificationQuery _
("Select * from __instancecreationevent where " _
& "TargetInstance isa 'Win32_NTLogEvent' " _
& "and TargetInstance.EventCode = '533' ")
 
Do
Set objLatestEvent = colMonitoredEvents.NextEvent
strAlertToSend = objLatestEvent.TargetInstance.User _
& " attempted to access DatabaseServer."
Wscript.Echo strAlertToSend
Loop

Всего записей: 27 | Зарегистр. 19-11-2004 | Отправлено: 18:41 13-01-2009
constant125

Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Помогите с маленьким вопросом, есть скрипт который цепляет сетевой диск, но после перезагрузки такой диск автоматом не цепляется, как сделать чтобы сетевой диск восстанавливался после перезагрузки???? Вариант с засовыванием в автозагрузку скрипта не подходит

Всего записей: 8 | Зарегистр. 06-10-2008 | Отправлено: 15:09 19-01-2009
korosya

Advanced Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Возник такой вопрос:  
При использовании cmd.exe возможновыполнение команд без создания батника как файла. То есть можно в Пуск-Выполнить написать cmd /с "команда1&команда2&..." и будут последовательно выполнены команды 1,2 ....  
Хотелось бы узнать возможно ли такое с JS/VBS?

Всего записей: 1005 | Зарегистр. 19-07-2003 | Отправлено: 23:58 19-01-2009
mozers



Silver Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
korosya
Нет ничего проще набрать в ком.строке cscript /? или wscript /? и убедиться что такая возможность недоступна.

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

Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Доброе время суток
 
Есть такой скрипт хочю понять как он работает.

Код:
Option Explicit
 
Dim i, j
 
j = 0
 
For i = 1 To 5                    ' Цикл с 5 повторами    
 
    j = addx(i, j)                'слошить значения с помощью функции addx.
Next
 
WScript.Echo "Result:", j
 
Function addx(val1, val2)
 
    addx = val1 + val2
    
End Function

 
при запуски выводит ресултат 15 а если заместа 5 где То 5 ставлю 10 то 55  
вот мне хочится понят откуда он эта берёт.
спасибо за ответы.

Всего записей: 14 | Зарегистр. 19-12-2008 | Отправлено: 23:08 21-01-2009
korosya

Advanced Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Alex_111
У тебя функция j=i+j, где i меняется от 1 до 5 (10). Теперь смотри, что получается в каждой итерации:
Сначала j=o
1. j=1+0=1
2. j=2+1=3
3. j=3+3=6
4. j=4+6=10
5. j=5+10=15
6. j=6+15=21
7. j=7+21=28
8. j=8+28=36
9. j=9+36=45
10. j=10+45=55

Всего записей: 1005 | Зарегистр. 19-07-2003 | Отправлено: 00:38 22-01-2009
Alex_111

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

Всего записей: 14 | Зарегистр. 19-12-2008 | Отправлено: 01:37 22-01-2009
alroy

Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
constant125
Объект WshNetwork
Методы
MapNetworkDrive
Синтаксис:  
 
MapNetworkDrive(<LocalName>,<RemoteName>,<UpdateProfile>, <User>,<Password>)  
 
Назначение:  
 
Подключает сетевой диск.  
 
Параметры:  
 
<LocalName> - строка, локальное имя диска.
<RemoteName> - строка, имя сетевого ресурса.
<UpdateProfile> - необязательный, число (булево). Если указано True, создаваемое сетевое подключение будет сохранено в профиле пользователя.
<User> - необязательный, строка. Имя пользователя, если сетевой диск подключается от пользователя, отличного от текущего.
<Password> - необязательный, строка. Пароль пользователя, если сетевой диск подключается от пользователя, отличного от текущего.
 
 
Описание:  
 
Без комментариев.  
 
Пример:  
 
Set WshNetwork = CreateObject("WScript.Network")
WshNetwork.MapNetworkDrive "Z:", "\\SERVER\Programs"
 
 

Всего записей: 59 | Зарегистр. 15-06-2005 | Отправлено: 11:02 22-01-2009
constant125

Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
А вот если перезагрузить компьютер, сетевой диск пропадает . Чтобы этого не происходило должна появляться запись в реестре, HKCU /network (кстати если скриптом удалять сетевой диск, который подключили через GUI, надо очищать енту ветку, иначе после перезагрузки сетевой диск опять появится)

Всего записей: 8 | Зарегистр. 06-10-2008 | Отправлено: 13:59 22-01-2009
aliotru

Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
А если попробовать так:
Set WshNetwork = CreateObject("WScript.Network")
WshNetwork.MapNetworkDrive "Z:", "\\SERVER\Programs", true
 
-- вот это true и должно сделать подключение постоянным...

Всего записей: 3 | Зарегистр. 21-02-2008 | Отправлено: 16:41 22-01-2009
Nervniy2000



Newbie
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
aliotru
наверное имелось ввиду "true, true "

Всего записей: 30 | Зарегистр. 21-02-2006 | Отправлено: 21:18 22-01-2009
constant125

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

Всего записей: 8 | Зарегистр. 06-10-2008 | Отправлено: 10:05 23-01-2009
Nervniy2000



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

Всего записей: 30 | Зарегистр. 21-02-2006 | Отправлено: 11:26 23-01-2009
karakurt2



Advanced Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Товарищи, помогите разобраться с небольшим затруднением. Не могу подключить ссылку на библиотеу Microsoft Windows Installer Object Library. Операционная система ругает скрипт

Код:
 
<?xml version="1.0"?>
<package>
  <job id="sample">
 
    <!-- Microsoft Windows Installer Object Library (ver 1.0) -->
    <!-- reference guid="000C1092-0000-0000-C000-000000000046"/ -->
    <reference object="WindowsInstaller.Installer"/>
 
    <script language="VBScript">
        WScript.Echo "YOHOHO"
    </script>
 
  </job>
</package>
 

вот такими словами

Цитата:
 
I:\prj\contact\src\setup\master.wsf(0, 1) Windows Script Host: Не удается добавить ссылку : {000C1092-0000-0000-C000-000000000046}
 

Как это лечится? Так неохота писать на С++ вспомогательный код!

Всего записей: 733 | Зарегистр. 06-12-2003 | Отправлено: 07:03 24-01-2009 | Исправлено: karakurt2, 07:05 24-01-2009
BSUacad

Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
karakurt2
Попробуй удалить строки
 
<!-- Microsoft Windows Installer Object Library (ver 1.0) -->  
<!-- reference guid="000C1092-0000-0000-C000-000000000046"/ -->
 
должно заработать.

Всего записей: 25 | Зарегистр. 07-09-2005 | Отправлено: 08:42 24-01-2009
karakurt2



Advanced Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
BSUacad, эти строки просто комментарии, их наличие или отсутствие ни на что не влияет. Даже программа oleview из комплекта Windows SDK ругается при двойном щелчке над библиотекой Windows Installer.  На всех системах, которые мне доступны, проявляется эта ошибка. Уже весь мозг сломал.

Всего записей: 733 | Зарегистр. 06-12-2003 | Отправлено: 08:58 24-01-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