На главную Наши проекты:
Журнал   ·   Discuz!ML   ·   Wiki   ·   DRKB   ·   Помощь проекту
ПРАВИЛА FAQ Помощь Участники Календарь Избранное RSS
msm.ru
! Правила раздела Windows
1. Указывайте версию Вашей ОС.
2. Запрещается размещать запросы и ссылки на кряки, серийники и т.п., а также вопросы нарушения лицензии ПО и его взлома.
3. Не разрешается давать советы из разряда "Поставь Linux".
4. Переустановка ОС - крайнее и безотказное лекарство, которое знают все. В таких советах никто не нуждается.
5. При публикации скриптов пользоваться тегами code. Тип подсветки кода выбирать строго в соответствии с языком публикуемого кода.
6. Прежде чем задать вопрос, обязательно загляните в FAQ и следуйте написанным рекомендациям для устранения проблемы. И если не помогло, а поиск по разделу не дал результатов - только тогда задавайте вопрос на форуме.
7. Вопросы, связанные с проблемами ПО, задавайте в разделе Программное обеспечение
Модераторы: Akina
Страницы: (2) 1 [2]  все  ( Перейти к последнему сообщению )  
> Помогите написать скрипт , последовательный запуск трёх скриптов
    Что б тему не создавать другую решил сдесь отписать, нашел скрипт на удаленный запуск скрипта:
    ExpandedWrap disabled
      strComputer ="192.168.0.13"
      strCommand = "wscript.exe c:\printer.vbs"
      Set locator = CreateObject("wbemscripting.swbemlocator")
      set objwmiservice = locator.connectserver(strComputer,"\root\cimv2","apt3","")
      Set objScheduledJob = objWMIService.Get("Win32_ScheduledJob")
      tyear = mid(now(),7,4)
      for i = 1 to 31
       datex = i & ".03." & tyear & " 01:00:00"
       datey = i & ".10." & tyear & " 01:00:00"
       if weekday (datex,2)="7" then martdate=datex
       if weekday (datey,2)="7" then octoberdate=datey
      next
      CurrTimePlusOneMin = Replace(Left(Right(dateadd ("n",1,Now()), 8), 5), ":", "")
      if now() > martdate and now() < octoberdate then
       RunTime = "********" & CurrTimePlusOneMin & "00.000000+240"
      else
       RunTime = "********" & CurrTimePlusOneMin & "00.000000+180"
      end if
      Res = objScheduledJob.Create(strCommand, RunTime, False, 2^(Weekday(Now(), 2)-1), 0, True, intJobID)

    ругается на 4,1 строку SWbemlocator: Сервер RPC недоступен.
    Служба RPC запущена, как на моей так и на той машине где нужно запустить скрипт. МБ нужно эту службу запустить на серваке? порты 135 и 593 расшарил по локалке в фаерворде
    1 пользователей читают эту тему (1 гостей и 0 скрытых пользователей)
    0 пользователей:


    Рейтинг@Mail.ru
    [ Script execution time: 0,0168 ]   [ 14 queries used ]   [ Generated: 19.07.25, 17:09 GMT ]