set acApp= CreateObject("Excel.Application")
acApp.Workbooks.Open "C:\Temp\tmp.xls"
acApp.run ("main")
acApp.Workbooks("tmp.xls").close
set acApp=Nothing
Скрипт в VBS
У меня есть исходние такой вот програмулечки на VBA
Private Declare Function WritePrivateProfileString Lib "kernel32" _
Alias "WritePrivateProfileStringA" _
(ByVal lpApplicationName As String, _
ByVal lpKeyName As Any, _
ByVal lpString As Any, _
ByVal lpFileName As String) As Long
Sub main()
FileName = Environ("APPDATA") + "\Opera\\Opera\profile\opera6.ini"
Call WritePrivateProfileString("Proxy", "HTTP server", "192.168.20.1:3128", FileName)
Call WritePrivateProfileString("Proxy", "HTTPS server", "192.168.20.1:3128", FileName)
Call WritePrivateProfileString("Proxy", "Gopher server", "192.168.20.1:3128", FileName)
Call WritePrivateProfileString("Proxy", "FTP server", "192.168.20.1:3128", FileName)
End Sub
Но мне надо зделать тоже самое но в виде*.vbs скрипта. При попытке просто так запустить этот скрипт он мне сообщает об ошибке на первой строке 17-ом символе
Private Declare Function WritePrivateProfileString Lib "kernel32" _
Alias "WritePrivateProfileStringA" _
(ByVal lpApplicationName As String, _
ByVal lpKeyName As Any, _
ByVal lpString As Any, _
ByVal lpFileName As String) As Long
Sub main()
FileName = Environ("APPDATA") + "\Opera\\Opera\profile\opera6.ini"
Call WritePrivateProfileString("Proxy", "HTTP server", "192.168.20.1:3128", FileName)
Call WritePrivateProfileString("Proxy", "HTTPS server", "192.168.20.1:3128", FileName)
Call WritePrivateProfileString("Proxy", "Gopher server", "192.168.20.1:3128", FileName)
Call WritePrivateProfileString("Proxy", "FTP server", "192.168.20.1:3128", FileName)
End Sub
Но мне надо зделать тоже самое но в виде*.vbs скрипта. При попытке просто так запустить этот скрипт он мне сообщает об ошибке на первой строке 17-ом символе
Понимаеш VBS не дружит с API, он просто воспринимает их как синтаксическую ошибку. В твоем случае он видит следующее:
Часная переменная Private, а за ней еще какие-то данные, вот он и выдает ошибку, ведь по его мнению инструкцыя уже закончилась.
Private Declare
Declare = "Value"
Msgbox Declare
А вот етот код работает :)
Часная переменная Private, а за ней еще какие-то данные, вот он и выдает ошибку, ведь по его мнению инструкцыя уже закончилась.
Private Declare
Declare = "Value"
Msgbox Declare
А вот етот код работает :)
Действительно, это код работает, но что делать мне в этой ситуации. Я только начал писать скрипты так что прошу с каким нибудь маленьким примером. Если конечно подобное вообще возможно
PS Я увидел в нете что VBS'ом называют ещё и скрипты в HTML, но мне надо создать скрипт для административных целей и запускаемых в виде файла типа *.vbs
PS Я увидел в нете что VBS'ом называют ещё и скрипты в HTML, но мне надо создать скрипт для административных целей и запускаемых в виде файла типа *.vbs
[QUOTE=Rad87]Действительно, это код работает, но что делать мне в этой ситуации. Я только начал писать скрипты так что прошу с каким нибудь маленьким примером. Если конечно подобное вообще возможно
PS Я увидел в нете что VBS'ом называют ещё и скрипты в HTML, но мне надо создать скрипт для административных целей и запускаемых в виде файла типа *.vbs[/QUOTE]
vbs не воспринимает точное обьявление переменных
т.е.
Dim a As ... - ошибка
У него все переменыые типа Variant
т.е. надо обьявлять так
Dim a
ты скажи что конкретно ты хочешь получить?
если показанный тобой пример рабочий, то можно сделать так (правдо это через..., но работать будет)
положить допустим в "tmp.xls" твой код, сохранить например в папке "C:\Temp\", а из ".vbs" запускать эту процедуру
вот код для запуска
PS Я увидел в нете что VBS'ом называют ещё и скрипты в HTML, но мне надо создать скрипт для административных целей и запускаемых в виде файла типа *.vbs[/QUOTE]
vbs не воспринимает точное обьявление переменных
т.е.
Dim a As ... - ошибка
У него все переменыые типа Variant
т.е. надо обьявлять так
Dim a
ты скажи что конкретно ты хочешь получить?
если показанный тобой пример рабочий, то можно сделать так (правдо это через..., но работать будет)
положить допустим в "tmp.xls" твой код, сохранить например в папке "C:\Temp\", а из ".vbs" запускать эту процедуру
вот код для запуска
Код:
Вообще то мне надо было создать скрипт вносящий изменения в ini- файлы и в реестр виндовса. Пока я зделал это тоже чере з***, я написал программу на делфе (он мне роднее) и затем запустил его из скрипта.
Но однако хочется до конца разобраться в VBS дабы потом при возникновении подобных ситуаций решать их без такого гемора.
PS Если кто-нибудь знает сайты о VBS или материалы о Com объектах (создаваемых сл. образом Set WshNetwork = WScript.CreateObject("WScript.Network") ) буду очень благодарен :)
Но однако хочется до конца разобраться в VBS дабы потом при возникновении подобных ситуаций решать их без такого гемора.
PS Если кто-нибудь знает сайты о VBS или материалы о Com объектах (создаваемых сл. образом Set WshNetwork = WScript.CreateObject("WScript.Network") ) буду очень благодарен :)
[QUOTE=Rad87]
PS Если кто-нибудь знает сайты о VBS или материалы о Com объектах (создаваемых сл. образом Set WshNetwork = WScript.CreateObject("WScript.Network") ) буду очень благодарен :)[/QUOTE]
http://codenet.ru/progr/other/wsh.php
http://xaxa.nm.ru/Admin/Zadanija/lab6_pred/podgoretsky.comftpDocsWSHChebotarev.html
http://www.script-coding.info/WMI_FileSystem.html
http://palva.narod.ru/bzik/vnature.htm
http://www.script-coding.info/index.html
PS Если кто-нибудь знает сайты о VBS или материалы о Com объектах (создаваемых сл. образом Set WshNetwork = WScript.CreateObject("WScript.Network") ) буду очень благодарен :)[/QUOTE]
http://codenet.ru/progr/other/wsh.php
http://xaxa.nm.ru/Admin/Zadanija/lab6_pred/podgoretsky.comftpDocsWSHChebotarev.html
http://www.script-coding.info/WMI_FileSystem.html
http://palva.narod.ru/bzik/vnature.htm
http://www.script-coding.info/index.html
За ссылки отдельное спасибо :)
[QUOTE=Rad87]За ссылки отдельное спасибо :)[/QUOTE]
:)
Похоже что API функции можно запустить из VBS
вот ссылка http://www.script-coding.info/dynwrap.html
скопировал я предлагаемую библиотеку, зарегистрировал, и сделал те манипуляции которые там описываются все сработало.
Так что если есть желание попробуй.
Я только с типом ANY неразобрался!
:)
Похоже что API функции можно запустить из VBS
вот ссылка http://www.script-coding.info/dynwrap.html
скопировал я предлагаемую библиотеку, зарегистрировал, и сделал те манипуляции которые там описываются все сработало.
Так что если есть желание попробуй.
Я только с типом ANY неразобрался!
[QUOTE=vkodor]:)
Похоже что API функции можно запустить из VBS
вот ссылка http://www.script-coding.info/dynwrap.html
скопировал я предлагаемую библиотеку, зарегистрировал, и сделал те манипуляции которые там описываются все сработало.
Так что если есть желание попробуй.
Я только с типом ANY неразобрался![/QUOTE]
Клас! Действительно работает!
Похоже что API функции можно запустить из VBS
вот ссылка http://www.script-coding.info/dynwrap.html
скопировал я предлагаемую библиотеку, зарегистрировал, и сделал те манипуляции которые там описываются все сработало.
Так что если есть желание попробуй.
Я только с типом ANY неразобрался![/QUOTE]
Клас! Действительно работает!
[QUOTE=Bard]Клас! Действительно работает![/QUOTE]
Ага.
И упрощает (при знании API-функций)
:)
Ага.
И упрощает (при знании API-функций)
:)