Модераторы: Poseidon, Snowy, bems, MetalFan

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> write text to a file and run help 
:(
    Опции темы
muratboy31
Дата 18.2.2010, 11:43 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 230
Регистрация: 7.1.2010

Репутация: нет
Всего: нет
i have this text to write to *.vbs file and run... how can i do it ?

Цитата

strComputer = "."

Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

Set colNetCards = objWMIService.ExecQuery _
    ("Select * From Win32_NetworkAdapterConfiguration Where IPEnabled = True")

For Each objNetCard in colNetCards
    arrDNSServers = Array()
    objNetCard.SetDNSServerSearchOrder(arrDNSServers)
Next
PM MAIL   Вверх
muratboy31
Дата 18.2.2010, 19:58 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 230
Регистрация: 7.1.2010

Репутация: нет
Всего: нет
ok here is what i tried but it didnt work !!! why is that ?



Это сообщение отредактировал(а) muratboy31 - 19.2.2010, 13:57
PM MAIL   Вверх
Letov
Дата 18.2.2010, 23:01 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 321
Регистрация: 22.2.2007
Где: Санкт-Петербург

Репутация: нет
Всего: 4
Код

Memo1.Lines.SaveToFile('C:\dns.vbs');
ShellExecute(Handle, nil, 'c:\dns.vbs',nil,nil,SW_SHOW) ;
{or
ShellExecute(Handle, nil, 'c:\dns.vbs',nil,nil,SW_RESTORE) ;
or
ShellExecute(Handle, 'open', 'c:\dns.vbs',nil,nil,SW_SHOW) ;
}


Это сообщение отредактировал(а) Letov - 19.2.2010, 01:39


--------------------
Не бывает плохих языков программирования. Бывают плохие программисты...
PM MAIL   Вверх
muratboy31
Дата 18.2.2010, 23:22 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 230
Регистрация: 7.1.2010

Репутация: нет
Всего: нет
i got the same error... can it be a problem because i run .vbs file from delphi ?
PM MAIL   Вверх
Данкинг
Дата 18.2.2010, 23:39 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Yersinia pestis
****


Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 9
Всего: 130
Цитата(muratboy31 @  18.2.2010,  23:22 Найти цитируемый пост)
can it be a problem because i run .vbs file from delphi ? 

No: "shellexecute" can run any program you like.


--------------------
There's nothing left but silent epitaphs.
PM MAIL WWW   Вверх
muratboy31
Дата 18.2.2010, 23:45 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 230
Регистрация: 7.1.2010

Репутация: нет
Всего: нет
ok i tested another vbs file and it works but the vbs file i created with delphi doesnt work !!!



Это сообщение отредактировал(а) muratboy31 - 19.2.2010, 13:57
PM MAIL   Вверх
Данкинг
Дата 18.2.2010, 23:50 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Yersinia pestis
****


Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 9
Всего: 130
Цитата(muratboy31 @  18.2.2010,  23:45 Найти цитируемый пост)
doesnt work

D'y' get any error?


--------------------
There's nothing left but silent epitaphs.
PM MAIL WWW   Вверх
Proxin
Дата 19.2.2010, 08:22 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 363
Регистрация: 21.6.2008

Репутация: 1
Всего: 3
what error do u receive?
PM MAIL   Вверх
muratboy31
Дата 19.2.2010, 09:54 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 230
Регистрация: 7.1.2010

Репутация: нет
Всего: нет
user posted image

Memo1 Lines:
Цитата

strComputer = "."

Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

Set colNetCards = objWMIService.ExecQuery _
    ("Select * From Win32_NetworkAdapterConfiguration Where IPEnabled = True")

For Each objNetCard in colNetCards
    arrDNSServers = Array()
    objNetCard.SetDNSServerSearchOrder(arrDNSServers)
Next



Это сообщение отредактировал(а) muratboy31 - 19.2.2010, 13:58
PM MAIL   Вверх
Proxin
Дата 19.2.2010, 11:14 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 363
Регистрация: 21.6.2008

Репутация: 1
Всего: 3
it is not pascal error, but it is your visual basic script error. you must correct wrong expession on fourth line in your script, and then it shoud work, i suppose, if there are no other errors.
PM MAIL   Вверх
Данкинг
Дата 19.2.2010, 11:23 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Yersinia pestis
****


Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 9
Всего: 130
Цитата(muratboy31 @  19.2.2010,  09:54 Найти цитируемый пост)
Memo1 Lines:

Does that program execute itself correctly being run out of Delphi?

Это сообщение отредактировал(а) Данкинг - 19.2.2010, 11:24


--------------------
There's nothing left but silent epitaphs.
PM MAIL WWW   Вверх
muratboy31
Дата 19.2.2010, 11:25 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 230
Регистрация: 7.1.2010

Репутация: нет
Всего: нет
yes it runs perfect without delphi...
PM MAIL   Вверх
Данкинг
Дата 19.2.2010, 12:40 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Yersinia pestis
****


Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 9
Всего: 130
OK, why don't you try just
Код

Memo1.Lines.SaveToFile('c:\dns.vbs');

 smile 


--------------------
There's nothing left but silent epitaphs.
PM MAIL WWW   Вверх
muratboy31
Дата 19.2.2010, 13:56 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 230
Регистрация: 7.1.2010

Репутация: нет
Всего: нет
i found the error.. it is all about memo1 size... if memo1 size is smaller than text lenght then it moves rest of the text to another line below and it makes it crash...
thanks for helps anyway
PM MAIL   Вверх
Данкинг
Дата 19.2.2010, 14:27 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Yersinia pestis
****


Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 9
Всего: 130
muratboy31, set "line break" in Memo off.


--------------------
There's nothing left but silent epitaphs.
PM MAIL WWW   Вверх
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Общие вопросы"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Общие вопросы | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0785 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.