本帖最后由 pcl_test 于 2017-5-2 09:54 编辑
- 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
复制代码
|