![]() |
Внимание, важное сообщение: Дорогие Друзья!
В ноябре далекого 2001 года мы решили создать сайт и форум, которые смогут помочь как начинающим, так и продвинутым пользователям разобраться в операционных системах. В 2004-2006г наш проект был одним из самых крупных ИТ ресурсов в рунете, на пике нас посещало более 300 000 человек в день! Наша документация по службам Windows и автоматической установке помогла огромному количеству пользователей и сисадминов. Мы с уверенностью можем сказать, что внесли большой вклад в развитие ИТ сообщества рунета. Но... время меняются, приоритеты тоже. И, к сожалению, пришло время сказать До встречи! После долгих дискуссий было принято решение закрыть наш проект. 1 августа форум переводится в режим Только чтение, а в начале сентября мы переведем рубильник в положение Выключен Огромное спасибо за эти 24 года, это было незабываемое приключение. Сказать спасибо и поделиться своей историей можно в данной теме. С уважением, ваш призрачный админ, BigMac... |
|
Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » Скриптовые языки администрирования Windows » VBS/WSH/JS - Удаленная установка |
|
VBS/WSH/JS - Удаленная установка
|
Пользователь Сообщения: 52 |
Пытаюсь так
strComputer="remotehost" Set oSoft=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & _ strComputer & "\root\cimv2:Win32_Product") errReturn = oSoft.Install("\\share\product.msi",,True) Wscript.Echo errReturn Ошибка 1619 Если менять "remotehost" на "." локально устанавливает без проблем Пробовал так Const wbemImpersonationLevelDelegate = 4 Set objWbemLocator = CreateObject("WbemScripting.SWbemLocator") Set objConnection = objwbemLocator.ConnectServer _ ("remotehost", "root\cimv2") objConnection.Security_.ImpersonationLevel = wbemImpersonationLevelDelegate Set objSoftware = objConnection.Get("Win32_Product") errReturn = objSoftware.Install("\\share\product.msi",,True) На строке objConnection.Get("Win32_Product") выдает "Ошибка в пакете безопастности" Соответственно меняем удаленный на локальный и все работает без проблем. Используется Windows XP, компы как мой так и удаленный находятся в АД, права администратора со своей доменной учеткой я на них имею. Скрипты для удаления софта, например так: strComputer = "remotehost" Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") Set colSoftware = objWMIService.ExecQuery _ ("Select * from Win32_Product Where Name = 'Google Toolbar for Internet Explorer'") For Each objSoftware in colSoftware wscript.echo objSoftware.Uninstall() Next wscript.echo "Finish" Работает без проблем. Где собака порылась? |
|
Отправлено: 11:07, 22-02-2010 |
Пользователь Сообщения: 52
|
Профиль | Отправить PM | Цитировать В первом варианте нашел, проблема nulsession, но как обойти? Никакие изменения на сервере хранящем инсталляционные пакеты я произвести немогу.
|
Отправлено: 11:34, 22-02-2010 | #2 |
Для отключения данного рекламного блока вам необходимо зарегистрироваться или войти с учетной записью социальной сети. Если же вы забыли свой пароль на форуме, то воспользуйтесь данной ссылкой для восстановления пароля. |
Googler Сообщения: 3665
|
Профиль | Отправить PM | Цитировать Цитата thebas:
Цитата thebas:
|
||
Отправлено: 06:32, 25-02-2010 | #3 |
![]() |
Участник сейчас на форуме |
![]() |
Участник вне форума |
![]() |
Автор темы |
![]() |
Сообщение прикреплено |
| |||||
Название темы | Автор | Информация о форуме | Ответов | Последнее сообщение | |
Установка - Удаленная установка архиватора 7z | Dvizhnyak | Microsoft Windows NT/2000/2003 | 3 | 03-04-2009 13:52 | |
удаленная установка принтера | IDimon | Сетевые технологии | 8 | 18-03-2009 09:30 | |
Удаленная установка программы на Windows 98 | vadets | Microsoft Windows 95/98/Me (архив) | 0 | 11-10-2007 20:57 | |
Удаленная установка FreeBSD | Sadok | Общий по FreeBSD | 10 | 05-05-2007 09:41 | |
[Ъ] Удаленная установка операционной системы | Vadikan | Автоматическая установка Windows 2000/XP/2003 | 0 | 30-07-2006 23:29 |
|