BlagoYar
Русь Великая, Очнись! Поднимись с колен Родная!
- Сообщения
- 99
- Репутация
- -1
Нашёл на англофоруме такой скрипт
Но при выполнении ругается на
Как это поправить?
Код:
$servicename = 'TotalCMD'
$stdout = Run('sc.exe query ' & $servicename, '', @SW_HIDE, 2)
$data = _StdOut($stdout)
Func _StdOut($stdout)
Local $data
Local $Status
While 1
$data = StdOutRead($stdout)
If @error Then $Status = 'Error'
If $data Then
$data = StringStripWS($data, 4)
Select
Case StringInStr($data, 'STATE : 1')
$Status = 'Stopped'
Case StringInStr($data, 'STATE : 4')
$Status = 'Running'
Case Else
$Status = 'Not Installed'
EndSelect
Else
Sleep(100)
EndIf
MsgBox(0, 'Service Status', $Status)
WEnd
EndFunc
Но при выполнении ругается на
$Status
в MsgBox
Как это поправить?