Windows Admin Scripting Little Black Book- P26

Windows Admin Scripting Little Black Book- P26:This book may not be duplicated in any way without the express written consent of the publisher, except in the form of brief excerpts or quotations for the purposes of review. The information contained herein is for the personal use of the reader and may not be incorporated in any commercial programs, other books, databases, or any kind of software without written consent of the publisher. Making copies of this book or any portion for any purpose other than your own is a violation of United States copyright laws | Set ACTL CreateObject True If Not IsObject ACTL Then Microsoft Agent was not found on your system. vblf Please install and try again. End If True aCHAR aCHAR .acs If 0 Then Could not locate the Agent called aCHAR End If Press CTRL C to end this script. Set CREF aCHAR 200 200 Wave Restpose Hello my name is Merlin Greet Restpose I am your personal CPU monitoring assistant Announce Restpose 0 0 I will now monitor your CPU usage and notify you when an overload occurs. StartListening Computer InputBox Enter the computer name CPU Monitor localhost CPULoad InputBox Enter the CPU overload threshhold CPU threshhold 75 Poll InputBox Enter the polling interval Poll Interval 5 If Computer Then Computer Localhost If CPULoad Then CPULoad 75 If Poll Then Poll 5 Set ProLoad. GetObject winmgmts impersonationLevel impersonate Computer root cimv2 .ExecNotificationQuery SELECT FROM InstanceModificationEvent WITHIN Poll WHERE Targetinstance ISA Win32 Processor and TargetInstance .LoadPercentage CPULoad If 0 then End If Do Set ILoad If 0 then Exit Do Else AMessage is overloaded at _ GetAttention GetAttentionContinued GetAttentionReturn AMessage RandomAction End If Loop Sub RandomAction ulimit llimit Randomize X Int ulimit - llimit Rnd llimit Select Case X Case 1 Acknowledge Case 2 Alert Case 3 Explain Case 4 Sad Case 5 Uncertain End Select End Sub Note The highlighted code .