Windows 2008 R2：Perfmon，多个数据收集集，这是可能的

好吧，我在这些年来的许多性能日志中都遇到了同样的问题。 我的解决方法对我很有用：

• 只在一个作业中configuration所有计数器
• 确保目标文件夹不受系统保护
• 使用relog -q一次来“提取”所有计数器
• 使用一些脚本（我使用vbscrip）来将小文件中的大文件与您真正需要的计数器“分离”。

这个方法在我看来好得多，因为：

1. 你可以检查“更多”的计数器，并在收集后过滤，但你总是可以select“别人”计数器。
2. relog可以导出到csv或txt，并parsing它的graphics

在我的服务器和处理完成后，我通常会得到大约6-8个不同的文件，csv和其他脚本，将它们加载到DDBB的图表中以进行定期查询。

希望能帮助到你。

– – – – – – – 附加信息 – – – – – – – –

这是脚本的一部分，不是英语，但我认为如果你对脚本有一点了解，你会明白的（我相信你是这么做的）

我有一个“脚本”文件夹，一个“公制”文件夹和一个“计数器”文件夹，基本上，我启动重新日志与不同的参数和计数器，但同样的“input”，所以我得到尽可能多的文件， 。

如果将它们导出为二进制（BLG），则可以使用性能控制台打开它们（也适用于debugging）。

' *** 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