สคริปเช็คพื้นทีฮาร์ดิกส์แต่ละไดร์ว เช็ค computername,cpu,RAM ภายในคลิ๊กเดียว

[akenan2007_old]

Script to monitor my computers hard disk space, cpu usage in (%) and memory RAM usage in (%)

เป็นการเช็คHard Disk Space , CPU and Memory Usage Script
monitor my computers hard disk space, my cpu usage in (%) and memory RAM usage in (%)

สามารดัดเปลงเปลี่ยนพาร์ทไปยังเซอร์ฟเวอร์ของเราได้เลยน่ะครับ
เป็นvbscriptน่ะครับ

[hide=2]

เวลาคลิ๊กแล้วไฟล์นี้จะเซฟไปยังไดร์ว D:\share\Coding Project\hdd_cpu_ram_MONv1.csv น่ะครับ

[code]Option Explicit

Dim oWsh, oWshSysEnv, objFSO, objWMIService
Dim oDrives, oDrive, objOutFile, colItems, objItem
Dim strLineDate, strLineTime, strLineProcessorTime, strLineDriveSpace, strLinePercentCommittedBytesInUse

Set oWsh = WScript.CreateObject("WScript.Shell")
Set oWshSysEnv = oWsh.Environment("PROCESS")
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objWMIService = GetObject("winmgmts:\\.\root\CIMV2")

strLineDate = Date()
strLineTime = Time()

'Gets PROCESSOR Usage
Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_PerfFormattedData_PerfOS_Processor WHERE Name = '_Total'")
For Each objItem In colItems