[MOM]MOM 2005 SP1 対応 Microsoft Active Directory 管理パックの問題

おがわみつぎ — Thu, 24 Nov 2005 16:42:00 GMT

MOM 2005 用 Active Directory 管理パック

をダウンロードして MOM 2005 SP1 に適用して、Active Directory を監視していましたが、

'net use \\127.0.0.1\SYSVOL' failed.
The error returned was 'ネットワークパスが見つかりません。
' (0x80070035)

というエラーが多発します。

ためにしにコマンドラインから NET USE \\127.0.0.1\SYSVOL とやってみましたがエラーになります。
さて、どうしたもんかということで「管理コンソール」→「管理パック」→「スクリプト」→「AD Essential Services Running」のプロパティ→「スクリプト」のコードを書き換えました。

具体的には、WScript.Network の ComputerName プロパティを使って、127.0.0.1 をコンピュータ名に変更するということです。

'*************************************************************************
' Script Name - AD Essential Services Running
'
' Purpose???? - Verifies that the necessary services are running on a
'?????????????? Active Directory.
'??????????????
' Assumptions - Script is run by a timed event
'??????????????
' Parameters? - LogSuccessEvent - informs the script to log an event
'???????????????????????????????? indicating script ran successfully and
'???????????????????????????????? the execution time of the script.
'???????????????????????????????? (useful for debugging)
'?????????????? IgnoreDisabledNetLogon - if this is true then if
'???????????????????????????????? NetLogon is marked as 'disabled'
'???????????????????????????????? it will not generate alerts if they are
'???????????????????????????????? in a non-running state
'
' (c) Copyright 2001, Microsoft Corporation, All Rights Reserved
' Proprietary and confidential to Microsoft Corporation?????????????
'*************************************************************************

Option Explicit

'Event Constants
Const EVENT_TYPE_SUCCESS = 0
Const EVENT_TYPE_ERROR = 1
Const EVENT_TYPE_WARNING = 2
Const EVENT_TYPE_INFORMATION = 4

Const EVENTID_SCRIPT_ERROR = 21000

Const EVENTID_FRS_NOTRUNNING = 38901
Const EVENTID_NETLOGON_NOTRUNNING = 38902
Const EVENTID_KDC_NOTRUNNIG = 38903
Const EVENTID_W32TIME_NOTRUNNING = 38904
Const EVENTID_ISM_NOTRUNNING = 38905
Const EVENTID_SYSVOL_FAILED = 38906
Const EVENTID_DCLOCATER_FAILED = 38907
Const EVENTID_SUCCESS = 38910
Const EVENTID_EVENTREQUIRED = 20002

'Other constants
Const SCRIPT_NAME = "AD Essential Services Running"

Sub Main()
? Dim bLogSuccessEvent? ' Log a success event if this is set and the check is successful
? Dim objParams???????? ' Script Parameters
? Dim strMessage??????? ' Event Description
? Dim strComputerName?? ' local computer name
? Dim bSuccess????????? ' TRUE if all checks passed
? Dim dtStart?????????? ' Used to work out how long it took the script to run
? Dim bNetLogon?????' Set to TRUE if Netlogon service is running
? Dim bTemp???????????? ' Temporary storage for return value from IsServiceStarted
? Dim strStatus???????? ' Storage for the status of a service returned from IsServiceStarted
? Dim bIgnoreDisabledNetLogon ' Whether to ignore NetLogon when marked 'disabled'
?
? Dim strLocalComputerName?' ローカルコンピュータ名

? bSuccess = True
?
? On Error Resume Next???????

? If ScriptContext.IsEvent Then
??? If Not(ScriptContext.IsTargetAgentless) Then
????? dtStart = Now
?????
????? Set objParams = ScriptContext.Parameters
????? bLogSuccessEvent = CBool(objParams.Get("LogSuccessEvent"))
????? bIgnoreDisabledNetLogon = CBool(objParams.Get("IgnoreDisabledNetlogon"))
????? Set objParams = Nothing
?????
????? 'Get the status of service NtFrs
????? bTemp = IsServiceStarted("NtFrs", strStatus, FALSE)
????? If 0 <> Err.Number Then
??????? bSuccess = False
??????? strMessage = "The script '" & SCRIPT_NAME & "' failed while determining whether the service " & _
????????????????????? "'NtFrs' was running." & vbCrLf & GetErrorString(Err.Number, Err.Description)
??????? CreateEvent EVENTID_SCRIPT_ERROR, EVENT_TYPE_WARNING, strMessage
????? Else
??????? If Not(bTemp) Then
????????? strMessage = "File Replication Service is in the '" & strStatus & "' state."
????????? bSuccess = False
????????? CreateEvent EVENTID_FRS_NOTRUNNING, EVENT_TYPE_ERROR, strMessage
????????? SetData SCRIPT_NAME & ":FRS", "Stopped"
??????? Else
????????? If "Stopped" = GetData(SCRIPT_NAME & ":FRS") Then
??????????? SetData SCRIPT_NAME & ":FRS", "Running"
??????????? strMessage = "File Replication Service is in the '" & strStatus & "' state."
??????????? CreateEvent EVENTID_FRS_NOTRUNNING, EVENT_TYPE_INFORMATION, strMessage
????????? End If
??????? End If
????? End If

????? Err.Clear
??????
????? 'Get the status of service Netlogon
????? bTemp = IsServiceStarted("Netlogon", strStatus, bIgnoreDisabledNetLogon)
????? bNetLogon = False
????? If 0 <> Err.Number Then
??????? bSuccess = False
??????? strMessage = "The script '" & SCRIPT_NAME & "' failed while determining whether the service " & _
????????????????????? "'NetLogon' was running." & vbCrLf & GetErrorString(Err.Number, Err.Description)
??????? CreateEvent EVENTID_SCRIPT_ERROR, EVENT_TYPE_WARNING, strMessage
????? Else
??????? If Not(bTemp) Then
????????? strMessage = "Net Logon Service is in the '" & strStatus & "' state."
????????? bSuccess = False
????????? CreateEvent EVENTID_NETLOGON_NOTRUNNING, EVENT_TYPE_ERROR, strMessage
????????? SetData SCRIPT_NAME & ":NetLogon", "Stopped"
????? Else
?????? bNetLogon = True
????????? If "Stopped" = GetData(SCRIPT_NAME & ":NetLogon") Then
??????????? SetData SCRIPT_NAME & ":NetLogon", "Running"
??????????? strMessage = "NetLogon Service is in the '" & strStatus & "' state."
??????????? CreateEvent EVENTID_NETLOGON_NOTRUNNING, EVENT_TYPE_INFORMATION, strMessage
????????? End If
??????? End If
????? End If

????? Err.Clear
??
????? 'Get the status of service kdc
????? bTemp = IsServiceStarted("kdc", strStatus, FALSE)
????? If 0 <> Err.Number Then
??????? bSuccess = False
??????? strMessage = "The script '" & SCRIPT_NAME & "' failed while determining whether the service " & _
????????????????????? "'kdc' was running." & vbCrLf & GetErrorString(Err.Number, Err.Description)
??????? CreateEvent EVENTID_SCRIPT_ERROR, EVENT_TYPE_WARNING, strMessage
????? Else
??????? If Not(bTemp) Then
????????? strMessage = "Kerberos Key Distribution Center Service is in the '" & strStatus & "' state."
????????? bSuccess = False
????????? CreateEvent EVENTID_KDC_NOTRUNNIG, EVENT_TYPE_ERROR, strMessage
????????? SetData SCRIPT_NAME & ":KDC", "Stopped"
??????? Else
????????? If "Stopped" = GetData(SCRIPT_NAME & ":KDC") Then
??????????? SetData SCRIPT_NAME & ":KDC", "Running"
??????????? strMessage = "Kerberos Key Distribution Center Service is in the '" & strStatus & "' state."
??????????? CreateEvent EVENTID_KDC_NOTRUNNING, EVENT_TYPE_INFORMATION, strMessage
????????? End If
??????? End If
????? End If

????? Err.Clear
??
????? 'Get the status of service W32Time
????? bTemp = IsServiceStarted("W32Time", strStatus, FALSE)
????? If 0 <> Err.Number Then
??????? bSuccess = False
??????? strMessage = "The script '" & SCRIPT_NAME & "' failed while determining whether the service " & _
????????????????????? "'W32Time' was running." & vbCrLf & GetErrorString(Err.Number, Err.Description)
??????? CreateEvent EVENTID_SCRIPT_ERROR, EVENT_TYPE_WARNING, strMessage
????? Else
??????? If Not(bTemp) Then
????????? strMessage = "Windows Time Service is in the '" & strStatus & "' state."
????????? bSuccess = False
????????? CreateEvent EVENTID_W32TIME_NOTRUNNING, EVENT_TYPE_ERROR, strMessage
????????? SetData SCRIPT_NAME & ":W32Time", "Stopped"
??????? Else
????????? If "Stopped" = GetData(SCRIPT_NAME & ":W32Time") Then
??????????? SetData SCRIPT_NAME & ":W32Time", "Running"
??????????? strMessage = "W32Time Service is in the '" & strStatus & "' state."
??????????? CreateEvent EVENTID_W32TIME_NOTRUNNING, EVENT_TYPE_INFORMATION, strMessage
????????? End If
??????? End If
????? End If

????? Err.Clear
??
????? 'Get the status of service ISM, but only if we're running Win2K
????? bTemp = IsWindows2000()
????? if 0 <> Err.Number Then
??????? bSuccess = False
??????? strMessage = "The script '" & SCRIPT_NAME & "' failed while determining whether the " & _
????????????????????? "operating system is Windows 2000." & vbCrLf & GetErrorString(Err.Number, Err.Description)
??????? CreateEvent EVENTID_SCRIPT_ERROR, EVENT_TYPE_WARNING, strMessage
????? Else
??????? If bTemp Then
???????
??????? bTemp = IsServiceStarted("IsmServ", strStatus, FALSE)
??????? If 0 <> Err.Number Then
????????? bSuccess = False
????????? strMessage = "The script '" & SCRIPT_NAME & "' failed while determining whether the service " & _
????????????? "'IsmServ' was running." & vbCrLf & GetErrorString(Err.Number, Err.Description)
????????? CreateEvent EVENTID_SCRIPT_ERROR, EVENT_TYPE_WARNING, strMessage
??????? Else
????????? If Not(bTemp) Then
?????????? strMessage = "Intersite Messaging Service is in the '" & strStatus & "' state."
?????????? bSuccess = False
?????????? CreateEvent EVENTID_ISM_NOTRUNNING, EVENT_TYPE_ERROR, strMessage
?????????? SetData SCRIPT_NAME & ":ISM", "Stopped"
????????? Else
?????????? If "Stopped" = GetData(SCRIPT_NAME & ":ISM") Then
???????????? SetData SCRIPT_NAME & ":ISM", "Running"
???????????? strMessage = "Intersite Messaging Service is in the '" & strStatus & "' state."
???????????? CreateEvent EVENTID_ISM_NOTRUNNING, EVENT_TYPE_INFORMATION, strMessage
?????????? End If
???????? End If
??????? End If
????? End If
????? End If
??????
??? Err.Clear

????? '
????? 'try to connect to SYSVOL share
????? '
????? Dim objNetwork
?????
????? Set objNetwork = CreateObject("Wscript.Network")
????? If (0 <> Err.Number) Or (Not(IsObject(objNetwork))) Then
??????? strMessage = "The script '" & SCRIPT_NAME & "' failed to create the object 'WScript.Network'." & vbCrLf & GetErrorString(Err.Number, Err.Description)
??????? bSuccess = False
??????? CreateEvent EVENTID_SCRIPT_ERROR, EVENT_TYPE_WARNING, strMessage
????? Else
??????? ' 追加
??????? strLocalComputerName = objNetwork.ComputerName
??????? ' 追加

??????? ' 変更

??????? ' objNetwork.MapNetworkDrive "", "\\127.0.0.1\SYSVOL"
??????? objNetwork.MapNetworkDrive "", "\\" & strLocalComputerName & "\SYSVOL"

??????? ' 変更

??????? If 0 <> Err.Number Then

? ??????? ' 変更

????????? ' strMessage = "'net use \\127.0.0.1\SYSVOL' failed.? " & vbCrLf & GetErrorString(Err.Number, Err.Description)
????????? strMessage = "'net use \\" & strLocalComputerName & "\SYSVOL' failed.? " & vbCrLf & GetErrorString(Err.Number, Err.Description)

??? ????? ' 変更

????????? bSuccess = False
????????? CreateEvent EVENTID_SYSVOL_FAILED, EVENT_TYPE_ERROR, strMessage
????????? SetData SCRIPT_NAME & ":SYSVOL", "Stopped"
??????? Else
????????? If "Stopped" = GetData(SCRIPT_NAME & ":SYSVOL") Then
??????????? SetData SCRIPT_NAME & ":SYSVOL", "Running"

??? ??????? ' 変更

??????????? ' strMessage = "'net use \\127.0.0.1\SYSVOL' has succeeded after a number of failures."
??????????? strMessage = "'net use \\" & strLocalComputerName & "\SYSVOL' has succeeded after a number of failures."

??? ??????? ' 変更

??????????? CreateEvent EVENTID_SYSVOL_FAILED, EVENT_TYPE_INFORMATION, strMessage
????????? End If
????????? 'delete the share that is created

????????? ' 変更

????????? ' objNetwork.RemoveNetworkDrive "\\127.0.0.1\SYSVOL"
????????? objNetwork.RemoveNetworkDrive "\\" & strLocalComputerName & "\SYSVOL"

????????? ' 変更

??????? End If
??????? Set objNetwork = Nothing
????? End If
???
????? ' The RemoveNetworkDrive call sometimes fails, ignore the error and clear it
????? ' so it doesn't screw up the next check.
????? Err.Clear
?????????
????? ' Determine whether the system has been running for more than 20 minutes
????? Dim bUptimeOkay
????? bUptimeOkay = False
????? Dim oWMI
????? Set oWMI = GetObject("winmgmts:").InstancesOf("Win32_PerfRawData_PerfOS_System")
????? If (0 <> Err.Number) Or (Not(IsObject(oWMI))) Then
??????? strMessage = "The script '" & SCRIPT_NAME & "' failed to get instances of the " & _
????????????????????? "'Win32_PerfRawData_PerfOS_System' object." & vbCrLf & _
????????????????????? GetErrorString(Err.Number, Err.Description)
??????? CreateEvent EVENTID_SCRIPT_ERROR, EVENT_TYPE_WARNING, strMessage
??????? bSuccess = False
????? Else
??????? Dim oSystem
??????? For Each oSystem in oWMI
????????? If IsObject(oSystem) Then
??????????? ' Ludicrous code path is because if an error occurs in the If
??????????? ' statement (which occasionally it does) then the next line
??????????? ' i.e. inside the If statement is executed.
??????????? If (oSystem.TimeStamp_Sys100NS / 10000000) < 1200 Then ' 20 Minutes
??????????? Else
????????????? bUptimeOkay = True
??????????? End If
????????? End If
??????? Next
????? End If

????? '
????? ' find the DC through the DC locater
????? ' but only if the netlogon test succeeded???
????? ' and we have been running for an acceptable length of time
????? '
????? If bNetLogon And bUptimeOkay Then
??????? Dim objDomain
??????? Dim iStart, iEnd
??????? Dim strLongDCName, strDCName
??????? Dim bDCLocaterSucceeded

??????? bDCLocaterSucceeded = False

??????? ' get the name of the DC of this machine
??????? Err.Clear
??????
??????? Dim oSysInfo
??????? Set oSysInfo = CreateObject("ADSystemInfo")
??????? If (0 <> Err.Number) Or (Not(IsObject(oSysInfo))) Then
????????? strMessage = "The script '" & SCRIPT_NAME & "' failed to create the object 'ADSystemInfo'." & vbCrLf & _
??????????????????????? GetErrorString(Err.Number, Err.Description)
????????? CreateEvent EVENTID_SCRIPT_ERROR, EVENT_TYPE_WARNING, strMessage
????????? bSuccess = False
??????? Else
????????? strDCName = oSysInfo.GetAnyDCName()
????????? If (0 <> Err.Number) Then
??????????? strMessage = "The script '" & SCRIPT_NAME & "' failed to get any DCs name using 'ADSystemInfo.GetAnyDCName'." & vbCrLf & _
????????????????????????? GetErrorString(Err.Number, Err.Description)
??????????? CreateEvent EVENTID_SCRIPT_ERROR, EVENT_TYPE_WARNING, strMessage
??????????? bSuccess = False
????????? Else
??????????? ' Remove the domain part of the DNS name
??????????? Dim lDomainStart
??????????? lDomainStart = Instr(strDCName, ".") - 1
??????????? If lDomainStart > 0 Then
????????????? strDCName = Left(strDCName, lDomainStart)
??????????? End If

??????????? Set oWMI = GetObject("winmgmts:").InstancesOf("Win32_NetworkAdapterConfiguration")
??????????? If (0 <> Err.Number) Or (Not(IsObject(oWMI))) Then
????????????? strMessage = "The script '" & SCRIPT_NAME & "' failed to get instances of the " & _
??????????????????????????? "'Win32_NetworkAdapterConfiguration' object." & vbCrLf & _
??????????????????????????? GetErrorString(Err.Number, Err.Description)
????????????? CreateEvent EVENTID_SCRIPT_ERROR, EVENT_TYPE_WARNING, strMessage
????????????? bSuccess = False
??????????? Else
????????????? Dim oNetworkAdapter
????????????? For Each oNetworkAdapter In oWMI
??????????????? If IsObject(oNetworkAdapter) Then
????????????????? If Len(oNetworkAdapter.DNSHostName) > 0 Then
??????????????????? strComputerName = oNetworkAdapter.DNSHostName
???????????????????
??????????????????? If Len(strComputerName) > 0 Then
????????????????????? ' DC Name should be the same as local name
????????????????????? If LCase(strDCName) = LCase(strComputerName) Then
??????????????????????? bDCLocaterSucceeded = True
????????????????????? End If
??????????????????? End If
????????????????? End If
??????????????? End If
????????????? Next

????????????? If bDCLocaterSucceeded = False Then
??????????????? strMessage = "The DC Locator service is not advertising.? This means that no clients will " & _
????????????????????????????? "be able to connect to this Domain Controller." & vbCrLf & _
????????????????????????????? "When queried, the DC Locator returned a remote DC (" & strDCName & "), instead of local DC (" & strComputerName & ")."
??????????????? CreateEvent EVENTID_DCLOCATER_FAILED, EVENT_TYPE_ERROR, strMessage
??????????????? bSuccess = False
??????????????? SetData SCRIPT_NAME & ":DCLocator" & "Stopped"
????????????? End If
??????????? End If
????????? End If
??????? End If
??? End If
? ??
??? If bDCLocaterSucceeded = True Then
??????? If "Stopped" = GetData(SCRIPT_NAME & ":DCLocator") Then
????????? SetData SCRIPT_NAME & ":DCLocator", "Running"
????????? strMessage = "The DC Locator has resumed advertising."
????????? CreateEvent EVENTID_DCLOCATER_FAILED, EVENT_TYPE_INFORMATION, strMessage
??????? End If
??? End If
????
????? If bLogSuccessEvent And bSuccess Then
??????? strMessage = "The script '" & SCRIPT_NAME & "' completed successfully in " & _
????????????????????? DateDiff("s", dtStart, Now) & " seconds."
??????? CreateEvent EVENTID_SUCCESS, EVENT_TYPE_INFORMATION, strMessage
????? End If
??? Else
????? CreateEvent EVENT_ID_AGENTLESS, EVENT_TYPE_ERROR, "The AD Management Pack does not support the agentless management mode." & vbCrLf & _
??????????????????????????????????????????????????????? "The script '" & SCRIPT_NAME & "' will not execute." & vbCrLf & _
??????????????????????????????????????????????????????? "To prevent this alert being generated again, either change the monitoring " & _
??????????????????????????????????????????????????????? "mode of the computer '" & ScriptContext.TargetFQDNComputer & "' to agent-managed " & _
??????????????????????????????????????????????????????? "or disable the rule that generated this alert."
????????????????????????????????????????????????????????
??? End If
? Else
??? strMessage = "The script '" & SCRIPT_NAME & "' can only be executed by an event rule."
??? CreateEvent EVENTID_EVENTREQUIRED, EVENT_TYPE_WARNING, strMessage
? End If

End Sub

'******************************************************************************
' Name:????IsServiceStarted
'
' Purpose:??To determine whether a given service is running
'
' Arguments:?[in] strServiceName, the name of the service that is to be checked
'???????????? [out] strServiceState, the current state of the service
'???????????? [in] bIgnoreDisabledServices, if True, then a service that is
'?????????????? marked disabled as its StartMode will just return True
'
' Returns:??Boolean, returns True if the service is in the running state
'
' Remarks:??? If an error is encountered this function will throw an exception
'???????????? the caller MUST handle this.
'
Function IsServiceStarted(strServiceName, strServiceState, bIgnoreDisabledServices)
? IsServiceStarted = False
?
? ' Initialise the state with a dummy state in case something goes wrong
? strServiceState = "Unknown"

? Dim objServiceSet
? Dim objService
? Dim strQuery

? 'Get the status of Service
? strQuery = "select * from Win32_Service where Name='" & strServiceName & "'"

? Set objServiceSet = GetObject("winmgmts:").ExecQuery(strQuery)

? If Not IsEmpty(objServiceSet) Then
??? IsServiceStarted = False
??? For Each objService In objServiceSet
????? strServiceState = objService.State
????? If strServiceState = "Running" Or _
????????? (objService.StartMode = "Disabled" And bIgnoreDisabledServices) Then
??????? IsServiceStarted = True
????? End If
??? Next
? End If?
End Function

'******************************************************************************
' Name:????CreateEvent
'
' Purpose:??To create a MOM event
'
' Arguments:?lngEventID, the event ID
'???????lngEventType, the event type (see values at top of file)
'???????strMessage, the message text for the event
'
' Returns:??None
'
Sub CreateEvent(lngEventID, lngEventType, strMessage)
? On Error Resume Next

? Dim objNewEvent

? ' Create a new event
? Set objNewEvent = ScriptContext.CreateEvent

? ' Set event properties
? objNewEvent.Message = strMessage
? objNewEvent.EventNumber = lngEventID
? objNewEvent.EventType = lngEventType

? ' Submit the event
? ScriptContext.Submit objNewEvent

? Set objNewEvent = Nothing

End Sub

'******************************************************************************
' Name:???????? GetErrorString
'
' Purpose:????? Attempts to find the description for an error if no description
'?????????????? is passed in.
'
' Parameters:?? lErrNumber, the error number
'?????????????? strErrDescription, the error description (if known)
'
' Return:?????? String, the description for the error.? (Includes the error code.)
'
Function GetErrorString(lErrNumber, strErrDescription)
? On Error Resume Next

? If 0 >= Len(strErrDescription) Then
??? ' If we don't have an error description, then check to see if the error
??? ' is a 0x8007xxxx error.? If it is, then look it up.
??? Const ErrorMask = &HFFFF0000?
??? Const HiWord8007 = &H80070000
??? Const LoWordMask = 65535????????? ' This is equivalent to 0x0000FFFF

??? If (lErrNumber And ErrorMask) = HiWord8007 Then
????? Dim oShell
????? Set oShell = CreateObject("WScript.Shell")
????? If IsObject(oShell) Then
??????? Dim oExec
??????? Set oExec = oShell.Exec("net helpmsg " & (lErrNumber And LoWordMask))

??????? Dim strMessage, i
??????? Do
????????? strMessage = oExec.stdout.ReadLine()
????????? i = i + 1
??????? Loop While (Len(strMessage) = 0) And (i < 5)

??????? strErrDescription = strMessage
??????? End If
????? End If?
??? End If

??? GetErrorString = "The error returned was '" & strErrDescription & "' (0x" & Hex(lErrNumber) & ")"
End Function

'******************************************************************************
Function GetData(strKey)
'
' Purpose:??Retrieves data out of a varset.? Uses the key to determine what
'???????????? data to retrieve.
'
' Arguments:?strKey, the key of the data to retrieve
'
' Returns:??String, the data to return or an empty string
'
? On Error Resume Next
? Dim oVarSet
? Set oVarSet = ScriptContext.GetScriptState.GetSet(SCRIPT_NAME)
? If IsObject(oVarSet) Then
??? GetData = oVarSet.Get(strKey)
? End If
End Function

'******************************************************************************
Sub SetData(strKey, strData)
'
' Purpose:??To store data in a varset.? If the key exists then the data
'???????????? associated with that key is replaced, otherwise the key/data
'???????????? combination is added to the varset.
'
' Arguments:?strKey, the key of the line to replace
'???????????? strData, the data to associate with the key
'
' Returns:??Nothing
'
? Dim oVarSet
? Set oVarSet = ScriptContext.GetScriptState.GetSet(SCRIPT_NAME)
? If IsObject(oVarSet) Then
??? oVarSet.Put strKey, strData
??? ScriptContext.GetScriptState.SaveSet SCRIPT_NAME, oVarSet
? End If
End Sub

' Global variable that will hold the OS version
Dim strOSVersion

'******************************************************************************
Sub EnsureOSVersion()
'
' Purpose:??To ensure that we've obtained the OS Version string
'
' Arguments:?None
'
' Returns:??Nothing
'
?'
?' If we haven't queried for the local OS yet, query for it and store it in the
?' global script variable.? Then if this (or any other OS version routine) is
?' called again during the execution of this script, we won't query again.
?'
? If Len(strOSVersion) = 0 Then
??Dim oWMI, oOperatingSystems, oOS
??Set oWMI = GetObject("winmgmts:")
??Set oOperatingSystems = oWMI.ExecQuery("SELECT * FROM Win32_OperatingSystem")
??'
??' There should only be one returned, but handle the case where there isn't by
??' storing the last OS version found.
??'
??For Each oOS in oOperatingSystems
???strOSVersion = oOS.Version
??Next
?End If?
End Sub

'******************************************************************************
Function IsWindows2000()
'
' Purpose:??To determine whether the local computer is running Windows 2000
'
' Arguments:?None
'
' Returns:??Boolean, True if the computer is running Windows 2000, False otherwise
'
?EnsureOSVersion
??
?'
?' Determine if the OS version is Windows 2000
?'
?IsWindows2000 = Left(strOSVersion, 3) = "5.0"
End Function

MOM

[MOM]Vol.4 SQL Server 編

[MOM2005]SQL Server Management Pack for MOM 2005

[MOM]MOM 2005 SP1 対応 Microsoft Active Directory 管理パックの問題

[MOM]パトライト管理パック作成ガイド

MOM

[MOM]Vol.4 SQL Server 編

[MOM2005]SQL Server Management Pack for MOM 2005

[MOM]MOM 2005 SP1 対応 Microsoft Active Directory 管理パックの問題

[MOM]パトライト管理 パック 作成 ガイド

[MOM]パトライト管理パック作成ガイド