Windows-Server-2008-R2

Windows 2008 R2:Perfmon,多個數據收集集,有可能

  • March 21, 2013

我正在嘗試在我們的網路伺服器上設置一些性能監控。

我認為擁有 2 個單獨的數據收集集是有意義的,一個帶有用於硬體和作業系統的計數器,另一個用於 Web 資訊(.net 性能、每分鐘連接數、錯誤等)。

我設置了時間表,以便兩者同時執行,但一個總是在 5 秒後退出。是否可以同時執行多個數據收集器集?

好吧,這些年來我在許多性能日誌中都遇到了同樣的問題。對我有用的解決方法是:

  • 僅在一項作業中配置所有計數器
  • 確保目標文件夾不受系統保護
  • 使用 relog -q 一次“提取”所有計數器
  • 使用一些腳本(我使用 vbscrip)使用您真正需要的計數器將大文件“拆分”為較小的文件。

我認為這種方法要好得多,因為:

  1. 您可以在聚會後檢查“更多”計數器並過濾它們,但您始終可以選擇獲取“其他”計數器。
  2. relog 可以導出為 csv 或 txt,並將其解析為圖形

在我的伺服器中,在處理之後,我通常會得到大約 6-8 個不同的文件、csv 和其他腳本,將它們載入到圖表 DDBB 中以進行定期查詢。

希望能幫助到你。

              • 附加資訊 - - - - - - - -

這是腳本的一部分,不是英語,但我認為如果您對腳本有所了解(我相信您知道),您就會明白這一點

我有一個“腳本”文件夾、一個“度量”文件夾和一個“計數器”文件夾,基本上,我使用不同的參數和計數器但相同的“輸入”啟動 relog,所以我得到與我想要提取的計數器組一樣多的文件.

如果將它們導出為二進制 (BLG),則可以使用性能控制台打開它們(也適合調試)。

' *** Constantes ***
' Algunas incluyen el espacio para que sea mas comodo su concatenacion
Const LanzaScript = "cscript "
Const ScriptConversion = "CambiaFormatoFechaYCaracterDecimal.vbs "
Const ArchivoMetrica = "DataCollector01.blg"
Const Para_Relog = "relog.exe "
Const Para_FormatoBin = " -f BIN "
Const Para_ExtBin = ".blg"
Const Para_FormatoCsv = " -f CSV "
Const Para_ExtCSV = ".csv"
Const Para_Contadores = " -cf "
Const Para_Salida = " -o "
Const Directorio_Salida = "D:\Metricas\"
Const Para_Confirmacion = " -y "

' Comprobaciones previas
CompruebaUso
CompruebaArgumentos

' Variables
Dim fso
Dim DirectorioMetricas
Dim DirectorioContadores
Dim Archivo

Dim objShell
Dim Estado
Dim Cmdz

' Objetos de ambito global
Set fso = CreateObject("Scripting.FileSystemObject")
Set objShell = CreateObject("WScript.Shell")
Set DirectorioMetricas = fso.GetFolder (WScript.Arguments(0))
Set DirectorioContadores = fso.GetFolder (WScript.Arguments(1))

' Comprobamos o creamos el directorio de salida
If Not fso.FolderExists (Directorio_Salida & "\" & Right (WScript.Arguments(0),6)) Then
   fso.CreateFolder (Directorio_Salida & "\" & Right (WScript.Arguments(0),6))
End If

' Algoritmo
If WScript.Arguments.Count = 3 Then
   Set Archivo = fso.GetFile (WScript.Arguments(1) & "\" & WScript.Arguments(2))
   ProcesaMetrica (Archivo)
Else
   For Each Archivo In DirectorioContadores.Files
       ProcesaMetrica (Archivo)
   Next
End If
' Salida

' Funciones
Sub ProcesaMetrica (Archivo)
   Dim Cmdz
   Dim fso
   ' Extraemos contadores a formato binario
   Cmdz = Transforma (Archivo, "BIN")
   objShell.Run Cmdz,2,True
   ' Extraemos contadores a formato CSV
   Cmdz = Transforma (Archivo, "CSV")
   objShell.Run Cmdz,2,True
   ' Cambiamos orden de fecha y caracter decimal
   Cmdz = CambiaFormato (Archivo.Name)
   objShell.Run Cmdz,2,True
End Sub

Function Transforma (Contador, tipo)
' tipo puede ser "BIN" o "CSV"
   Dim Cmdz
   Select Case LCase(tipo)
       Case "bin"
           ' Extraemos contadores a formato binario
           Cmdz = Para_Relog & Chr(34) & DirectorioMetricas & "\" & ArchivoMetrica & Chr(34)
           Cmdz = Cmdz & Para_Contadores & Chr(34) & Contador & Chr(34) & Para_FormatoBin & Para_Salida
           Cmdz = Cmdz & Chr(34) & Directorio_Salida & Right(WScript.Arguments(0),6) & "\" & Archivo.Name & Para_ExtBin & Chr(34) & Para_Confirmacion
           WScript.Echo "*** Para BLG :" & Cmdz
       Case "csv"
           ' Extraemos contadores a formato CSV
           Cmdz = Para_Relog & Chr(34) & DirectorioMetricas & "\" & ArchivoMetrica & Chr(34)
           Cmdz = Cmdz & Para_Contadores & Chr(34) & Contador & Chr(34) & Para_FormatoCsv & Para_Salida
           Cmdz = Cmdz & Chr(34) & Directorio_Salida & Right(WScript.Arguments(0),6) & "\" & Archivo.Name & Para_ExtCSV & Chr(34) & Para_Confirmacion
           WScript.Echo "*** Para CSV :" & Cmdz
   End Select
   Transforma = Cmdz
End Function

引用自:https://serverfault.com/questions/490023