poszukuje jakiegoś programu, który będzie testował np. procesor (np. taktowanie) lub pamięć komputera (zużycie w danej jednostce czasu).
potrzebuję, aby w programie była opcja wyboru ilości powtórzeń oraz zapisu raportu.
dla ułatwienia zrozumienia o co mi chodzi, program powinien robić mniej więcej coś w stylu polecenia/programu PING, w którym to właśnie można wybrać ilość powtórzeń wysyłania pakietu a później utworzyć z tego raport.
chodziło mi o jakiś konkretny program... większość z tej strony przetestowałem, ale nie mają funkcji na której mi najbardziej zależy.
czyli na tym by program przetestował "coś" n-razy, gdzie to n podamy przed uruchomieniem testu. tak jak to się ma w przypadku PINGa gdzie podajemy ile razy ma wysyłać pakiet.
' ========================================================
' Script Information
'
' Created for:
' Title: Hard Disk Space , CPU and Memory Usage Script
' Author: Jeffrey G. Ablang
' Originally created: 6/19/2008 - 10:58:36
' Original path: PCEWKDB24CF1S D:\share\Coding Project\hdd_cpu_ram_MONv1.csv
' Description: Script to monitor my computers hard disk space, my cpu usage in (%) and memory RAM usage in (%)
'
' ========================================================
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
strLineProcessorTime = strLineProcessorTime & " " & objItem.PercentProcessorTime
Next
'Gets MEMORY Usage
Set colItems = GetObject("WinMgmts:root/cimv2").ExecQuery("Select * FROM Win32_PerfFormattedData_PerfOS_Memory ")
For Each objItem In colItems
strLinePercentCommittedBytesInUse = strLinePercentCommittedBytesInUse & " " & objItem.PercentCommittedBytesInUse
Next
'Gets FREE SPACE Report
Set oDrives = objFSO.Drives
For Each oDrive In oDrives
Select Case oDrive.DriveType
Case 2 'Fixed Drives
strLineDriveSpace = strLineDriveSpace & " " & oDrive.DriveLetter & "\: " & Round(oDrive.FreeSpace / (1024 * 1024)) & "MB free (" & Round(100 * (oDrive.FreeSpace / oDrive.TotalSize), 2) & " %) "
End Select
Next
Odpalamy bat'a, który wrzuca nam wynik testu do pliku csv na c:/ (można lokalizację i nazwę pliku wynikowego zmienić w pierwszym kodzie)
Zatrzymujemy Ctrl-C
Oczywiście skrypt można przerobic i dostosować do własnych potrzeb (zrobić pętlę licznika ze zmiennej przekazywanej w parametrze, wyniki wyrzucać na ekran "echo") i wtedy będziemy mieli coś na styl pinga
Ostatnio zmieniony przez alferx 2008-10-28, 22:13, w całości zmieniany 2 razy
Nie możesz pisać nowych tematów Nie możesz odpowiadać w tematach Nie możesz zmieniać swoich postów Nie możesz usuwać swoich postów Nie możesz głosować w ankietach Nie możesz załączać plików na tym forum Możesz ściągać załączniki na tym forum