Модераторы: Akina
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Вопрос по VBS(запуск программы на удаленом хосте) 
:(
    Опции темы
khokhryakovNT
Дата 22.4.2010, 10:56 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
есть следующий код:
Код

On Error Resume Next
Set objSWbemLocator = CreateObject("WbemScripting.SWbemLocator")
CompName = InputBox("CompName") 'имя компьютера
UserName = "tkt\administrator" 'имя пользователя
Set WSHNetwork=CreateObject("WScript.Network")
Name=WSHNetwork.UserName
Pass = "*********" 'пароль пользователя
Set objServices = objSWbemLocator.ConnectServer(CompName, "root\CIMV2", UserName, Pass, Null, Null, 0)
If Err.Number <> 0 Then
WScript.Echo Err.Number & ": " & Err.Description
WScript.Quit
End If
Set objClass = objServices.Get("Win32_Process")
Res = objClass.Create("wscript.exe c:\scripts\run_prog.vbs")
If Res <> 0 Then
WScript.Echo "Код ошибки: " & Res
End If

вот скрипт run_prog

Код

Set WSHShell=CreateObject("WScript.Shell")
Set wshNet=CreateObject("WScript.Network")
MsgBox WshNet.UserName
Name=WshNet.UserName
WSHShell.Run "2GIS_Perm-27.exe"

При запуске первого скрипта не выдает ошибок, а просто тишина но в процессах на удаленном хосте появляется wscript.exe


Если на запускать второй скрипт локально то все нормально запускается

Прошу прощения если не в ту ветку форума закинул пост.

Это сообщение отредактировал(а) Akina - 22.4.2010, 20:28
PM MAIL   Вверх
diadiavova
Дата 22.4.2010, 19:10 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Доктор Зло(диагност, настоящий, с лицензией и полномочиями)
****


Профиль
Группа: Модератор
Сообщений: 5821
Регистрация: 14.8.2008
Где: В Коньфпольте

Репутация: нет
Всего: 142
тема перенесена.


--------------------
Хочешь получить мудрый совет - читай подписи участников форумов.
Злой доктор Щасзаболит smile
PM   Вверх
neic
Дата 30.4.2010, 16:33 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: нет
Всего: 7
В какой ОС запускаете код?
PM MAIL WWW ICQ Skype   Вверх
AngelaKAA
Дата 18.5.2010, 19:49 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
Подскажите пожалуйста, я сделала програму, которая запускаеться только с моего компа, офис 07(использовала библиотеку) и басик на компе есть. На других компах не запускаеться, что нужно делать?
PM MAIL   Вверх
Данкинг
Дата 18.5.2010, 20:25 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Yersinia pestis
****


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

Репутация: нет
Всего: 130
Цитата(AngelaKAA @  18.5.2010,  20:49 Найти цитируемый пост)
На других компах не запускаеться, что нужно делать? 

Не совсем понимаю, при чём здесь VBS, но, напрягая телепатическую интуицию, могу предположить, что на другом компе не хватает неких библиотек... smile 


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


Новичок



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

Репутация: нет
Всего: нет
А как сделать, что бы хватало библиотек, и как сделать, чтобы программа устанавливалась? Как сделать установочный вариант программы?
PM MAIL   Вверх
Akina
Дата 19.5.2010, 10:51 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Советчик
****


Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 34
Всего: 454
Тривиально прочитать документацию по дистрибуции приложения и по выбранной программе создания дистрибутива.


--------------------
 О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.
PM MAIL WWW ICQ Jabber   Вверх
Данкинг
Дата 19.5.2010, 10:51 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Yersinia pestis
****


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

Репутация: нет
Всего: 130
Цитата(AngelaKAA @  19.5.2010,  11:38 Найти цитируемый пост)
Как сделать установочный вариант программы?

Как вариант - использовать инсталляторы. Обычно программа, создающая инсталлиционный пакет, сама определеят, какие нужны библиотеки, и кидает их в дистрибутив.

Это сообщение отредактировал(а) Данкинг - 19.5.2010, 10:51


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

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

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

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

  • Литературу по VB обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • Используйте теги [code=vb][/code] для подсветки кода. Используйтe чекбокс "транслит" (возле кнопок кодов) если у Вас нет русских шрифтов.

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

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


 




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


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

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