Получить доступ к планировщику из VBS

Программирование на Active Server Pages и VBScript.
Ruslan Demidow
Мужчина!
Мужчина!
Аватара пользователя
 
Сообщения: 987
Зарегистрирован: 25.03.2004 (Чт) 13:39
Откуда: N.Novgorod

Получить доступ к планировщику из VBS

Сообщение Ruslan Demidow » 10.10.2005 (Пн) 10:09

Искал на на сайте мелкомягких описание методов и свойств компьютера доступных через ADSI - так и не смог найти.
А всё для того, чтобы получить доступ из VBS к назначенным заданиям в планировщике.
Ткните плиз, как подключиться к планировщику для работы с его заданиями?
Буду премного благодарен...
Это Ж-ж-ж-ж неспроста (с) Винни-Пух

Sebas
Неуловимый Джо
Неуловимый Джо
Аватара пользователя
 
Сообщения: 3626
Зарегистрирован: 12.02.2002 (Вт) 17:25
Откуда: столько наглости такие вопросы задавать

Сообщение Sebas » 10.10.2005 (Пн) 10:57

Код: Выделить всё
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set objNewJob = objWMIService.Get("Win32_ScheduledJob")
errJobCreated = objNewJob.Create _
    ("Notepad.exe", "********123000.000000-420", _
        True , 1 OR 4 OR 16, , , JobID)
Wscript.Echo errJobCreated


Только причём здесь ASP?!?!?!?
- Я никогда не понимал, почему они приходят ко мне чтобы умирать?

sebas<-@->mail.ru

Ruslan Demidow
Мужчина!
Мужчина!
Аватара пользователя
 
Сообщения: 987
Зарегистрирован: 25.03.2004 (Чт) 13:39
Откуда: N.Novgorod

Сообщение Ruslan Demidow » 10.10.2005 (Пн) 17:33

Спасибо за пример. Показательно. Только насколько я понял без WMI к заданиям не подобраться? Мне нужно с разных серверов получить списки заданий со временами запуска и параметрами.

P.S. АSP здесь не причём. А вот VBS явно указан в описании раздела - потому сюда и обратился. Только ногами не бейте... ;)
Это Ж-ж-ж-ж неспроста (с) Винни-Пух

Ruslan Demidow
Мужчина!
Мужчина!
Аватара пользователя
 
Сообщения: 987
Зарегистрирован: 25.03.2004 (Чт) 13:39
Откуда: N.Novgorod

Сообщение Ruslan Demidow » 14.10.2005 (Пт) 11:25

Sebas, твой код создаёт задание (работает).
А вот мой (см. ниже) не хочет получать информацию о назначенных заданиях. Пишет что в коллекции colJobs нет элементов. Хотя назначенные задания есть (специально тестовое создал).
Тоже через WMI обращаюсь. Ошибок не выдаёт. Но и информацию о заданиях тоже. :(

Код: Выделить всё
Option explicit

Dim WMI, SQuery, S
Dim colJobs, objJob

Const FOR_READING=1
CONST FOR_WRITING=2
Const FOR_APPENDING=1

set WMI=getobject("Winmgmts:")

SQuery="select * from Win32_ScheduledJob"
Set colJobs=WMI.execquery(SQuery)
WScript.Echo colJobs.count

If colJobs.count=0 Then
   msgbox "Установленных заданий нет...",vbokonly, "Список заданий планировщика"
Else
   for Each objJob In colJobs
      With objJob
         S=S & "Название: " & .Caption & vbcrlf
         S=S & "Описание: " & .Description & vbcrlf
         S=S & "Команда: " & .Command & vbcrlf
         S=S & "Статус: " & .JobStatus & vbcrlf
         S=S & "Имя: " & .Name & vbcrlf
         S=S & "Время запуска: " & .StartTime & vbcrlf
         S=S & "Текущее состояние: " & .Status & vbcrlf
         S=S & "/*************************/" & vbcrlf & vbcrlf
      End With
   Next
   SaveReport "c:\Report.txt", true
End if
WScript.Quit(0)

Sub SaveReport(sFileName, bAskShowReport)
   dim ask, shell, FSO, TXT
'On Error Resume Next
Set FSO=CreateObject("Scripting.FileSystemObject")
Set TXT=FSO.OpenTextFile (sFileName,FOR_WRITING ,true)
TXT.Write (S)
TXT.Close
If baskshowreport Then
   ask=msgbox( "Конфигурация данного компьютера сохранена в " & VBcrlf _
      & "текстовый файл " & sfilename & vbcrlf & vbcrlf & _
      "Открыть данный файл в блокноте?", vbyesNo)
   if ask=vbyes then
      set shell=createobject("Wscript.Shell")
      dim cmdLine
      CMDlINE="notepad.exe " & chr(34) & sfilename & Chr(34)
      shell.run cmdLine
   end If
End if
End Sub
Это Ж-ж-ж-ж неспроста (с) Винни-Пух

Sebas
Неуловимый Джо
Неуловимый Джо
Аватара пользователя
 
Сообщения: 3626
Зарегистрирован: 12.02.2002 (Вт) 17:25
Откуда: столько наглости такие вопросы задавать

Сообщение Sebas » 14.10.2005 (Пт) 11:58

это почти бага, мс вкурсе, он видит только созданные программно)))
- Я никогда не понимал, почему они приходят ко мне чтобы умирать?

sebas<-@->mail.ru

Ruslan Demidow
Мужчина!
Мужчина!
Аватара пользователя
 
Сообщения: 987
Зарегистрирован: 25.03.2004 (Чт) 13:39
Откуда: N.Novgorod

Сообщение Ruslan Demidow » 14.10.2005 (Пт) 20:53

Sebas писал(а):это почти бага, мс вкурсе, он видит только созданные программно)))

Жаль и очень жаль.... :( А где можно почитать по этому поводу? Может ссылкой в меня кинешь?
Это Ж-ж-ж-ж неспроста (с) Винни-Пух

Sebas
Неуловимый Джо
Неуловимый Джо
Аватара пользователя
 
Сообщения: 3626
Зарегистрирован: 12.02.2002 (Вт) 17:25
Откуда: столько наглости такие вопросы задавать

Сообщение Sebas » 14.10.2005 (Пт) 22:41

не помню, давно эт было(((
- Я никогда не понимал, почему они приходят ко мне чтобы умирать?

sebas<-@->mail.ru


Вернуться в ASP и VBScript

Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 1

    TopList