查看windows脚本版本的vbscript代码

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

原创最新推荐文章于 2024-05-18 21:43:20 发布 · 1.3k 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#vbscript #windows #脚本 #each

其他文章专栏收录该内容

40 篇文章

订阅专栏

部署运行你感兴趣的模型镜像

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

您可能感兴趣的与本文相关的镜像