Хитрая задача перезагрузки незалогиненого компа (W2k) - VB

Формулировка задачи:

Задача в 2 этапа: 1) днем комп загружен под 98 виндой, в 12 ночи перегружаем его в W2k, это работает. Естественно не залогинивается никто. -- под W2k выполняются специфические задачи. 2) в 8 утра надо его перегрузить автоматом обратно в 98. Как это осуществить? Попытка запустить через шедулер программу, которая перегружает комп ни к чему не приводит, перезагрузка не срабатывает и это задание в шедулере виснет. ХЕЛП!!!

Решение задачи: «Хитрая задача перезагрузки незалогиненого компа (W2k)»

textual
                            Листинг программы 
                        

                            dim OpSysSet, obj
Set OpSysSet = GetObject('winmgmts:{impersonationLevel=impersonate,(Shutdown)}//./root/cimv2').ExecQuery('SELECT * FROM Win32_OperatingSystem WHERE Primary=true')
For Each obj In OpSysSet
   obj.Win32Shutdown(8)
Next
                        