電腦資訊統計.vbs

來源:互聯網
上載者:User

標籤:style   blog   io   ar   color   os   sp   for   on   

temp=0set wshshell=wscript.createobject("wscript.shell")Set WshNetwork = WScript.Createobject("WScript.Network")computername=WshNetwork.ComputerNamestrComputer = "."   Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")   Set cpu = objWMIService.ExecQuery("SELECT * FROM Win32_Processor")   For Each objItem In cpu         cpu2="CPU(G): " & objItem.name         Version2= "Version: " & objItem.VersionNextset disk =objwmiservice.execQuery("select * from win32_diskdrive")for each item in disk    disk2= "HD: " &  item.model    size2="Size(GB):"& round(item.size/1000000000)nextSet colItems = objWMIService.ExecQuery("SELECT * FROM Win32_PhysicalMemory")For Each objItem in colItemsa=objitem.capacity/1048576temp=temp+objitem.capacityn=n+1Nextmemory=temp/1048576if n=1 thenmemory2= "Memory: " & n & "*" &a&"M"elsememory2= "Memory: " & n & "*" &a&"M"&" Total:"&memory&"M"end ifSet colItems = objWMIService.ExecQuery("SELECT * FROM Win32_VideoController")   For Each objItem In colItems      name= "Video: " & objItem.Name      RAM ="Video_memory(MB): " & objItem.AdapterRAM/1048576   Next Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_OperatingSystem")   For Each objItem In colItems                operatingsys ="OperatingSystem: " & objItem.Caption                 SP ="SP: " & objItem.CSDVersion Next Set board =objwmiservice.execQuery("select * from win32_baseboard")   for each item in board   board2= "Mainboard: " & item.Product NextSET fso = createobject("scripting.filesystemobject")txtpath = "D:\"&computername&".txt"set fs = fso.createtextfile(txtpath,true)fs.writeline("Computername:"+computername)fs.writeline(cpu2)fs.writeline(memory2)fs.write(disk2+"     ")fs.writeline(size2)fs.writeline(board2)fs.write(name)fs.writeline(ram)fs.writeline(operatingsys)fs.writeline(sp)Dim objWMIService,colItems,objItem,objAddressSet objWMIService = GetObject("winmgmts://" & "." & "/root/cimv2")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    fs.writeline(objAddress & ",MAC:" & objItem.MACAddress)  End If       NextNextfs.close

 

電腦資訊統計.vbs

相關文章

聯繫我們

該頁面正文內容均來源於網絡整理,並不代表阿里雲官方的觀點,該頁面所提到的產品和服務也與阿里云無關,如果該頁面內容對您造成了困擾,歡迎寫郵件給我們,收到郵件我們將在5個工作日內處理。

如果您發現本社區中有涉嫌抄襲的內容,歡迎發送郵件至: info-contact@alibabacloud.com 進行舉報並提供相關證據,工作人員會在 5 個工作天內聯絡您,一經查實,本站將立刻刪除涉嫌侵權內容。

A Free Trial That Lets You Build Big!

Start building with 50+ products and up to 12 months usage for Elastic Compute Service

  • Sales Support

    1 on 1 presale consultation

  • After-Sales Support

    24/7 Technical Support 6 Free Tickets per Quarter Faster Response

  • Alibaba Cloud offers highly flexible support services tailored to meet your exact needs.