Run time error "424" Необходим объект - VB

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

                    Листинг программы
                
 
                        
                          
                    
Private Sub Command1_Click()
Set WshShell = WScript.CreateObject("WScript.Shell")
kl = True
Do While kl
 Set colProcessList = objWMIService.ExecQuery("Select * from Win32_Process Where Name='proga.exe'")
 If colProcessList.Count = 0 Then
  WshShell.Run "C:\Progra~1\Proga.exe"
 End If
 WScript.Sleep (5000)
Loop
End Sub

------------ Пишет: Run time error "424" Необходим объект. Как исправить?

Решение задачи: «Run time error "424" Необходим объект»

textual
                            Листинг программы 
                        
Set WshShell = CreateObject("WScript.Shell")

Оцени полезность:

10 голосов , оценка 3.6 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Похожие ответы