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
Desktop Guy's Blog 