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

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

   

cambit

Full Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
vlth
Из того-же Readme:
"(*) Внимание! Данная версия 0.2 соптимизирована для работы в Windows98(SP4) или Windows2000."  
Что сие значит - "Windows98(SP4)"?
 
После установки программы при попытке запустить компилятор - "Программа выполнила недопустимую операцию и будет закрыта..." и т.д. Я в трансе....

Всего записей: 601 | Зарегистр. 09-06-2008 | Отправлено: 23:09 22-02-2010 | Исправлено: cambit, 23:23 22-02-2010
vlth

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

Цитата:
Что сие значит - "Windows98(SP4)"?

Не знаю По-моему, это не важно: компилятор у меня работал без SP (к Win98 официальных сервис-паков не было)

Всего записей: 258 | Зарегистр. 22-01-2008 | Отправлено: 23:23 22-02-2010
cambit

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

Цитата:
После установки программы при попытке запустить компилятор - "Программа выполнила недопустимую операцию и будет закрыта..." и т.д. Я в трансе....


Всего записей: 601 | Зарегистр. 09-06-2008 | Отправлено: 23:32 22-02-2010
vlth

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

Всего записей: 258 | Зарегистр. 22-01-2008 | Отправлено: 23:55 22-02-2010
cambit

Full Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
vlth
Премного благодарен. Установилась, запускается!!!!
А теперь для тех, кто с бронепоезда: Что нажать , что бы преобразовать в ЕХЕ?
Все меню пересмотрел - не нашел...

Всего записей: 601 | Зарегистр. 09-06-2008 | Отправлено: 16:05 23-02-2010
vlth

Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
cambitЧто нажимать? - не помню: года три-четыре прошло, как юзал. Порыскай по меню, где-то в них зарыто...  

Всего записей: 258 | Зарегистр. 22-01-2008 | Отправлено: 18:16 23-02-2010
cambit

Full Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
vlth
Порыскал. Вроде нашел, но опять не слава богу.
В самой проге выдает сообщение:
VBS/JS Script Compiler 1.0 (c) 2005 - 2006 SAPIEN Technologies, Inc.
 
Adding Win98Upd.js  
Writing scripts to Win98Upd.exe
Exit code: 0 , 0000h
0 error(s), 0 warning(s)
Но при запуске самого ЕХЕ-шника вылетает ошибка:
"Corrupt image file"

Всего записей: 601 | Зарегистр. 09-06-2008 | Отправлено: 18:24 23-02-2010
vlth

Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
cambit, могу предложить только попробовать на простейших скриптах: если и они "не пойдут", то тогда будет понятно, что дело в ОС или в компиляторе. Или и в том, и в другом...

Всего записей: 258 | Зарегистр. 22-01-2008 | Отправлено: 20:33 23-02-2010
spacemutant

Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Добрый день.
Не могли бы мне помочь с модификацией ранее представленного скрипта, чтобы он работал в AD с группами безопасности.
 
'*** Start of Script ***
 
Dim FSObj 'File System Info
Dim GroupObj 'Group Info
Dim UserObj 'User Info
Dim WshNetwork 'Network Info
Dim WshShell 'Shell Object
Dim UserDomain 'User Logon Domain
 
'*** Inital Environment Setup
 
Set WshShell = WScript.CreateObject("WScript.Shell")
Set WshNetwork = WScript.CreateObject("WScript.Network")
UserDomain = WshNetwork.UserDomain
'Set FSObj = CreateObject("Scripting.FileSystemObject")
Set UserObj = GetObject("WinNT://" & UserDomain & "/" & WshNetwork.UserName)
 
'*** Group Comparisons for Drive Mapping
 
For Each GroupObj in UserObj.Groups
 
If GroupObj.Name = "manager" Then
WshNetwork.AddWindowsPrinterConnection "\\comp1\HP"
End If
 
If GroupObj.Name = "buxUsers" Then
WshNetwork.AddWindowsPrinterConnection "\\comp2\canon"
End If
 
Next

Всего записей: 99 | Зарегистр. 18-12-2008 | Отправлено: 12:55 24-02-2010
Andrew_L



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

Всего записей: 69 | Зарегистр. 27-07-2003 | Отправлено: 19:57 24-02-2010
Pacho



Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Andrew_L
А чуть выше не смотрел? С использованием регулярных выражений. Правда, этот метод только обрамляет кавычками параметры, содержащие пробелы. Т.е., строку
Код:
"Вася Петя" /Коля:"Маша Миша"
он передаст:
Код:
"Вася Петя" "/Коля:Маша Миша"

Метод же с WMI передаёт строку как есть.
Будет здорово, если кто найдёт способ попроще.

Всего записей: 263 | Зарегистр. 02-04-2005 | Отправлено: 21:22 24-02-2010
Andrew_L



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

Цитата:
А чуть выше не смотрел? С использованием регулярных выражений. Правда, этот метод только обрамляет кавычками параметры, содержащие пробелы.

Не, интересует именно передача кавычек, а не обрамление. Придется через WMI...

Всего записей: 69 | Зарегистр. 27-07-2003 | Отправлено: 01:53 25-02-2010 | Исправлено: Andrew_L, 01:55 25-02-2010
cambit

Full Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
vlth
Спасибо, дружище, что не послал, спасибо за помощь.
Но эта прога тоже создает SFX-архив и поэтому теряет пути при распаковке, а прописать их конкретно нельзя, т.к. скрипт будет записан на CD а он на разных компьютерах будет  под разной буквой, так что опять неудача. (Кстати на 98-м все равно не пошло. Сделал на 2-м компе под ХР)
 
Добавлено:
Из всех опробованых мною программ для компиляции скриптов корректно создавала ЕХЕ-файл только "scriptcryptor", но версии для 98-го я не нашел, а созданный на ХР файл на 98-м не запустился - вылетел сошибкой.

Всего записей: 601 | Зарегистр. 09-06-2008 | Отправлено: 18:24 25-02-2010
vlth

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

Цитата:
скрипт будет записан на CD а он на разных компьютерах будет  под разной буквой, так что опять неудача
Что, wsh.ScriptFullName не выручает?

Всего записей: 258 | Зарегистр. 22-01-2008 | Отправлено: 23:36 25-02-2010
Hugo121

Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
cambit , это не пробовал - на 70 странице в самом низу:
http://forum.ru-board.com/topic.cgi?forum=33&topic=1491&start=1380#20 ?
Я таким скриптом проверял:

Код:
WScript.Echo wscript.path
MyPath = left (WScript.ScriptFullName, (Len(WScript.ScriptFullName))-(Len(WScript.ScriptName)))  
msgbox MyPath

Одно из сообщений верное.

Всего записей: 128 | Зарегистр. 14-08-2007 | Отправлено: 09:30 26-02-2010 | Исправлено: Hugo121, 09:31 26-02-2010
vlth

Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Hugo121Или так: MyPath = left (wsh.ScriptFullName, InStrRev(wsh.ScriptFullName,"\"))    

Всего записей: 258 | Зарегистр. 22-01-2008 | Отправлено: 17:41 26-02-2010
cambit

Full Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Hugo121
vlth
Я смысл в принципе понял, но как реализовать - не въеду.
Вот мой скрипт - помогите пожалуйста!
//Программа автоматической установки обновлений WINDOWS98SE
var vbOKCancel = 1;
var vbInformation = 64;
var vbCancel = 2;
var Message = "Запустить программу установки обновлений Windows 98SE?";
var Title   = "Подтвердите действие";
var WSHShell = WScript.CreateObject("WScript.Shell");
Welcome();
 
WSHShell.Run("Update.bat",5,"True");
 
function Welcome() {
    var intDoIt;
 
    intDoIt =  WSHShell.Popup(Message,
                              0,
                              Title,
                              vbOKCancel + vbInformation);
    if (intDoIt == vbCancel) {
        WScript.Quit();
    }
}
//Запрос на перезагрузку
var vbOK = 1;
var Inf = 64;
var Cancel = 2;
var Messag = "Установка завершена. Компьютер следует перезагрузить. Выполнить?";
var Titl   = "Подтвердите действие";
var WSHShell = WScript.CreateObject("WScript.Shell");
Welcom();
 
WSHShell.Run("rundll32.exe shell32.dll,SHExitWindowsEx 2",5,"False");
 
function Welcom() {
    var intDo;
 
    intDo =  WSHShell.Popup(Messag,
                              0,
                              Titl,
                              vbOK + Inf);
    if (intDo == Cancel) {
        WScript.Quit();
    }
}
Заранее спасибо!!!

Всего записей: 601 | Зарегистр. 09-06-2008 | Отправлено: 12:15 27-02-2010
vlth

Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
cambit, а что вдруг на js ? - у меня в его синтаксис въезжать желания никогда не возникало. И необходимости не было )))

Всего записей: 258 | Зарегистр. 22-01-2008 | Отправлено: 12:37 28-02-2010
cambit

Full Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
vlth
Образец такой попался. Вечером сброшу на vbs - на работе остался.  
Я вообще-то в скриптах могу разобраться только по аналогии с тем , что уже ктото сделал, а литература мне не помогает, но с js на vbs переделать получилось.

Всего записей: 601 | Зарегистр. 09-06-2008 | Отправлено: 17:16 28-02-2010 | Исправлено: cambit, 17:28 28-02-2010
cambit

Full Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
vlth
Вот на vbs:
'Программа автоматической установки обновлений WINDOWS98SE
 
Set WSHShell = WScript.CreateObject("WScript.Shell")
Call Welcome()
 
WSHShell.Run "Update.bat",5,"True"
 
Sub Welcome()
    Dim intDoIt
    intDoIt = WshShell.Popup ("Выполнить установку критических обновлений Windows 98 SE?",,                                 "Подтвердите действие", 65)
    if intDoIt = 2 Then
        WScript.Quit
    End if
End Sub
'Запрос на перезагрузку
Set WshShell = WScript.CreateObject("WScript.Shell")
Call Welcom()
 
WshShell.Run "rundll32.exe shell32.dll,SHExitWindowsEx 2t",5,"False"
Sub Welcom()
    Dim intDo
    intDo = WshShell.Popup ("Установка завершена. Компьютер следует перезагрузить. Выполнить?",,                            "Подтвердите действие", 33)
    if intDo = 2 Then
        WScript.Quit
    End if
End Sub

Всего записей: 601 | Зарегистр. 09-06-2008 | Отправлено: 09:10 01-03-2010
   

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