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

[Harding, Devon]

Ok modified it a bit; and now working:   oFileName = "c:\cpuuse.txt" Set FSO = CreateObject("Scripting.FileSystemObject") Set oFile = FSO.CreateTextFile(oFileName, True)   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     oFile.WriteLine "PercentProcessorTime: " & objItem.PercentProcessorTime Next   From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf Of Coleman, Hunter Sent: Tuesday, January 24, 2006 10:58 AM To: ActiveDir@mail.activedir.org Subject: RE: [ActiveDir] CPU/Memory usage & .vbs?   The error message is pretty accurate :-)   Try it this way   oFileName = Inputbox("c:\cpuuse.txt","CPU Usage","CPUuse.txt") Set FSO = CreateObject("Scripting.FileSystemObject") Set oFile = FSO.CreateTextFile(oFileName, True)   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     oFile.WriteLine objItem.PercentProcessorTime   Next       From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf Of Harding, Devon Sent: Tuesday, January 24, 2006 8: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.