Windows2003-3790/sdktools/pdh/pdhdll/qutils.c
2020-09-30 16:53:55 +02:00

634 lines
25 KiB
C

/*++
Copyright (C) 1995-1999 Microsoft Corporation
Module Name:
qutils.c
Abstract:
Query management utility functions
--*/
#include <windows.h>
#include "strsafe.h"
#include <pdh.h>
#include "pdhitype.h"
#include "pdhidef.h"
#include "pdhmsg.h"
#include "strings.h"
#include "log_bin.h"
#include "log_wmi.h"
#include "perfdata.h"
BOOL
IsValidQuery(
PDH_HQUERY hQuery
)
{
BOOL bReturn = FALSE; // assume it's not a valid query
PPDHI_QUERY pQuery;
__try {
if (hQuery != NULL) {
// see if a valid signature
pQuery = (PPDHI_QUERY) hQuery;
if ((* (DWORD *) & pQuery->signature[0] == SigQuery) && (pQuery->dwLength == sizeof(PDHI_QUERY))) {
bReturn = TRUE;
}
}
}
__except (EXCEPTION_EXECUTE_HANDLER) {
// something failed miserably so we can assume this is invalid
}
return bReturn;
}
BOOL
AddMachineToQueryLists(
PPERF_MACHINE pMachine,
PPDHI_COUNTER pNewCounter
)
{
BOOL bReturn = FALSE; // assume failure
PPDHI_QUERY pQuery;
PPDHI_QUERY_MACHINE pQMachine;
PPDHI_QUERY_MACHINE pLastQMachine;
pQuery = pNewCounter->pOwner;
if (IsValidQuery(pQuery)) {
if (pQuery->pFirstQMachine != NULL) {
// look for machine in list
pLastQMachine = pQMachine = pQuery->pFirstQMachine;
while (pQMachine != NULL) {
if (pQMachine->pMachine == pMachine) {
// found the machine already in the list so continue
bReturn = TRUE;
break;
}
else {
pLastQMachine = pQMachine;
pQMachine = pQMachine->pNext;
}
}
if (pQMachine == NULL) {
// add this machine to the end of the list
pQMachine = G_ALLOC((sizeof(PDHI_QUERY_MACHINE) + (sizeof(WCHAR) * MAX_PATH)));
if (pQMachine != NULL) {
pQMachine->pMachine = pMachine;
pQMachine->szObjectList = (LPWSTR) ( & pQMachine[1]);
pQMachine->pNext = NULL;
pQMachine->lQueryStatus = pMachine->dwStatus;
pQMachine->llQueryTime = 0;
bReturn = TRUE;
// the pPerfData pointer will be tested prior to usage
pQMachine->pPerfData = G_ALLOC(MEDIUM_BUFFER_SIZE);
if (pQMachine->pPerfData == NULL) {
G_FREE(pQMachine);
pQMachine = NULL;
bReturn = FALSE;
SetLastError(PDH_MEMORY_ALLOCATION_FAILURE);
}
else {
pLastQMachine->pNext = pQMachine;
}
}
else {
// unable to alloc memory block so machine cannot
// be added
SetLastError(PDH_MEMORY_ALLOCATION_FAILURE);
}
}
}
else {
// add this as the first machine
pQMachine = G_ALLOC ((sizeof(PDHI_QUERY_MACHINE) + (sizeof(WCHAR) * PDH_MAX_COUNTER_PATH)));
if (pQMachine != NULL) {
pQMachine->pMachine = pMachine;
pQMachine->szObjectList = (LPWSTR) (& pQMachine[1]);
pQMachine->pNext = NULL;
pQMachine->lQueryStatus = pMachine->dwStatus;
pQMachine->llQueryTime = 0;
bReturn = TRUE;
// the pPerfData pointer will be tested prior to usage
pQMachine->pPerfData = G_ALLOC(MEDIUM_BUFFER_SIZE);
if (pQMachine->pPerfData == NULL) {
G_FREE(pQMachine);
pQMachine = NULL;
bReturn = FALSE;
SetLastError(PDH_MEMORY_ALLOCATION_FAILURE);
}
else {
pQuery->pFirstQMachine = pQMachine;
}
}
else {
// unable to alloc memory block so machine cannot
// be added
SetLastError(PDH_MEMORY_ALLOCATION_FAILURE);
}
}
// here pQMachine should be the pointer to the correct machine
// entry or NULL if unable to create
if (pQMachine != NULL) {
// save the new pointer
pNewCounter->pQMachine = pQMachine;
// increment reference count for this machine
pMachine->dwRefCount ++;
// update query perf. object list
AppendObjectToValueList(
pNewCounter->plCounterInfo.dwObjectId, pQMachine->szObjectList, PDH_MAX_COUNTER_PATH);
}
}
else {
SetLastError(PDH_INVALID_HANDLE);
bReturn = FALSE;
}
return bReturn;
}
extern PDH_FUNCTION
PdhiGetBinaryLogCounterInfo(
PPDHI_LOG pLog,
PPDHI_COUNTER pCounter
);
extern PPERF_DATA_BLOCK
PdhWmiMergeObjectBlock(
PPDHI_LOG pLog,
LPWSTR szMachine,
PPDHI_BINARY_LOG_RECORD_HEADER pThisMasterRecord,
PPDHI_BINARY_LOG_RECORD_HEADER pThisSubRecord
);
PDH_FUNCTION
PdhiGetCounterFromDataBlock(
PPDHI_LOG pLog,
PVOID pDataBuffer,
PPDHI_COUNTER pCounter
)
{
PDH_STATUS pdhStatus = ERROR_SUCCESS;
PERFLIB_COUNTER * pPerfCounter = & pCounter->plCounterInfo;
PPDH_RAW_COUNTER pRawValue = & pCounter->ThisValue;
LPWSTR szCompositeInstance = NULL;
DWORD dwDataItemIndex;
LPWSTR szThisInstanceName;
PPDHI_BINARY_LOG_RECORD_HEADER pThisMasterRecord;
PPDHI_BINARY_LOG_RECORD_HEADER pThisSubRecord;
PPDHI_RAW_COUNTER_ITEM_BLOCK pDataBlock;
PPDHI_RAW_COUNTER_ITEM pDataItem;
PPDH_RAW_COUNTER pRawItem;
PPERF_DATA_BLOCK pPerfData;
PPERF_DATA_BLOCK pTmpBlock;
FILETIME ftDataBlock;
FILETIME ftGmtDataBlock;
LONGLONG TimeStamp;
ZeroMemory(& ftDataBlock, sizeof(FILETIME));
ZeroMemory(& ftGmtDataBlock, sizeof(FILETIME));
ZeroMemory(pRawValue, sizeof(PDH_RAW_COUNTER));
pThisMasterRecord = (PPDHI_BINARY_LOG_RECORD_HEADER) pDataBuffer;
pThisSubRecord = PdhiGetSubRecord(pThisMasterRecord, pCounter->dwIndex);
if (pThisSubRecord != NULL) {
if (pThisSubRecord->dwType == BINLOG_TYPE_DATA_PSEUDO) {
PDH_STATUS Status = ERROR_SUCCESS;
DWORD dwOriginal = pCounter->dwIndex;
DWORD dwPrevious;
while (Status == ERROR_SUCCESS && pThisSubRecord) {
if (pThisSubRecord->dwType != BINLOG_TYPE_DATA_PSEUDO) {
break;
}
dwPrevious = pCounter->dwIndex;
Status = PdhiGetBinaryLogCounterInfo(pLog, pCounter);
if ( Status == ERROR_SUCCESS
&& dwPrevious != pCounter->dwIndex) {
pThisSubRecord = PdhiGetSubRecord(pThisMasterRecord, pCounter->dwIndex);
}
}
if (pThisSubRecord == NULL || Status == PDH_ENTRY_NOT_IN_LOG_FILE) {
pCounter->dwIndex = 0;
do {
dwPrevious = pCounter->dwIndex;
Status = PdhiGetBinaryLogCounterInfo(pLog, pCounter);
if (Status == ERROR_SUCCESS && dwPrevious != pCounter->dwIndex) {
pThisSubRecord = PdhiGetSubRecord(pThisMasterRecord, pCounter->dwIndex);
}
if (pThisSubRecord->dwType != BINLOG_TYPE_DATA_PSEUDO) {
break;
}
}
while (Status == ERROR_SUCCESS && pCounter->dwIndex < dwOriginal && pThisSubRecord);
if (pThisSubRecord == NULL || pCounter->dwIndex >= dwOriginal) {
Status = PDH_ENTRY_NOT_IN_LOG_FILE;
}
}
if (Status == PDH_ENTRY_NOT_IN_LOG_FILE) {
pCounter->dwIndex = dwOriginal;
pThisSubRecord = PdhiGetSubRecord(pThisMasterRecord, pCounter->dwIndex);
}
}
}
if (pLog->pLastRecordRead != pDataBuffer) {
pLog->pLastRecordRead = pDataBuffer;
}
if (pThisSubRecord != NULL) {
switch (pThisSubRecord->dwType) {
case BINLOG_TYPE_DATA_LOC_OBJECT:
pTmpBlock = (PPERF_DATA_BLOCK) ((LPBYTE)pThisSubRecord + sizeof(PDHI_BINARY_LOG_RECORD_HEADER));
pPerfData = PdhWmiMergeObjectBlock(
pLog, pCounter->pCounterPath->szMachineName, pThisMasterRecord, pThisSubRecord);
SystemTimeToFileTime(& pPerfData->SystemTime, & ftDataBlock);
TimeStamp = MAKELONGLONG(ftDataBlock.dwLowDateTime, ftDataBlock.dwHighDateTime);
if (pCounter->dwFlags & PDHIC_MULTI_INSTANCE) {
UpdateMultiInstanceCounterValue(pCounter, pPerfData, TimeStamp);
}
else {
UpdateCounterValue(pCounter, pPerfData);
pCounter->ThisValue.TimeStamp = ftDataBlock;
}
break;
case BINLOG_TYPE_DATA_PSEUDO:
case BINLOG_TYPE_DATA_SINGLE:
pRawItem = (PPDH_RAW_COUNTER) ((LPBYTE)pThisSubRecord + sizeof (PDHI_BINARY_LOG_RECORD_HEADER));
RtlCopyMemory(pRawValue, pRawItem, sizeof (PDH_RAW_COUNTER));
pdhStatus = ERROR_SUCCESS;
break;
case BINLOG_TYPE_DATA_MULTI:
if (pCounter->dwFlags & PDHIC_MULTI_INSTANCE) {
// this is a wild card query
//
ULONG i;
ULONG CopySize = pThisSubRecord->dwLength - sizeof(PDHI_BINARY_LOG_RECORD_HEADER);
PPDHI_RAW_COUNTER_ITEM_BLOCK pNewBlock = G_ALLOC(CopySize);
if (pNewBlock == NULL) {
pdhStatus = PDH_MEMORY_ALLOCATION_FAILURE;
}
else if (pCounter->pThisRawItemList != NULL) {
G_FREE(pCounter->pLastRawItemList);
pCounter->pLastRawItemList = pCounter->pThisRawItemList;
}
pCounter->pThisRawItemList = pNewBlock;
RtlCopyMemory(pNewBlock,
(((LPBYTE) pThisSubRecord) + sizeof(PDHI_BINARY_LOG_RECORD_HEADER)),
CopySize);
}
else if (pPerfCounter->szInstanceName != NULL) {
DWORD dwInstanceId = pCounter->pCounterPath->dwIndex;
DWORD dwInstanceSize = lstrlenW(pPerfCounter->szInstanceName) + 1;
if (pPerfCounter->szParentInstanceName != NULL) {
dwInstanceSize += lstrlenW(pPerfCounter->szParentInstanceName) + 1;
}
szCompositeInstance = G_ALLOC(sizeof(WCHAR) * dwInstanceSize);
if (szCompositeInstance != NULL) {
if (pPerfCounter->szParentInstanceName != NULL) {
StringCchPrintfW(szCompositeInstance, dwInstanceSize,
L"%ws/%ws",
pPerfCounter->szParentInstanceName,
pPerfCounter->szInstanceName);
}
else {
StringCchCopyW(szCompositeInstance, dwInstanceSize, pPerfCounter->szInstanceName);
}
}
else {
pdhStatus = PDH_MEMORY_ALLOCATION_FAILURE;
break;
}
pDataBlock = (PPDHI_RAW_COUNTER_ITEM_BLOCK)
((LPBYTE) pThisSubRecord + sizeof (PDHI_BINARY_LOG_RECORD_HEADER));
pdhStatus = PDH_ENTRY_NOT_IN_LOG_FILE;
pRawValue->CStatus = PDH_CSTATUS_NO_INSTANCE;
for (dwDataItemIndex = 0; dwDataItemIndex < pDataBlock->dwItemCount; dwDataItemIndex++) {
pDataItem = &pDataBlock->pItemArray[dwDataItemIndex];
szThisInstanceName = (LPWSTR) ((LPBYTE) pDataBlock + (DWORD_PTR) pDataItem->szName);
if (lstrcmpiW(szThisInstanceName, szCompositeInstance) == 0) {
if (dwInstanceId == 0) {
pdhStatus = ERROR_SUCCESS;
pRawValue->CStatus = pDataBlock->CStatus;
pRawValue->TimeStamp = pDataBlock->TimeStamp;
pRawValue->FirstValue = pDataItem->FirstValue;
pRawValue->SecondValue = pDataItem->SecondValue;
pRawValue->MultiCount = pDataItem->MultiCount;
break;
}
else {
dwInstanceId --;
}
}
}
}
else {
pdhStatus = PDH_ENTRY_NOT_IN_LOG_FILE;
pRawValue->CStatus = PDH_CSTATUS_INVALID_DATA;
}
break;
default:
pdhStatus = PDH_LOG_TYPE_NOT_FOUND;
pRawValue->CStatus = PDH_CSTATUS_INVALID_DATA;
break;
}
}
else {
pdhStatus = PDH_ENTRY_NOT_IN_LOG_FILE;
pRawValue->CStatus = PDH_CSTATUS_INVALID_DATA;
}
G_FREE(szCompositeInstance);
return pdhStatus;
}
LONG
GetQueryPerfData(
PPDHI_QUERY pQuery,
LONGLONG * pTimeStamp
)
{
LONG lStatus = PDH_INVALID_DATA;
PPDHI_COUNTER pCounter;
PPDHI_QUERY_MACHINE pQMachine;
LONGLONG llCurrentTime;
LONGLONG llTimeStamp = 0;
BOOLEAN bCounterCollected = FALSE;
BOOL bLastLogEntry;
if (pQuery->hLog == H_REALTIME_DATASOURCE) {
FILETIME GmtFileTime;
FILETIME LocFileTime;
// this is a real-time query so
// get the current data from each of the machines in the query
// (after this "sequential" approach is perfected, then the
// "parallel" approach of multiple threads can be developed
//
// get time stamp now so each machine will have the same time
GetSystemTimeAsFileTime(& GmtFileTime);
FileTimeToLocalFileTime(& GmtFileTime, & LocFileTime);
llTimeStamp = MAKELONGLONG(LocFileTime.dwLowDateTime, LocFileTime.dwHighDateTime);
pQMachine = pQuery->pFirstQMachine;
while (pQMachine != NULL) {
pQMachine->llQueryTime = llTimeStamp;
lStatus = ValidateMachineConnection(pQMachine->pMachine);
if (lStatus == ERROR_SUCCESS) {
// machine is connected so get data
lStatus = GetSystemPerfData(
pQMachine->pMachine->hKeyPerformanceData,
& pQMachine->pPerfData,
pQMachine->szObjectList,
FALSE); // never query the costly data objects as a group
// save the machine's last status
pQMachine->pMachine->dwStatus = lStatus;
// if there was an error in the data collection,
// set the retry counter and wait to try again.
if (lStatus != ERROR_SUCCESS) {
GetSystemTimeAsFileTime(& LocFileTime);
llCurrentTime = MAKELONGLONG(LocFileTime.dwLowDateTime, LocFileTime.dwHighDateTime);
pQMachine->pMachine->llRetryTime = llCurrentTime + RETRY_TIME_INTERVAL;
}
}
pQMachine->lQueryStatus = lStatus;
// get next machine in query
pQMachine = pQMachine->pNext;
}
// now update the counters using this new data
if ((pCounter = pQuery->pCounterListHead) != NULL) {
DWORD dwCollected = 0;
do {
if (pCounter->dwFlags & PDHIC_COUNTER_OBJECT) {
if (UpdateCounterObject(pCounter)) {
dwCollected ++;
}
}
else if (pCounter->dwFlags & PDHIC_MULTI_INSTANCE) {
if (UpdateRealTimeMultiInstanceCounterValue (pCounter)) {
dwCollected ++;
}
}
else {
// update single instance counter values
if (UpdateRealTimeCounterValue(pCounter)) {
dwCollected ++;
}
}
pCounter = pCounter->next.flink;
}
while (pCounter != NULL && pCounter != pQuery->pCounterListHead);
lStatus = (dwCollected > 0) ? ERROR_SUCCESS : PDH_NO_DATA;
}
else {
// no counters in the query (?!)
lStatus = PDH_NO_DATA;
}
}
else {
// read data from log file
// get the next log record entry and update the
// corresponding counter entries
PPDHI_LOG pLog = NULL;
DWORD dwLogType = 0;
__try {
pLog = (PPDHI_LOG) (pQuery->hLog);
dwLogType = LOWORD(pLog->dwLogFormat);
lStatus = ERROR_SUCCESS;
}
__except (EXCEPTION_EXECUTE_HANDLER) {
pQuery->dwLastLogIndex = (ULONG) -1;
lStatus = PDH_INVALID_HANDLE;
}
if (lStatus == ERROR_SUCCESS) {
if (dwLogType == PDH_LOG_TYPE_BINARY) {
if (pQuery->dwLastLogIndex == 0) {
lStatus = PdhiReadTimeWmiRecord(
pLog,
* (ULONGLONG *) & pQuery->TimeRange.StartTime,
NULL,
0);
pQuery->dwLastLogIndex = BINLOG_FIRST_DATA_RECORD;
}
else {
lStatus = PdhiReadNextWmiRecord(pLog, NULL, 0, TRUE);
}
if (lStatus != ERROR_SUCCESS && lStatus != PDH_MORE_DATA) {
pQuery->dwLastLogIndex = (DWORD) -1;
}
else {
pQuery->dwLastLogIndex --;
}
}
else if (pQuery->dwLastLogIndex == 0) {
// then the first matching entry needs to be
// located in the log file
lStatus = PdhiGetMatchingLogRecord(
pQuery->hLog,
(LONGLONG *) & pQuery->TimeRange.StartTime,
& pQuery->dwLastLogIndex);
if (lStatus != ERROR_SUCCESS) {
// the matching time entry wasn't found in the log
pQuery->dwLastLogIndex = (DWORD) -1;
}
else {
// decrement the index so it can be incremented
// below. 0 is not a valid entry so there's no
// worry about -1 being attempted accidently.
pQuery->dwLastLogIndex--;
}
}
if (pQuery->dwLastLogIndex != (DWORD) -1) {
bLastLogEntry = FALSE;
pQuery->dwLastLogIndex ++; // go to next entry
if ((pCounter = pQuery->pCounterListHead) != NULL) {
DWORD dwCounter = 0;
do {
if (dwLogType == PDH_LOG_TYPE_BINARY) {
// save current value as last value since we are getting
// a new one, hopefully.
pCounter->LastValue = pCounter->ThisValue;
lStatus = PdhiGetCounterFromDataBlock(
pLog,
pLog->pLastRecordRead,
pCounter);
}
else {
lStatus = PdhiGetCounterValueFromLogFile(
pQuery->hLog,
pQuery->dwLastLogIndex,
pCounter);
}
if (lStatus != ERROR_SUCCESS) {
// see if this is because there's no more entries
if (lStatus == PDH_NO_MORE_DATA) {
bLastLogEntry = TRUE;
break;
}
}
else if (dwLogType == PDH_LOG_TYPE_BINARY) {
if (pCounter->ThisValue.CStatus == PDH_CSTATUS_VALID_DATA) {
llTimeStamp = pLog->llFileSize;
if (pLog->llFileSize > pQuery->TimeRange.EndTime) {
lStatus = PDH_NO_MORE_DATA;
bLastLogEntry = TRUE;
break;
}
dwCounter ++;
}
}
else {
// single entry or multiple entries
//
if (pCounter->ThisValue.CStatus == PDH_CSTATUS_VALID_DATA) {
llTimeStamp = MAKELONGLONG(pCounter->ThisValue.TimeStamp.dwLowDateTime,
pCounter->ThisValue.TimeStamp.dwHighDateTime);
if (llTimeStamp > pQuery->TimeRange.EndTime) {
lStatus = PDH_NO_MORE_DATA;
bLastLogEntry = TRUE;
break;
}
dwCounter ++;
}
bCounterCollected = TRUE;
}
// go to next counter in list
pCounter = pCounter->next.flink;
}
while (pCounter != NULL && pCounter != pQuery->pCounterListHead);
if (bLastLogEntry) {
lStatus = PDH_NO_MORE_DATA;
}
else if (dwCounter == 0) {
lStatus = PDH_NO_DATA;
}
else if (bCounterCollected) {
lStatus = ERROR_SUCCESS;
}
}
else {
// no counters in the query (?!)
lStatus = PDH_NO_DATA;
}
}
else {
// all samples in the requested time frame have
// been returned.
lStatus = PDH_NO_MORE_DATA;
}
}
}
* pTimeStamp = llTimeStamp;
return lStatus;
}
DWORD
WINAPI
PdhiAsyncTimerThreadProc(
LPVOID pArg
)
{
PPDHI_QUERY pQuery;
DWORD dwMsWaitTime;
PDH_STATUS Status;
FILETIME ftStart;
FILETIME ftStop;
LONGLONG llAdjustment;
DWORD dwInterval;
LONG lStatus = ERROR_SUCCESS;
LONGLONG llTimeStamp;
pQuery = (PPDHI_QUERY) pArg;
dwInterval = dwMsWaitTime = pQuery->dwInterval * 1000; // convert sec. to mS.
// wait for timeout or exit event, then update the specified query
while ((lStatus = WaitForSingleObject(pQuery->hExitEvent, dwMsWaitTime)) != WAIT_OBJECT_0) {
// time out elapsed so get new sample.
GetSystemTimeAsFileTime(& ftStart);
lStatus = WAIT_FOR_AND_LOCK_MUTEX(pQuery->hMutex);
if (lStatus == ERROR_SUCCESS) {
if (pQuery->dwFlags & PDHIQ_WBEM_QUERY) {
Status = GetQueryWbemData(pQuery, & llTimeStamp);
} else {
Status = GetQueryPerfData(pQuery, & llTimeStamp);
}
SetEvent (pQuery->hNewDataEvent);
RELEASE_MUTEX(pQuery->hMutex);
GetSystemTimeAsFileTime(& ftStop);
llAdjustment = * (LONGLONG *) & ftStop;
llAdjustment -= * (LONGLONG *) & ftStart;
llAdjustment += 5000; // for rounding
llAdjustment /= 10000; // convert 100ns Units to ms
if (dwInterval > llAdjustment) {
dwMsWaitTime = dwInterval - (DWORD) (llAdjustment & 0x00000000FFFFFFFF);
}
else {
dwMsWaitTime = 0; // overdue so do it now.
}
}
}
return lStatus;
}