vb获取电脑软硬件信息 示例源码

【实例截图】

【核心代码】

Public Class Form1

    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load 
        '************************************************* 
        ' Script : Check Computer Application List  
        'Last Mondify:By Alin(slin0511@163.com)
        '*************************************************

        On Error Resume Next

        Const HKLM = &H80000002
        Const strKeyPath = "Software\Microsoft\Windows\CurrentVersion\Uninstall\"
        Const ForReading = 1
        Const ForAppending = 8

        '*****************************************************************
        'Please change the path of the file where you want to save it!!!!
        '*****************************************************************
        Const FilePath = "\\publicserver\public\exchange"
        Wshell = CreateObject("Wscript.Shell")
        objFSO = CreateObject("Scripting.FileSystemobject")

        '*****************************************************************
        'Get the computer name!!!!
        '*****************************************************************
        Dim WshNetwork
        WshNetwork = WScript.CreateObject("WScript.Network")
        strComputer = WshNetwork.ComputerName

        '*****************************************************************
        'Delete the txt file if it is exist !!!!
        '*****************************************************************
        MyFile = objFSO.GetFile(FilePath & WshNetwork.ComputerName & ".txt")
        MyFile.Delete()

        '*****************************************************************
        'Create the txt file and write the application list to the file !!!!
        '*****************************************************************
        textWriteFile = objFSO.OpenTextFile(FilePath & WshNetwork.ComputerName & ".txt", ForAppending, True)

        Do

            objReg = GetObject("winmgmts://" & strComputer & "/root/default:StdRegProv")
            objReg.EnumKey(HKLM, strKeyPath, arrSubKeys)

            For Each strSubKey In arrSubKeys
                intRet = objReg.GetStringValue(HKLM, strKeyPath & strSubKey, "DisplayName", strValue)

                If strValue <> "" And intRet = 0 And InStr(1, strValue, "windows", 1) <= 0 Then
                    CScript.Echo(strComputer & "    " & strValue)
                    textWriteFile.WriteLine(strComputer & "    " & strValue)
                End If


                If strValue <> "" And intRet = 0 And InStr(1, strValue, "Java", 1) > 0 Then

                    CScript.Echo(strComputer & "    " & strValue)
                    textWriteFile.WriteLine(strComputer & "    " & strValue)
                End If

            Next

        Loop Until objFile.AtEndOfStream
        textWriteFile.Close()
        objFile.Close()
    End Sub
End Class