' 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
Great!it is really nice blog information.after a long time i have grow through such kind of ideas.
ReplyDeletethanks for share your thoughts with us.
SEO Training in Chennai
JAVA Training in Chennai
Big Data Training in Chennai
Selenium Training in Chennai
German Classes in chennai
DOT NET Training in Chennai
German Classes in Anna Nagar
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
ReplyDeleteThank you for providing the great information and This post is very attractive to me. Anyway, a good job keeps posting...
ReplyDeleteUnix Training in Chennai
Unix Certification Courses
Oracle DBA Training in Chennai
Social Media Marketing Courses in Chennai
Pega Training in Chennai
Tableau Training in Chennai
Spark Training in Chennai
Oracle Training in Chennai
Primavera Training in Chennai
Power BI Training in Chennai
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
ReplyDeleteBe 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