Script for Windows System Information

Last week for a small project to pull system info from 500 server, I used the following vbs script (found on google search as I not good in writing scripts) to pull WMI info for OS version, SP, Processor, Memory:

On Error Resume Next
Const ForReading = 1
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTextFile = objFSO.OpenTextFile("c:\computers.txt", ForReading) 'Check the location of the file.
strComputers = objTextFile.ReadAll
objTextFile.Close
arrComputers = Split(strComputers, vbCrLf)
Set objShell = CreateObject("WScript.Shell")
For Each strComputer In arrComputers
strComputer = arrComputers
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colSettings = objWMIService.ExecQuery _
("SELECT * FROM Win32_OperatingSystem")
For Each objOperatingSystem in colSettings
Wscript.Echo "OS Name: " & objOperatingSystem.Name
Wscript.Echo "Version: " & objOperatingSystem.Version
Wscript.Echo "Service Pack: " & _
objOperatingSystem.ServicePackMajorVersion _
& "." & objOperatingSystem.ServicePackMinorVersion
Wscript.Echo "OS Manufacturer: " & objOperatingSystem.Manufacturer
Wscript.Echo "Windows Directory: " & _
objOperatingSystem.WindowsDirectory
Wscript.Echo "Locale: " & objOperatingSystem.Locale
Wscript.Echo "Available Physical Memory: " & _
objOperatingSystem.FreePhysicalMemory
Wscript.Echo "Total Virtual Memory: " & _
objOperatingSystem.TotalVirtualMemorySize
Wscript.Echo "Available Virtual Memory: " & _
objOperatingSystem.FreeVirtualMemory
Wscript.Echo "OS Name: " & objOperatingSystem.SizeStoredInPagingFiles
Next
Set colSettings = objWMIService.ExecQuery _
("SELECT * FROM Win32_ComputerSystem")
For Each objComputer in colSettings
Wscript.Echo "System Name: " & objComputer.Name
Wscript.Echo "System Manufacturer: " & objComputer.Manufacturer
Wscript.Echo "System Model: " & objComputer.Model
Wscript.Echo "Time Zone: " & objComputer.CurrentTimeZone
Wscript.Echo "Total Physical Memory: " & _
objComputer.TotalPhysicalMemory
Next
Set colSettings = objWMIService.ExecQuery _
("SELECT * FROM Win32_Processor")
For Each objProcessor in colSettings
Wscript.Echo "System Type: " & objProcessor.Architecture
Wscript.Echo "Processor: " & objProcessor.Description
Next
Set colSettings = objWMIService.ExecQuery _
("SELECT * FROM Win32_BIOS")
For Each objBIOS in colSettings
Wscript.Echo "BIOS Version: " & objBIOS.Version
Next
Next

Its a nice one to solve my purpose!!

Comments

Post a Comment

Popular posts from this blog

Solved Account lockout issue

Today I was working on an issue where an local user account getting locked out with the following event ID: Event Type: Failure Audit Event Source: Security Event Category: Logon/Logoff Event ID: 529 Date: 5/17/2008 Time: 6:45:00 PM User: NT AUTHORITY\SYSTEM Computer: XXXXXXXXXXXXXXX Description: Logon Failure: Reason: Unknown user name or bad password User Name: XXXXXXX Domain: XXXXXXXXXXXX Logon Type: 4 Logon Process: Advapi Authentication Package: MICROSOFT_AUTHENTICATION_PACKAGE_V1_0 Workstation Name: XxXXXXXXXXXXXX Event IDs 528 and 540 signify a successful logon, event ID 538 a logoff and all the other events in this category identify different reasons for a logon failure. However, just knowing about a successful or failed logon attempt doesn’t fill in the
Read more

My Wintel Infrastructure Transitioning Experience

Although I have done many transitions on Intel and Windows Infrastructures in Domestic Market in India, this time I was a part of a very strong transitioning team to transition an International Infrastructure project. I was in AZ, USA in last November and stayed there for about a month for knowledge transfer and documentation of the current state of infrastructure and used a sequential process centric transitioning to enable customers to experience the benefit of off-shoring. The new model is going to be a global infrastructure support model and will have presence in Mexico, Romania, USA and India. That was really a nice experience! Meeting with new people, understanding their views, the different perceptions and ideas on life, profession and technologies was exciting me. Soon I came to know that it is not easy to work with people from different regions of the globe. To understand them, to understand their culture, the behavior, the accent, the professional approach of doing the work c
Read more

Windows 2008 RDC / RDP: "Because of an error in data encryption, the session will end"

Yesterday I had an issue with a newly built Windows 2008 server. I was not able to RDP this server through my home internet connection. The server was on port redirection and it tries to bring the console but gave the following error: "Because of an error in data encryption, the session will end" After some research and google search I tried the following workaround and it worked!!!!!: I Went to: Show all Network Connections Local Area Connection -> Properties Pressed the Configure button (for the Chip) Advanced; and set the following disabled: Offload TCP LargeSend This was unexpected issue...
Read more