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

[Ruslan Demidow]

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

[Sebas]

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

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?!?!?!?

[Ruslan Demidow]

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

P.S. АSP здесь не причём. А вот VBS явно указан в описании раздела - потому сюда и обратился. Только ногами не бейте...

[Ruslan Demidow]

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]

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

[Ruslan Demidow]

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

Жаль и очень жаль.... А где можно почитать по этому поводу? Может ссылкой в меня кинешь?

[Sebas]

не помню, давно эт было(((