'=============
'Initialize MOM Scripting Variables
'=============
Dim oAPI
Set oAPI = CreateObject("Mom.ScriptAPI")
If Err <> 0 Then
Wscript.Quit -1
End If
'=============
'Helper methods
'=============
' Method: CreateEvent
' Description: Logs Event
' Parameters: source, eventId, eventtype(error/warning/info/success), errormsg
'=============
Sub CreateEvent(lngEventID, lngEventType, strMsg)
Call oAPI.LogScriptEvent(EVENT_SOURCE, lngEventID, lngEventType, strMsg)
End Sub
'=============
' Method: HResultToString
' Description: Returns hresult value in string format 0x00000000(0)
' Parameters: hresult
'=============
Function HResultToString(hresult)
HResultToString = "0x" & Hex(hresult) & "(" & hresult & ")"
End Function
'=============
' Method: RegRead
' Description: Returns registry location value
' Parameters: strKey
'=============
Function RegRead(strKey)
On Error Resume Next
RegRead = "..."
Dim objShell
Set objShell = CreateObject("WScript.Shell")
RegRead = objShell.RegRead(strKey)
Set objShell = Nothing
End Function
ConvertDateTime = FormatDateTime(objDate) & " " & FormatDateTime(objTime)
End Function
'=============
' Method: IsWMIRunning
' Description: Returns true/false
' Parameters: -
'=============
Function IsWMIRunning()
Dim objWMI
On Error Resume Next
Set objWMI = GetObject("winmgmts:root\cimv2")
If Err Then
IsWMIRunning = False
CreateEvent _
9013, _
EVENT_TYPE_ERROR, _
"The 'Windows Management Instrumentation' service (WinMgmt.exe) was not running when MOM tried to run a script that is dependent on this service. Check if the start up mode of this service is not set to 'disabled'."
Else
IsWMIRunning = True
End If
End Function
'=============
' Method: WMIExecQuery
' Description: Returns an object of type SWbemObjectSet
' Parameters:
' sNamespace - A WMI Namespace (ex. winmgmts:\\COMPUTERNAME\ROOT\cimv2).
' sQuery - A SQL Query (ex. SELECT * FROM Win32_OperatingSystem)
' iAlert - To echo/raise error
'=============
Function WMIExecQuery(sNamespace, sQuery, iAlert)
Dim oWMI, oQuery
Dim nErrNumber, sErrDescription
Dim nInstanceCount
On Error Resume Next
Set oWMI = GetObject(sNamespace)
On Error Goto 0
If IsEmpty(oWMI) And iAlert <> 0 Then
WScript.Echo "Unable to open WMI Namespace " & sNamespace
Err.Raise 9100, "Unable to open WMI Namespace " & sNamespace, "Check to see if the WMI service is enabled and running, and ensure this WMI namespace."
End If
On Error Resume Next
Set oQuery = oWMI.ExecQuery(sQuery)
nErrNumber = Err.Number
sErrDescription = Err.Description
On Error Goto 0
If (IsEmpty(oQuery) Or nErrNumber <> 0) And iAlert <> 0 Then
WScript.Echo "The Query '" & sQuery & "' returned an invalid result set. Error:" & nErrNumber & ", " & sErrDescription & "."
Err.Raise 9100, "The Query '" & sQuery & "' returned an invalid result set.", "Please check to see if this is a valid WMI Query. Error:" & nErrNumber & ", " & sErrDescription & "."
End If
'Determine if we queried a valid WMI class - Count will return 0 or empty
On Error Resume Next
nInstanceCount = oQuery.Count
nErrNumber = Err.Number
sErrDescription = Err.Description
On Error Goto 0
If nErrNumber <> 0 And iAlert <> 0 Then
WScript.Echo "The Query '" & sQuery & "' did not return any valid instances. Error:" & nErrNumber & ", " & sErrDescription & "."
Err.Raise 9100, "The Query '" & sQuery & "' did not return any valid instances.", "Please check to see if this is a valid WMI Query. Error:" & nErrNumber & ", " & sErrDescription & "."
End If
Set WMIExecQuery = oQuery
Set oQuery = Nothing
Set oWMI = Nothing
End Function
'=============
' Method: IsRunningAsSystem
' Description: Returns true/false
' Parameters: -
' Comments: If IsRunningAsSystem is False the caller should check if there is any error (If Err Then ...).
'=============
Function IsRunningAsSystem
Dim WshNetwork
Dim WMISystemAcct
IsRunningAsSystem = False
Set WshNetwork = CreateObject("WScript.Network")
' Use the well-known SID of the system account ("S-1-5-18") to get the correspondent object
Set WMISystemAcct = GetObject("WinMgmts:root/cimv2:Win32_SID='S-1-5-18'")
' WshNetwork.UserName gives the account running the current thread
' WMISystemAcct.AccountName gets the localized name of the system account
' No worries with string case in the comparsion below since, if the account is
' system, the name is extracted from the same location for both objects
If WshNetwork.UserName = WMISystemAcct.AccountName Then
IsRunningAsSystem = True
End If
End Function
'=============
'=============
'Exchange specific Helper methods
'=============
'=============
'=============
' Method: GetNamingContext
' Description: Returns propertyValue from rootDSE object
' Parameters: strPropertyName
'=============
Function GetNamingContext(strPropertyName)
GetNamingContext = ""
Dim IADsRootDSE
Set IADsRootDSE = GetObject("LDAP://rootDSE")
GetNamingContext = IADsRootDSE.Get(strPropertyName)
Set IADsRootDSE = Nothing
End Function
'=============
' Method: GetRootGC
' Description: Returns RootGC
' Parameters: -
'=============
Function GetRootGC()
Dim oGCCollection, oGC
Set oGCCollection = GetObject("GC:")
For each oGC in oGCCollection
Set GetRootGC = oGC
Next
End Function
'=============
' Method: GetCNValue
' Description: -
' Parameters: iOcurr, strData
'=============
Function GetCNValue(iOcurr, strData)
GetCNValue = GetTokValue(iOcurr, "CN=", ",", strData)
End Function
'=============
' Method: GetTokValue
' Description: -
' Parameters: iOcurr, strStartTok, strEndTok, strData
'=============
Function GetTokValue(iOcurr, strStartTok, strEndTok, strData)
Dim iIni, iEnd, iTokLen
iTokLen = Len(strStartTok)
iIni = 1
While iOcurr > 0 ' Skip to the desired occurence
iIni = InStr(iIni, strData, strStartTok, vbTextCompare) + iTokLen
iOcurr = iOcurr - 1
WEnd
iEnd = InStr(iIni, strData, strEndTok, vbTextCompare)
GetTokValue = Mid(strData, iIni, (iEnd - iIni))
End Function
'=============
' Format Constants
'=============
Dim REC_DELIM, INFO_DELIM, IDENT
REC_DELIM = vbCr
INFO_DELIM = vbCr & vbCr
IDENT = " "
'=============
' Method: OutputInfo
' Description: -
' Parameters: strValues, strProps, iPropsFrom, iLevel, blnHierarchical
' Remarks: Very similar to OutDiskInfo sub in Disk_Space_Problem.vbs
'=============
Function OutputInfo(strValues, strProps, iPropsFrom, iLevel, blnHierarchical)
Dim arrValues, arrProps, strLvl
Dim i
If strValues = "" Then Exit Function
On Error Resume Next
OutputInfo = ""
arrValues = Split(strValues, ";")
arrProps = Split(strProps, ",")
While iLevel > 0
strLvl = strLvl & IDENT
iLevel = iLevel - 1
WEnd
For i = iPropsFrom To UBound(arrProps)
OutputInfo = OutputInfo & strLvl & arrProps(i) & ": " & arrValues(i) & REC_DELIM
If i = iPropsFrom and blnHierarchical Then strLvl = strLvl & IDENT
Next
On Error GoTo 0
End Function
'Copyright (c) Microsoft Corporation. All rights reserved.
'*************************************************************************
' $ScriptName: "Collect Operating System Server Information" $
'
' Purpose - To collect information about the OS configuration of this machine which is
' relevant to its performance as an Exchange server
'
' $File: Collect_OS_Server_Information.vbs $
'*************************************************************************
SetLocale("en-us")
Const ONE_MEGA_IN_BYTES = 1048576
Const ONE_MEGA_IN_KBYTES = 1024
Const ONE_GIGA_IN_BYTES = 1073741824 ' Use an approximation instead of the actual GB = 1073741824
Const TWO_GIGA_IN_KBYTES = 2097024
Dim oArgs, TargetNetbiosComputer
Dim strOutput
Set oArgs = WScript.Arguments
if oArgs.Unnamed.Count < 1 Then
Call WScript.Quit(-1)
end if
TargetNetbiosComputer = oArgs(0)
On Error Resume Next
If IsWMIRunning() Then
strOutput = "Computer and OS Information" & INFO_DELIM
GetW2kInfoFromWMI TargetNetbiosComputer, strOutput
If Err Then
CreateEvent _
UNEXPECTED_EXCEPTION_EVENT_ID, _
EVENT_TYPE_ERROR, _
"An unhandled exception happened executing the response to event." & REC_DELIM & _
"Error source: " & Err.Source & REC_DELIM & _
"Error description: " & Err.Description & REC_DELIM & _
"Error number: " & HResultToString(Err.Number)
End If
End If
' -- Subs -----------------------------------------------------------------------
Sub GetW2kInfoFromWMI(strComputer, strOutput)
Dim strWMIData, strFriendlyProps
Dim arrData, dblPhysMem
Dim strCPUData, strLastCPUData, iCPUTypeCountstrDriveData
Dim strPageFileData, strHotFixData
' Computer System
strWMIData = ""
strFriendlyProps = "System type,Manufacturer,Model,Number of processors,Physical memory (MBytes)"
GetWMIInfo "SystemType,Manufacturer,Model,NumberOfProcessors,TotalPhysicalMemory", "Select * from Win32_ComputerSystem", strWMIData, ";", REC_DELIM
For each strCPUData in Split(strWMIData, REC_DELIM)
If strCPUData = "" Then
Exit For
End If
If strLastCPUData = strCPUData Then
iCPUTypeCount = iCPUTypeCount + 1
Else
If iCPUTypeCount > 0 Then
strOutput = strOutput & iCPUTypeCount & " x Processor(s):" & REC_DELIM
strOutput = strOutput & OutputInfo(strLastCPUData, strFriendlyProps, 0, 1, False)
strOutput = strOutput & REC_DELIM
End If
iCPUTypeCount = 1
strLastCPUData = strCPUData
End If
Next
strOutput = strOutput & iCPUTypeCount & " x Processor(s):" & REC_DELIM
strOutput = strOutput & OutputInfo(strLastCPUData, strFriendlyProps, 0, 1, False)
strOutput = strOutput & REC_DELIM
If CDbl(dblPhysMem) >= CDbl(ONE_GIGA_IN_BYTES) Then
If arrData(2) > 2195 Then
' Windows 2003
If CDbl(arrData(0)) = TWO_GIGA_IN_KBYTES Then
CreateEvent _
THREE_GB_OFF_EVENT_ID, _
EVENT_TYPE_WARNING, _
"The 3GB virtual address space option is not enabled on this computer." & INFO_DELIM & _
"It is strongly recommended to enable it and set the appropriate value for the USERVA option for all Exchange servers with more than 1 Gbyte " & _
"of physical RAM that are running Windows Server 2003." & INFO_DELIM & _
"This server has " & FormatNumber(Round(dblPhysMem / ONE_MEGA_IN_BYTES), 0) & _
" Mbytes of physical RAM and is running " & arrData(1) & "."
End If
Else
' Windows 2000
If StrComp(arrData(1), WIN2KSERVER, vbTextCompare) <> 0 Then
If CDbl(arrData(0)) = TWO_GIGA_IN_KBYTES Then
CreateEvent _
THREE_GB_OFF_EVENT_ID, _
EVENT_TYPE_WARNING, _
"The 3GB virtual address space option is not enabled on this computer." & INFO_DELIM & _
"It is strongly recommended to enable this for all Exchange servers with more than 1 Gbyte " & _
"of physical RAM and that are running Windows 2000 versions which support this feature." & INFO_DELIM & _
"This server has " & FormatNumber(Round(dblPhysMem / ONE_MEGA_IN_BYTES), 0) & _
" Mbytes of physical RAM and is running " & arrData(1) & "."
End If
End If
End If
Else
If CDbl(arrData(0)) > TWO_GIGA_IN_KBYTES Then
CreateEvent _
THREE_GB_ON_EVENT_ID, _
EVENT_TYPE_WARNING, _
"The 3GB virtual address space option is enabled on this computer." & INFO_DELIM & _
"It is not recommended to enable this for any Exchange servers with less than 1 Gbyte " & _
"of physical RAM." & INFO_DELIM & _
"This server has " & FormatNumber(Round(dblPhysMem / ONE_MEGA_IN_BYTES), 0) & _
" Mbytes of physical RAM and is running " & arrData(1) & "."
End If
End If
strOutput = strOutput & OutputInfo(strWMIData, strFriendlyProps, 1, 0, True)
For each strPageFileData in Split(strWMIData, REC_DELIM)
If strPageFileData = "" Then
Exit For
End If
strOutput = strOutput & OutputInfo(strPageFileData, strFriendlyProps, 0, 0, True) & REC_DELIM
Next
' Hotfixes - slightly different treatment to remove duplicates QFEs
strFriendlyProps = "Hotfix,Description"
Dim dictQFE, objQFESet, objQFE
' Use a dictionary to prevent the same hotfix to be included more than one time in the event
Set dictQFE = CreateObject("Scripting.Dictionary")
' WMI return various bogus QFEs with ID equal to "File 1"
dictQFE.Add "File 1", Nothing
Set objQFESet = GetObject("WinMgmts:\\.\root\cimv2").InstancesOf("Win32_QuickFixEngineering")
For Each objQFE in objQFESet
If (Not dictQFE.Exists(objQFE.HotfixID)) Then
dictQFE.Add objQFE.HotfixID, Nothing
strOutput = strOutput & OutputInfo(objQFE.HotfixID & ";" & objQFE.Description, strFriendlyProps, 0, 0, True) & REC_DELIM
End If
Next
' Disks
strOutput = "Local Disks Information" & INFO_DELIM
strWMIData = ""
strFriendlyProps = "Drive,File system,Size (MBytes),Free space (MBytes)"
GetWMIInfo "Name,FileSystem,Size,FreeSpace", "Select * from Win32_LogicalDisk where DriveType = 3", strWMIData, ";", REC_DELIM
For each strDriveData in Split(strWMIData, REC_DELIM)
If strDriveData = "" Then
Exit For
End If
arrData = Split(strDriveData, ";")
If arrData(3) <> NOT_SET_STR and arrData(2) <> NOT_SET_STR Then
arrData(3) = FormatNumber(Round(arrData(3) / ONE_MEGA_IN_BYTES), 0) & " (" & FormatNumber(100. * arrData(3) / arrData(2),2) & "%)"
arrData(2) = FormatNumber(Round(arrData(2) / ONE_MEGA_IN_BYTES), 0)
strDriveData = Join(arrData, ";")
End If
strOutput = strOutput & OutputInfo(strDriveData, strFriendlyProps, 0, 0, True) & REC_DELIM
Next
CreateEvent DISK_INFO_EVENT_ID, EVENT_TYPE_INFORMATION, strOutput
strOutput = ""
End Sub
'--------------------------------------------------------------------------------------------
Sub GetWMIInfo(strProps, strWMIQuery, strRes, strFieldDelim, strRecordDelim)
Dim objWMISet, objWMI, strProp, objValue, strValue
Set objWMISet = WMIExecQuery("winmgmts:root\cimv2", strWMIQuery, 1)
For each objWMI in objWMISet
For each strProp in Split(strProps, ",")
objValue = objWMI.Properties_(strProp)
If not IsNull(objValue) Then
Select Case objWMI.Properties_(strProp).CIMType
Case 2,3,16,17,18,19,20,21 ' Integers
strValue = FormatNumber(objValue,0)
Case 4,5 ' Real number
strValue = FormatNumber(objValue,2)
Case 101 ' Date/time
strValue = ConvertDateTime(CStr(objValue))
Case Else
strValue = objValue
End Select
Else
strValue = NOT_SET_STR
End If
strRes = strRes & strValue & strFieldDelim
Next
strRes = Left(strRes, Len(strRes) - 1) & strRecordDelim
Next
End Sub
Home
Show References: