pcl_test

Set objWMIService = GetObject("winmgmts:\\.\root\CIMV2")
strFile = "findbyname.txt"

Set colItems = objWMIService.ExecQuery("Select * From Win32_ComputerSystemProduct")
For Each objItem In colItems
    serialnumber = objItem.IdentifyingNumber
Next

Set colItems = objWMIService.ExecQuery("Select * From Win32_ComputerSystem")
For Each objItem In colItems
    strComputerName = objItem.Name
Next

Set fso = CreateObject("Scripting.FileSystemObject")
If Not fso.FileExists(strFile) Then
    fso.CreateTextFile(strFile).WriteLine strComputerName & " " & serialnumber
Else
    If fso.GetFile(strFile).Size =0 Then
        fso.OpenTextFile(strFile, 2).WriteLine strComputerName & " " & serialnumber
    Else
        Set objFile = fso.OpenTextFile(strFile, 1)
        Do While objFile.AtEndOfStream<>true
            strLine = Split(Trim(objFile.ReadLine)," ")
            If LCase(strLine(0)) = LCase(strComputerName) Then
                flag = true
                Exit Do
            End If
        Loop
        objFile.Close
        If flag Then
            Msgbox "Exists!"
        Else
            fso.OpenTextFile(strFile, 8).WriteLine strComputerName & " " & serialnumber
        End If
    End If
End If
复制代码