VBScript – Get OS Name

The script below is simple Рuse it to get the name of the current OS (Windows XP, 7, etc).  Currently it outputs to a message box but can be used for case statements, if else, etc.


Code start

====================
on error r
esume next

sRes = Inputbox(“Enter the Server or Computer name”, “OS”)
strComputer = sRes
if strComputer = “” then
Msgbox “No server was enter, will use current computer”,vbCritical,”Warning”
strComputer = “.”
end if
Set objWMIService = GetObject(“winmgmts:\\” ¬†& strComputer & “\root\cimv2”)
Set colItems = objWMIService.ExecQuery(“Select * from Win32_OperatingSystem”,,48)
For Each objItem in colItems
Msgbox objItem.Caption,VbInformation,”Running on ” & strComputer & ” is:”
Next
======================
Code End

Output