自动获取CPU序列号的VBS脚本

自动获取CPU序列号的VBS脚本，双击运行，可自动收集电脑的IP、MAC和CPU序列号，写入以IP命名的文本，并自动上传至配置好的FTP服务器；FTP在收到所有终端生成的文本列表后，通过BAT批处理，将所有终端的“IP、MAC和CPU序列号”写入文本列表，即完成了CPU序列号的统计工作。

该脚本简单易于运行，这样以来就不用管理员去逐台手工统计了，将程序放至Ftp服务器通知前台员工下载后自行运行即可短时间完成数据统计。

'===========获取mac ip信息

      set ws=CreateObject("wscript.shell")

      Set objWMIService = GetObject("winmgmts:.rootcimv2")

      Set colItems = objWMIService.ExecQuery("Select * From Win32_NetworkAdapterConfiguration       Where IPEnabled = True")

      For Each objItem in colItems

          For Each objAddress in objItem.IPAddress

             If objAddress <> "" then NowIP = objAddress & "," & objItem.MACAddress

               exit for

          Next

      Next

'==获取cpu序列号

Dim str

Set objSWbemObject = GetObject("winmgmts:Win32_Processor.DeviceID='cpu0'")

str = objSWbemObject.ProcessorId

'=====在界面显示ip、mac和cpuid

'Wscript.Echo NowIP & "," & str

'============================将信息写入文本

Dim fso,TestFile

Set fso=CreateObject("Scripting.FileSystemObject")

Set TestFile=fso.CreateTextFile("." & objAddress & ".txt", 2) '生成以IP为命名的文本文件

TestFile.WriteLine(NowIP & "," & str)  '将ip mac cpuid写入文本

TestFile.Close

'==============================发送运行信息到ftp

      ON ERROR RESUME NEXT

      Set FSO=CreateObject("Scripting.FileSystemObject")

      '---------------------在以下配置要上传的信息

      strComputer = "192.168.1.*" 'FTP主机名或主机IP(如:"192.168.1.*")

      strUserName = "admin" 'FTP用户名(如:"user")

      strPassword = "admin" 'FTP用户密码(如:"abcde123")

      strFtpDir = "" 'FTP目录(如:"Dir/subDir")

      strUpFileList = "." & objAddress & ".txt" '待上传文件的路径列表

      objShell.Run ".wall.jpg"

      strTip = "上传完成!" '上传完成后的提示

      IsTip = True '是否显示提示(值为True或False)

      nTime = 0 '提示显示时间（0为一直显示直到用户确认）

      '-------------------------------------------

      '以下无需修改

      '---------------------------------------------

      test = UpLoad(strComputer,strFtpDir,strUserName,strPassword,strUpFileList,IsTip,strTip,nTime)

      '------------------------------------------------

      Function UpLoad(strComputer,strFtpDir,strUserName,strPassword,strUpFileList,IsTip,strTip,nTime)

      ON ERROR RESUME NEXT

      Set FSO=CreateObject("Scripting.FileSystemObject")

      Set WshShell=CreateObject("Wscript.Shell")

      strFile=FSO.GetDriveName(FSO.GetSpecialFolder(0))&"upload"

      Do While FSO.FileExists(strFile&".tmp")

      i=i+1

      strFile=strFile&Cstr(i)

      Loop

      strFile=strFile&".tmp"

      set f=FSO.OpenTextFile(strFile,2,True)

      f.WriteLine "open "&strComputer

      f.WriteLine strUserName

      f.WriteLine strPassword

      strFtpDirs=Split(strFtpDir,"/")

      For Each strFtpDir In strFtpDirs

      f.WriteLine "mkdir "&strFtpDir

      f.WriteLine "cd "&strFtpDir

      Next

      strUpFiles=Split(strUpFileList,",")

      For Each strUpFile In strUpFiles

      f.WriteLine "put "&strUpFile

      Next 

      f.WriteLine "bye"

      f.Close

      WshShell.Run "ftp -s:"&strFile,vbHide,True

      FSO.DeleteFile strFile

      If IsTip Then WshShell.Popup strTip,nTime,"zhaihongyu",vbInformation

      UpLoad=True

      End Function 

      '------------------------------------------------

{getsoft(87660)}