讀取系統資訊

sanyu

strComputer 用 . 代表本機
也可以代換為網域中其他的電腦名稱

轉貼自微軟網站

1. '用 . 代表本機
   
2. strComputer = "."
   
3. Set objWMIService = GetObject("winmgmts:" _
   
4.     & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
   
5. Set colSettings = objWMIService.ExecQuery _
   
6.     ("Select * from Win32_OperatingSystem")
   
7. For Each objOperatingSystem in colSettings
   
8.     Wscript.Echo "OS Name: " & objOperatingSystem.Name
   
9.     Wscript.Echo "Version: " & objOperatingSystem.Version
   
10.     Wscript.Echo "Service Pack: " & _
    
11.         objOperatingSystem.ServicePackMajorVersion _
    
12.             & "." & objOperatingSystem.ServicePackMinorVersion
    
13.     Wscript.Echo "OS Manufacturer: " & objOperatingSystem.Manufacturer
    
14.     Wscript.Echo "Windows Directory: " & _
    
15.         objOperatingSystem.WindowsDirectory
    
16.     Wscript.Echo "Locale: " & objOperatingSystem.Locale
    
17.     Wscript.Echo "Available Physical Memory: " & _
    
18.         objOperatingSystem.FreePhysicalMemory
    
19.     Wscript.Echo "Total Virtual Memory: " & _
    
20.         objOperatingSystem.TotalVirtualMemorySize
    
21.     Wscript.Echo "Available Virtual Memory: " & _
    
22.         objOperatingSystem.FreeVirtualMemory
    
23.     Wscript.Echo "OS Name: " & objOperatingSystem.SizeStoredInPagingFiles
    
24. Next
    
25. Set colSettings = objWMIService.ExecQuery _
    
26.     ("Select * from Win32_ComputerSystem")
    
27. For Each objComputer in colSettings
    
28.     Wscript.Echo "System Name: " & objComputer.Name
    
29.     Wscript.Echo "System Manufacturer: " & objComputer.Manufacturer
    
30.     Wscript.Echo "System Model: " & objComputer.Model
    
31.     Wscript.Echo "Time Zone: " & objComputer.CurrentTimeZone
    
32.     Wscript.Echo "Total Physical Memory: " & _
    
33.         objComputer.TotalPhysicalMemory
    
34. Next
    
35. Set colSettings = objWMIService.ExecQuery _
    
36.     ("Select * from Win32_Processor")
    
37. For Each objProcessor in colSettings
    
38.     Wscript.Echo "System Type: " & objProcessor.Architecture
    
39.     Wscript.Echo "Processor: " & objProcessor.Description
    
40. Next
    
41. Set colSettings = objWMIService.ExecQuery _
    
42.     ("Select * from Win32_BIOS")
    
43. For Each objBIOS in colSettings
    
44.     Wscript.Echo "BIOS Version: " & objBIOS.Version
    
45. Next

複製代碼

[ 本帖最後由 sanyu 於 2007-7-30 10:58 PM 編輯 ]...

瀏覽完整內容，請先 註冊 或 登入會員

非常感謝大大分享

謝謝大大的分享

對我十分有用處

好好的K他研讀

n4chen

請問這是適用什麼版本的??
用了之後很多東西都未宣告