» Программирование "удобняшек" на VBScript

bygamer

Цитата:

"runas" в 7ке отменили?

Де не отменили конечно - но таким макаром запускается к сожелению далеко не все

GRom V
ещё есть psexec.exe и подобные утилиты
и obj.Process.Create из WMI

GRom V
Есть ещё:

Код: WScript.CreateObject("Shell.Application").ShellExecute(sFile [, vArguments] [, vDirectory] [, vOperation] [, vShow])

Pacho

Цитата:

Есть ещё:

Код:WScript.CreateObject("Shell.Application").ShellExecute(sFile [, vArguments] [, vDirectory] [, vOperation] [, vShow])
Запуск от имени администратора:
Код:vOperation="runas"
Код:WScript.CreateObject("Shell.Application").ShellExecute "notepad.exe", , "C:\Windows", "runas", 1

Спасибо за пример - я в вбс не бетман...не мог бы не много уделить интелекта?
Во первых ругается на строку:
WScript.CreateObject("Shell.Application").ShellExecute(sFile [, vArguments] [, vDirectory] [, vOperation] [, vShow]) - скобку просит...

Во вторых не совсем понял где сдесь указывается от какого пользователя запуск...как например запустить от имени Admin ?
Заранее спасибо...

GRom_V
так вот же пример давали

Цитата:

WScript.CreateObject("Shell.Application").ShellExecute "notepad.exe", , "C:\Windows", "runas", 1

GRom_V
Метод ShellExecute объекта Shell выполняет указанное действие над указанным файлом.
sFile - имя файла
vDirectory - путь к каталогу с указанным файлом
vOperation - действие, которое необходимо выполнить
Подробнее.

Для "запуска от имени..." используется действие vOperation = "runas":

Код: WScript.CreateObject("Shell.Application").ShellExecute "notepad.exe", , "C:\Windows", "runas", 1

Цитата:

Подскажите, есть ли в VBScript методы, аналогичные Math.max() и Math.min() в JScript, вычисляющие максимальное/минимальное число из заданных?

Нет, в VBScript таких нет. Для нахождения максимальных и минимальных значений нужно сортировать массивы.
Есть ещё вариант: объединять JScript и VBScript в одном .wsf-файле

Pacho

Цитата:

Код:WScript.CreateObject("Shell.Application").ShellExecute "notepad.exe", , "C:\Windows", "runas", 1

А можно как нить сделать чтоб скриптом и пароль набрать?

Доброе время суток!
Меня терзает один вопрос - есть сервер с ценами, который постоянно отдает цены в формате XML, если URL вставить в браузер, то можно увидеть поток цен.
Можно ли их обработать с помощью VBS? Например найти в них строчку?
К сожалению адрес написать не могу, для служебного пользования...


Код:
sURI="http://******"
Set oXMLHTTP = CreateObject("MSXML2.XMLHTTP")
oXMLHTTP.Open "GET", sURI, False
wscript.echo oXMLHTTP.readyState
oXMLHTTP.Send(null)
wscript.echo oXMLHTTP.readyState
wscript.sleep 5000
If oXMLHTTP.Status = 200 Then
wscript.echo "Ok"
Set oADOStream = CreateObject("ADODB.Stream")
oADOStream.Mode = 3 'разрешение на чтение и запись
oADOStream.Type = 1 'тип данных - Binary
oADOStream.Open
oADOStream.Write oXMLHTTP.responseXML
oADOStream.SaveToFile "D:\1.xml", 2
else
wscript.echo "Error"
end if
set oXMLHTTP=Nothing

Добрый день.
Подскажите как изменить скрипт:


Код: strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colNetAdapters = objWMIService.ExecQuery ("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE and DHCPEnabled=TRUE")

For Each objNetAdapter in colNetAdapters
For Each strAddress in objNetAdapter.IPAddress
arrOctets = Split(strAddress, ".")
If arrOctets(0) and arrOctets(1) Then
strNewAddress = arroctets(0) & "." & arroctets(1) & "." & arrOctets(2) & "." & "211"
arrIPAddress = Array(strNewAddress)
strSubnetMask = objNetAdapter.IPSubnet
strGateway = objNetAdapter.DefaultIPGateway
strGatewayMetric = objNetAdapter.GatewayCostMetric
arrDNSServers = objNetAdapter.DNSServerSearchOrder
errEnable = objNetAdapter.EnableStatic(arrIPAddress, strSubnetMask)
errGateways = objNetAdapter.SetGateways(strGateway, strGatewaymetric)
objNetAdapter.SetDNSServerSearchOrder(arrDNSServers)
End If
Next
Next

Уважаемые Знатоки!!
Подскажите пожалуйста программу для быстрой компиляции vbs\js скриптов в ехе-файл так, чтобы не создавались временные папки.
Я пробовал несколько vbstoexe программ, но все они создают саморапаковующиеся архивы и запускают скрипт из временных папок, а в результате теряются пути к запускаемым из скрипта исполняемым файлам. Также пробовал Scriptcryptor, который, как обещали работает по другому принципу, но созданный ею ехе-шник на Win98 не запустился ("Программа выполнила недопустимую операцию ...), а сама прога на 98-ой хоть и установилась, но запускатся тоже не захотела по то й же причине.
ЕХЕ-файл должен запускаться из-под Win98SE!

cambit
Подобный вопрос задавал Hugo121 несколько страниц назад. Окончание обсуждения - на предыдущей странице.
Программирование "удобняшек" на VBScript, стр.70
Программирование "удобняшек" на VBScript, стр.72

Господа знающие, помогите пожалуйста!

Есть некий софт, написаный америкосами, а соответственно, в нем НЕ предусмотрена работа на ОСях, где в качестве региональных настроек используется что-либо помимо English (US). Переключать перед каждым запуском региональные настройки на English, а после завершения работы - обратно на Русский, довольно неудобно, но вот куда начать копать, чтобы эту задачу автоматизировать - найти не могу.

Варианты работать исключительно с англоязычной локалью как-то рассматривать не хочется.

Можт кто подскажет направление поиска? Или пример скрипта?

Цитата:

cambit
Подобный вопрос задавал Hugo121 несколько страниц назад. Окончание обсуждения - на предыдущей странице.
Программирование "удобняшек" на VBScript, стр.70
Программирование "удобняшек" на VBScript, стр.72

Ну не работает это все под Win98! Ну что за напасть такая. Ставил на чистую машину (После Format с: ) Может чего надо доустановить?

ScriptCOM я использовал исключительно на машинке с Win98 SE. Потом был Primal Script 4 (кажется, под той же ОС). Скрипты компилировались без проблем.

vlth

Цитата:

ScriptCOM я использовал исключительно на машинке с Win98 SE

Доступна версия - "Оптимизирована дл Windows 2000" А Ваша не завалялась случайно?

cambit
Из Readme:
Версия 0.21
Система ScriptCOM предназначена для опытных пользователей и системных администраторов
Windows 9xZ/NT/2000

Только эта версия (0.21) - другой не видел - в Инете и есть.

vlth
Из того-же Readme:
"(*) Внимание! Данная версия 0.2 соптимизирована для работы в Windows98(SP4) или Windows2000."
Что сие значит - "Windows98(SP4)"?

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

Цитата:

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

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

Цитата:

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

cambit, отписался в личку.

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

cambitЧто нажимать? - не помню: года три-четыре прошло, как юзал. Порыскай по меню, где-то в них зарыто...

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"

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

Добрый день.
Не могли бы мне помочь с модификацией ранее представленного скрипта, чтобы он работал в 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

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

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

Pacho

Цитата:

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

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

vlth
Спасибо, дружище, что не послал, спасибо за помощь.
Но эта прога тоже создает SFX-архив и поэтому теряет пути при распаковке, а прописать их конкретно нельзя, т.к. скрипт будет записан на CD а он на разных компьютерах будет под разной буквой, так что опять неудача. (Кстати на 98-м все равно не пошло. Сделал на 2-м компе под ХР)

Добавлено:
Из всех опробованых мною программ для компиляции скриптов корректно создавала ЕХЕ-файл только "scriptcryptor", но версии для 98-го я не нашел, а созданный на ХР файл на 98-м не запустился - вылетел сошибкой.