RE: [ActiveDir] CPU/Memory usage & .vbs?

[Rich Milburn]

strComputer = "." Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2") Set colItems = objWMIService.ExecQuery(_             "SELECT * FROM Win32_PerfRawData_PerfOS_Processor",,48) For Each objItem in colItems             strOutput = strOutput & vbNewLine & objItem.PercentProcessorTime Next oFileName = Inputbox("c:\cpuuse.txt","CPU Usage","CPUuse.txt") Set FSO = CreateObject("Scripting.FileSystemObject") Set oFile = FSO.CreateTextFile(oFileName, True) oFile.WriteLine strOutput     there was no object defined for intProcessorUse and it wouldn’t have output something for each instance, if there is more than one item in objItems… (mine has 3) ----------------------------------------------------------------------- Rich Milburn MCSE, Microsoft MVP - Directory Services Sr Network Analyst, Field Platform Development Applebee's International, Inc. 4551 W. 107th St Overland Park, KS 66207 913-967-2819 ---------------------------------------------------------------------- ”I love the smell of red herrings in the morning” - anonymous From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf Of Harding, Devon Sent: Tuesday, January 24, 2006 9:25 AM To: ActiveDir@mail.activedir.org Subject: RE: [ActiveDir] CPU/Memory usage & .vbs?   This is what I have. But I get an ‘Object Required’ on intProcessoeUse   strComputer = "." Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2") Set colItems = objWMIService.ExecQuery( _     "SELECT * FROM Win32_PerfRawData_PerfOS_Processor",,48) For Each objItem in colItems     Wscript.Echo "PercentProcessorTime: " & objItem.PercentProcessorTime Next   oFileName = Inputbox("c:\cpuuse.txt","CPU Usage","CPUuse.txt") Set FSO = CreateObject("Scripting.FileSystemObject") Set oFile = FSO.CreateTextFile(oFileName, True)   oFile.WriteLine intProcessorUse.PercentProcessorTime   From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf Of Derek Harris Sent: Monday, January 23, 2006 3:49 PM To: ActiveDir@mail.activedir.org Subject: RE: [ActiveDir] CPU/Memory usage & .vbs?   Very easily; just put the following lines near the top:   oFileName = Inputbox("Enter the path and filename to save the info.","CPU Usage","CPUuse.txt") Set FSO = CreateObject("Scripting.FileSystemObject") Set oFile = FSO.CreateTextFile(oFileName, True)   and put an oFile.WriteLine, with whatever data you want, wherever you want. eg. oFile.WriteLine intProcessorUse.PercentProcessorTime   Of course, it's usually better to put the values into a variable, and then do what you want with the variable...   From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf Of Harding, Devon Sent: Monday, January 23, 2006 12:47 PM To: ActiveDir@mail.activedir.org Subject: RE: [ActiveDir] CPU/Memory usage & .vbs? This is great!   What I need is to use this code to output the current usage percentage to a text file.  Can this be done?   strComputer = "." Set objWMIService = GetObject("winmgmts:" _     & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") set objRefresher = CreateObject("WbemScripting.Swbemrefresher") Set objProcessor = objRefresher.AddEnum _     (objWMIService, "Win32_PerfFormattedData_PerfOS_Processor").objectSet intThresholdViolations = 0 objRefresher.Refresh Do     For each intProcessorUse in objProcessor         If intProcessorUse.PercentProcessorTime > 90 Then             intThresholdViolations = intThresholdViolations + 1                 If intThresholdViolations = 10 Then                     intThresholdViolations = 0                     Wscript.Echo "Processor usage threshold exceeded."                 End If         Else             intThresholdViolations = 0         End If     Next     Wscript.Sleep 6000     objRefresher.Refresh Loop     From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf Of Al Mulnick Sent: Sunday, January 22, 2006 11:52 AM To: ActiveDir@mail.activedir.org Subject: Re: [ActiveDir] CPU/Memory usage & .vbs?   WMI is a pretty easy way to get this done.  What's your comfort level with scripting?   Have you seen this?   http://www.activexperts.com/activmonitor/windowsmanagement/adminscripts/monitoring/performance/   On 1/22/06, Harding, Devon <[EMAIL PROTECTED]> wrote: That being said.  I'm looking for a script that will output the current memory usage (in percentage) & the top cpu processes.  Is this possible?  wmi? ________________________________ From: [EMAIL PROTECTED] on behalf of Michael B. Smith Sent: Sat 1/21/2006 6:14 PM To: ActiveDir@mail.activedir.org Subject: RE: [ActiveDir] OT: .vbs mailing list? Although my most useful information about tough _vbscript_ questions has come from here and from Robbie Allen's various books, there is [EMAIL PROTECTED]. -----Original Message----- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]] On Behalf Of Harding, Devon Sent: Saturday, January 21, 2006 12:17 PM To: ActiveDir@mail.activedir.org Subject: [ActiveDir] OT: .vbs mailing list? Is there a VBSript mailing list out there? -Devon ----------------------------------------- __________________________________ This message and any attachments are solely for the intended recipient and may contain confidential or privileged information. If you are not the intended recipient, any disclosure, copying, use or distribution of the information included in the message and any attachments is prohibited.  If you have received this communication in error, please notify us by reply e-mail and immediately and permanently delete this message and any attachments.  Thank You. List info   : http://www.activedir.org/List..aspx List FAQ    : http://www.activedir.org/ListFAQ.aspx List archive: http://www.mail-archive.com/activedir%40mail.activedir.org/ List info   : http://www.activedir.org/List..aspx List FAQ    : http://www.activedir.org/ListFAQ.aspx List archive: http://www.mail-archive.com/activedir%40mail.activedir.org/ List info   : http://www.activedir.org/List..aspx List FAQ    : http://www.activedir.org/ListFAQ.aspx List archive: http://www.mail-archive.com/activedir%40mail.activedir.org/   __________________________________ This message and any attachments are solely for the intended recipient and may contain confidential or privileged information. If you are not the intended recipient, any disclosure, copying, use or distribution of the information included in the message and any attachments is prohibited. If you have received this communication in error, please notify us by reply e-mail and immediately and permanently delete this message and any attachments. Thank You. -------APPLEBEE'S INTERNATIONAL, INC. CONFIDENTIALITY NOTICE------- PRIVILEGED / CONFIDENTIAL INFORMATION may be contained in this message or any attachments. This information is strictly confidential and may be subject to attorney-client privilege. This message is intended only for the use of the named addressee. If you are not the intended recipient of this message, unauthorized forwarding, printing, copying, distribution, or using such information is strictly prohibited and may be unlawful. If you have received this in error, you should kindly notify the sender by reply e-mail and immediately destroy this message. Unauthorized interception of this e-mail is a violation of federal criminal law. Applebee's International, Inc. reserves the right to monitor and review the content of all messages sent to and from this e-mail address. Messages sent to or from this e-mail address may be stored on the Applebee's International, Inc. e-mail system.