[转帖] 检查本地计算机中的脚本环境

描述
) `- X; D/ Q" n! ^+ R获取计算机中的操作系统、WSH、WMI 和 ADSI 的版本，并确定哪些是最新的。
7 T Z# L' l. }7 F- l支持平台
) O6 P+ a- i5 ], m

Windows XP 7 d- G8 N$ R/ N	是 5 ?5 c+ A9 S8 A% \: u) k
Windows .NET Server- \4 l& F6 p. F) w& \' ~( y1 K	是2 J( A" E7 h+ P
Windows 2000 * l' S- t4 c: l# ~; F* w) ^	Yes1 z6 g0 v: ~3 O) G; r5 a
Windows NT 4.0 @# {; q6 W/ U8 v	是，需要安装 WSH 和 WMI 9 c! E; k4 b/ M8 G# y; l4 e( [2 [
Windows 98 ' w/ ], Y5 e: o4 X- J	是，需要安装 WSH 和 WMI" c- O* ]& p1 O w7 W

, F! I7 Y3 H6 I4 U
. Y' q/ \- E7 o: k) R/ `. Q' }
脚本代码 9 s) {, [" s! }5 h/ e
''******************************************************************************'* scriptenv.vbs'* Gets versions of OS, WSH, WMI & ADSI on local machine'* and determines which are up-to-date.'******************************************************************************On Error Resume NextConst MAXIMIZE_WINDOW = 3strComputer = "." ' local computerstrNamespace = "\root\cimv2" ' default namespaceblnWSHUpToDate = FalseblnWMIUpToDate = FalseblntADSIUpToDate = False'******************************************************************************'* Call functions to get information on default WSH host.'* If Wscript.exe, temporarily change to Cscript.exe'******************************************************************************strWshHost = GetWshHostChangeToCscript(strWshHost)'******************************************************************************'* Connect to WMI Service.'******************************************************************************Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" _ & strComputer & strNamespace)If Err.Number <> 0 Then WScript.Echo "Error 0x" & hex(Err.Number) & " " & _ Err.Description & ". " & VbCrLf & _ "Unable to connect to WMI. WMI may not be installed." Err.Clear WScript.QuitEnd If'******************************************************************************'* Call functions to get information on OS, WSH, WMI and ADSI.'******************************************************************************intOSVer = GetOSVerblnWSHUpToDate = GetWSHVer(intOSVer, strWshHost)blnWMIUpToDate = GetWMIVer(intOSVer)blnADSIUpToDate = GetADSIVer(intOSVer)'******************************************************************************'* Call sub to list which versions are current.'******************************************************************************ListUpToDate blnWSHUpToDate, blnWMIUpToDate, blnADSIUpToDate'******************************************************************************'* Determines WSH script host.'******************************************************************************Function GetWshHost() strErrorMessage = "Could not determine default script host." strFullName = WScript.FullName If Err.Number <> 0 Then WScript.Echo "Error 0x" & hex(Err.Number) & " " & _ Err.Description & ". " & VbCrLf & strErrorMessage Err.Clear Exit Function End If If IsNull(strFullName) Then WScript.Echo strErrorMessage Exit Function End If strWshHost = Right(LCase(strFullName), 11) If Not((strWshHost = "wscript.exe") Or (strWshHost = "cscript.exe")) Then WScript.Echo strErrorMessage Exit Function End If GetWshHost = strWshHostEnd Function'******************************************************************************'* If default Windows Script Host is Wscript, change to Cscript.'******************************************************************************Sub ChangeToCscript(strWshHost) If strWshHost = "wscript.exe" Then Set objShell = CreateObject("WScript.Shell") objShell.Run _ "%comspec% /k ""cscript //h:cscript&&cscript scriptenv.vbs""", _ MAXIMIZE_WINDOW If Err.Number <> 0 Then WScript.Echo "Error 0x" & hex(Err.Number) & " occurred. " & _ Err.Description & ". " & VbCrLf & _ "Could not temporarily change the default script host to Cscript." Err.Clear WScript.Quit End If WScript.Quit End IfEnd Sub'******************************************************************************'* Get OS information.'******************************************************************************Function GetOSVer() intOSType = 0 intOSVer = 0 strOSVer = "" Set colOperatingSystems = objWMIService.ExecQuery _ ("Select * from Win32_OperatingSystem") For Each objOperatingSystem In colOperatingSystems Wscript.Echo vbCrLf & "Operating System" & vbCrLf & _ "================" & vbCrLf & _ "Caption: " & objOperatingSystem.Caption & VbCrLf & _ "OSType: " & objOperatingSystem.OSType & VbCrLf & _ "Version: " & objOperatingSystem.Version & VbCrLf & _ "Service Pack: " & _ objOperatingSystem.ServicePackMajorVersion & _ "." & objOperatingSystem.ServicePackMinorVersion & VbCrLf & _ "Windows Directory: " & objOperatingSystem.WindowsDirectory & VbCrLf intOSType = objOperatingSystem.OSType strOSVer = Left(objOperatingSystem.Version, 3) Next Select Case intOSType Case 16 'Windows 95 intOSVer = 1 Case 17 'Windows 98 intOSVer = 2 ' Note: Windows Millennium is not included as an OSType by WMI. Case 18 Select Case strOSVer Case 4.0 intOSVer = 4 'Windows NT 4.0 Case 5.0 intOSVer = 5 'Windows 2000 Case 5.1 intOSVer = 6 'Windows XP Case 5.2 intOSVer = 7 'Windows Server 2003 Case Else intOSVer = 0 'Older or newer version End Select Case Else intOSVer = 0 'Older or newer version End Select GetOSVer = intOSVerEnd Function'******************************************************************************'* Display WSH information.'******************************************************************************Function GetWSHVer(intOSVer, strWshHost) Wscript.Echo "Windows Script Host" & vbCrLf & _ "==================="If Not strWshHost = "" Then strVersion = WScript.Version strBuild = WScript.BuildVersion Wscript.Echo _ "WSH Default Script Host: " & strWshHost & VbCrLf & _ "WSH Path: " & WScript.FullName & VbCrLf & _ "WSH Version & Build: " & strVersion & "." & strBuild & VbCrLfElse Wscript.Echo "WSH information cannot be retrieved."End If sngWSHVer = CSng(strVersion) intBuild = CInt(strBuild) If (sngWSHVer >= 5.6 And intBuild >= 8515) Then GetWSHVer = True Else GetWSHVer = False End IfEnd Function'******************************************************************************'* Display WMI information.'******************************************************************************Function GetWMIVer(intOSVer) dblBuildVersion = 0 If (intOSVer >= 1 And intOSVer <= 5) Then strWmiVer = "1.5" ElseIf intOSVer = 6 Then strWmiVer = "5.1" ElseIf intOSVer = 7 Then strWmiVer = "5.2" Else strWmiVer = "?.?" End If Set colWMISettings = objWMIService.ExecQuery _ ("Select * from Win32_WMISetting") For Each objWMISetting In colWMISettings Wscript.Echo "Windows Management Instrumentation" & vbCrLf & _ "==================================" & vbCrLf & _ "WMI Version & Build: " & _ strWmiVer & "." & objWMISetting.BuildVersion & vbCrLf & _ "Default scripting namespace: " & _ objWMISetting.ASPScriptDefaultNamespace & vbCrLf dblBuildVersion = CDbl(objWMISetting.BuildVersion) Next If (intOSVer = 7 And dblBuildVersion >= 3790.0000) Or _ (intOSVer = 6 And dblBuildVersion >= 2600.0000) Or _ (intOSVer <= 5 And dblBuildVersion >= 1085.0005) _ Then GetWMIVer = True Else GetWMIVer = False End IfEnd Function'******************************************************************************'* Display ADSI provider and version information.'******************************************************************************Function GetADSIVer(intOSVer) Wscript.Echo "Active Directory Service Interfaces" & VbCrLf & _ "===================================" & vbCrLf Set objShell = CreateObject("WScript.Shell") strAdsiVer = _ objShell.RegRead("HKLM\SOFTWARE\Microsoft\Active Setup\Installed " & _ "Components\{E92B03AB-B707-11d2-9CBD-0000F87A369E}\Version") If strAdsiVer = vbEmpty Then strAdsiVer = _ objShell.RegRead("HKLM\SOFTWARE\Microsoft\ADs\Providers\LDAP") If strAdsiVer = vbEmpty Then strAdsiVer = "ADSI is not installed." Else strAdsiVer = "2.0" End If ElseIf Left(strAdsiVer, 3) = "5,0" Then If intOSVer = 5 Then strAdsiVer = "5.0.2195" ElseIf intOSVer = 6 Then strAdsiVer = "5.1.2600" ElseIf intOSVer = 7 Then strAdsiVer = "5.2.3790" Else strAdsiVer = "?.?" End If End If WScript.Echo "ADSI Version & Build: " & strAdsiVer & VbCrLf If strAdsiVer <> "ADSI is not installed." Then Set colProvider = GetObject("ADs:") Wscript.Echo "ADSI Providers" & VbCrLf & _ "--------------" For Each objProvider In colProvider Wscript.Echo objProvider.Name Next Wscript.Echo End If intAdsiVer = CInt(Left(strAdsiVer, 1)) If (intOSVer = 7 And intAdsiVer >= 5) Or _ (intOSVer = 6 And intAdsiVer >= 5) Or _ (intOSVer = 5 And intAdsiVer >= 5) Or _ (intOSVer = 4 And intAdsiVer >= 2) Or _ (intOSVer <= 3 And intAdsiVer >= 2) _ Then GetADSIVer = True Else GetADSIVer = False End IfEnd Function'******************************************************************************'* Test for current versions and display results.'******************************************************************************Sub ListUpToDate(blnWSHUpToDate, blnWMIUpToDate, blnADSIUpToDate) Wscript.Echo "Current Versions" & vbCrLf & _ "================" If blnWSHUpToDate Then WScript.Echo "WSH version: most recent for OS version." Else WScript.Echo "WSH version: not most recent for OS version." If intOSVer = 0 Then WScript.Echo "Windows Script not available for this OS" Else WScript.Echo "Get Windows Script 5.6, Build 8515" End If End If If blnWMIUpToDate Then WScript.Echo "WMI version: most recent for OS version." Else WScript.Echo "WMI version: not most recent for OS version." If intOSVer = 0 Then WScript.Echo "WMI not available for this OS" ElseIf intOSVer >= 1 And intOSVer <= 4 Then WScript.Echo "Get WMI CORE 1.5" Else End If End If If blnADSIUpToDate Then WScript.Echo "ADSI version: most recent for OS version." Else WScript.Echo "ADSI version: not most recent for OS version." If intOSVer = 0 Then WScript.Echo "ADSI not available for this OS" ElseIf intOSVer >= 1 And intOSVer <= 4 Then WScript.Echo "Get Active Directory Client Extensions" Else End If End IfEnd Sub