Set objWMIService = GetObject("winmgmts:\\.\root\CIMV2")
   Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_computersystemproduct")

   For Each objItem In colItems
          serialnumber = objItem.identifyingnumber
   Next
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colComputers = objWMIService.ExecQuery("Select * from Win32_ComputerSystem")
For Each objComputer in colComputers
strComputerName = objComputer.Name
Exit For
Next 
MsgBox (strComputerName)
MsgBox (serialnumber)
Dim strFile

strFile = "findbyname.txt"
Dim fso, objFile, arr, strContents, blnFound
Set fso = CreateObject("Scripting.FileSystemObject")
Set objFile = fso.OpenTextFile(strFile, 1)
strContents = objFile.ReadAll
 blfind = False
  If InStr(strContents, serialnumber) Then 
        	blfind = True 
    		MsgBox ("找到主机名!") 
  While   Not  objFile.AtEndOfStream 
    arr = Split(objFile.ReadLine, " ")
    If UBound(arr) > 0 Then
        If arr(1) = serialnumber Then MsgBox arr(0)
         End If 
         wend
     else 
         MsgBox ("未找到主机名!") 
    	 Set f = fso.OpenTextFile(strFile, 8) 
    	 f.WriteLine (strComputerName & " " & serialnumber)
     End If
objFile.Close()
Set objFile = Nothing : Set fso = Nothing
复制代码

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
复制代码

@echo off 
for /f %%a in ('wmic path Win32_computersystemproduct get identifyingnumber /value^|find "="') do set %%a
find /i "%computername%" "findbyname.txt">nul && (echo 计算机名已找到! 
echo 计算机名是%computername%)||(echo 计算机名未找到!
>>"findbyname.txt" echo %computername% %identifyingnumber%)
pause
复制代码

While objFile.AtEndOfStream<>true
复制代码