vbs中如何获取Am注册路径信息

本篇文章给大家分享的是有关vbs中如何获取Am注册路径信息，小编觉得挺实用的，因此分享给大家学习，希望大家阅读完这篇文章后可以有所收获，话不多说，跟着小编一起来看看吧。

创新互联是一家专业提供灵丘企业网站建设,专注与做网站、网站设计、H5技术、小程序制作等业务。10年已为灵丘众多企业、政府机构等服务。创新互联专业网站设计公司优惠进行中。

Dim WshShell, AMpath, Dllfile

Set WshShell = WScript.CreateObject("WScript.Shell")

call X86orX64()

 MsgBox X86orX64

If X86orX64 = "x86"  then

    dllfile = WshShell.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\ActiveSoft\STKClient")

    MsgBox Dllfile

Else

    dllfile = WshShell.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node\ActiveSoft\STKClient")

    MsgBox Dllfile

End If

Function X86orX64()

    On Error Resume Next

    strComputer = "."

    Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")

    Set colItems = objWMIService.ExecQuery("Select * from Win32_ComputerSystem",,48)

    For Each objItem in colItems

        If InStr(objItem.SystemType, "86") <> 0 Then

            X86orX64 = "x86"

        ElseIf InStr(objItem.SystemType, "64") <> 0 Then

            X86orX64 = "x64"

        Else

            X86orX64 = objItem.SystemType

        End If

    Next

End Function

以上就是vbs中如何获取Am注册路径信息，小编相信有部分知识点可能是我们日常工作会见到或用到的。希望你能通过这篇文章学到更多知识。更多详情敬请关注创新互联行业资讯频道。