Как настроить запуск программы по расписанию в windows 8.
http://www.isunshare.com/windows-8/open-windows-8-8.1-task-scheduler.html
Код: Выделить всё
' ***********************************************************
' Открытие заданной оснастки, например,
' запускаем диспетчер устройств из командной строки
' osnastki.vbs
' ***********************************************************
Option Explicit dim f, t, mmc_box, Button_Open dim WshShell, WSO
'******************************************************************
' создаем ссылки на объекты
set WshShell = WScript.CreateObject("Wscript.Shell")
set WSO = WScript.CreateObject("Scripting.WindowSystemObject")
'*******************************************************************
' создаем форму
set f = WSO.CreateForm(0, 0, 0, 0, WSO.Translate("WS_CONTROLBOX | WS_MINIMIZEBOX"))
f.Text = "Открытие оснастки Windows"
f.ClientWidth = 400 f.ClientHeight = 100 f.CenterControl()
'***********************************************************************
' элементы формы
' текстовая метка f.TextOut 10,10,"Список оснасток:"
' список
set mmc_box = f.CreateComboBox(120,10,140,20,WSO.Translate("CBS_DROPDOWNLIST"))
mmc_box.add("диспетчер устройств")
mmc_box.add("управление компьютером")
mmc_box.add("дефрагментация диска")
mmc_box.add("журнал событий")
mmc_box.add("службы Windows")
mmc_box.ItemIndex=0
'кнопка открытия оснастки, например,
' диспетчер устройств из командной строки
set Button_Open = f.CreateButton(280,10,100,25,"Открыть")
Button_Open.OnClick = Getref("Open_mmc")
set t = f.CreateHyperLink(130,40,250,25,"www.scriptcoding.ru")
f.Show()
WSO.Run()
' функция для открытия оснастки, например
' диспетчер устройств через командную строку
function Open_mmc() dim mmc
select case(mmc_box.ItemIndex)
case 0
mmc = "devmgmt.msc"
case 1
mmc = "compmgmt.msc"
case 2
mmc = "dfrg.msc"
case 3
mmc = "eventvwr.msc"
case else
mmc = "services.msc"
end select
WshShell.Run "mmc " & mmc
end function
Read more: http://scriptcoding.ru/2013/08/12/dispether-ustrojstv-iz-komandnoy-stroki/#ixzz3GI7V7T6Q
Сейчас этот раздел просматривают: 12 гостей