Ошибка при запуске скрипта 800a01a8

@egorkin · Регистрация: 04.01.2015

Author24 — интернет-сервис помощи студентам

Доброго всем дня. Есть скрипт

Visual Basic

Set objTextFile = objFSO.CreateTextFile("c:\temp\logsTrafSvc.txt", True) 
While 1 
strComputer = "." 
Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") 
Set colServiceList = objWMIService.ExecQuery("Select * from Win32_Service where Name='TrafSvc'") 
For Each objService in colServiceList 
objTextFile.WriteLine objService.State & Date () & "  " & Time () 
If objService.State = "Stopped" Then 
objTextFile.WriteLine "Остановленна, запускаем... " & Date () & "  " & Time () 
        errReturn = objService.StartService() 
End if 
Next 
Wscript.Sleep 18000 ' в милисекундах 
Wend

после запуска система выдает ошибку.
Подскажите в чем может быть проблема?

@egorkin · 16.12.2011, 16:33

Не дождавшись помощи, решил задачу сам, как оказалось мне не хватало одной строки в начале

Visual Basic

1	Set objFSO = CreateObject("Scripting.FileSystemObject")

тему можно закрывать
Спасибо за внимание

	16.12.2011, 16:33