查看windows脚本版本的vbscript代码

最新推荐文章于 2024-05-18 21:43:20 发布

zshwlw

最新推荐文章于 2024-05-18 21:43:20 发布

阅读量1.3k

点赞数

分类专栏：其他文章文章标签： vbscript windows 脚本 each

本文链接：https://blog.csdn.net/zshwlw/article/details/2037451

版权

其他文章专栏收录该内容

40 篇文章 0 订阅

订阅专栏

On Error Resume Next
WScript.Echo "WSH Version: "&WScript.Version
Wscript.Echo "VBScript Version: "&ScriptEngineMajorVersion&"."&ScriptEngineMinorVersion
strComputer="."
Set objWMIService = GetObject("winmgmts:"&"{impersonationLevel=impersonate}!//"&strComputer&"/root/cimv2")
Set colWMISettings = objWMIService.ExecQuery("Select * from Win32_WMISetting")
For Each objWMISetting in colWMISettings
    Wscript.Echo "WMI Version: " & objWMISetting.BuildVersion
Next
Set objShell = CreateObject("WScript.Shell")
strAdsiVersion = objShell.RegRead("HKLM/SOFTWARE/Microsoft/Active Setup/Installed Components/{E92B03AB-B707-11d2-9CBD-0000F87A369E}/Version")
If strAdsiVersion = vbEmpty Then
    strAdsiVersion = objShell.RegRead("HKLM/SOFTWARE/Microsoft/ADs/Providers/LDAP/")
    If strAdsiVersion = vbEmpty Then
        strAdsiVersion = "ADSI is not installed."
    Else
        strAdsiVersion = "2.0"
    End If
End If
WScript.Echo "ADSI Version: " & strAdsiVersion