Friday, November 5, 2010

VBscript for getting Computer Model using WMI system class

' Computer System Model
' -------------------------------------------------------'
Option Explicit
Dim objWMIService, objComputer, colComputer
Dim strComputer
'strComputer = "."
strcomputer = InputBox("Enter the PC Name")
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" _
& strComputer & "\root\cimv2")
Set colComputer = objWMIService.ExecQuery _
("Select * from Win32_ComputerSystem")

For Each objComputer in colComputer
Wscript.Echo "System Name: " & objComputer.Name
Wscript.Echo "Model " & objComputer.Model
Next

WScript.Quit

' Enjoy

5 comments:

  1. The Windows Performance Index is a measure of the combined performance of all the components of a Windows Vista or a Windows 7 computer. Read: https://www.desktopcon.org/best-computer-for-college-student

    ReplyDelete
  2. a great framework will have appraisals from 10 Hz to 20,000 Hz, guaranteeing that you get the best interpretation of low (bass) just as high frequencies. Best dell all in one desktop computer 2022

    ReplyDelete
  3. Be that as it may, so as to get the best outcomes, you have to realize how to locate the best program for your circumstance.data discovery

    ReplyDelete