Get the OS version (3 versions of script)

RE: Using WshShell.Exec (mbouchard)

Tue, 30 Aug 2005 05:28:59 GMT

msgbox GetOS

Function GetOS()
'WMI is required for this script to function
Dim strComputer, strWMIOS
'If you only want to use locally, remove the inputbox and make strComputer = "."
strComputer = Inputbox("Input the name of the remote computer or hit enter for this PC.")
   If strComputer = "" then
       strComputer = "."
   End if

Dim objWmiService : Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\"& strComputer & "\root\cimv2")
Dim strOsQuery : strOsQuery = "Select * from Win32_OperatingSystem"
Dim colOperatingSystems : Set colOperatingSystems = objWMIService.ExecQuery(strOsQuery)
Dim objOs
Dim strOsVer

   For Each objOs in colOperatingSystems
       strWmios = objOs.Caption & " " & objOs.Version
   Next

   Select Case True
   'Add more info to the 98 and 95 to get the specific version. i.e. 98SE 95 a,b,or c
        Case InStr(strWmiOS, "2000 Server") > 1 : GetOS = "2KSRV"
        Case InStr(strWmiOS, "2003, Standard") > 1 : GetOS = "2K3SRV"
        Case InStr(strWmiOS, "2003, Enterprise") > 1 : GetOS = "2K3ENTSRV"
       Case InStr(strWmiOS, "2000 Advanced Server") > 1 : GetOS = "2KADVSRV"
       Case InStr(strWmiOS, "Windows NT") > 1 : GetOS = "NT4"
       Case InStr(strWmiOS, "Windows 2000") > 1 : GetOS = "W2K"
       Case InStr(strWmiOS, "Windows XP") > 1 : GetOS = "WXP"
       Case Else : GetOS = "Unknown"
   End Select
End Function

Using WshShell.Exec (mbouchard)

Tue, 30 Aug 2005 05:28:18 GMT

msgbox GetOS

Function GetOS()
'Requires WSH 5.6
'CMD window will flash as there is no way to supress it when using exec.
   Dim WshShell : Set WshShell = CreateObject("WScript.Shell")
   Dim strVer : set strVer = WshShell.exec("%comspec% /c ver")
   Dim sResults
   sResults = strVer.stdout.readall

   Select Case True
   'Add more info to the 98 and 95 to get the specific version. i.e. 98SE 95 a,b,or c
        Case InStr(sResults, "Windows 95") > 1 : GetOS = "W95"
       Case InStr(sResults, "Windows 98") > 1 : GetOS = "W98"
       Case InStr(sResults, "Windows Millennium") > 1 : GetOS = "WME"
       Case InStr(sResults, "Windows NT") > 1 : GetOS = "NT4"
       Case InStr(sResults, "Windows 2000") > 1 : GetOS = "W2K"
       Case InStr(sResults, "Windows XP") > 1 : GetOS = "WXP"
       Case Else : GetOS = "Unknown"
   End Select
End Function

Using WshShell.Run (mbouchard)

Tue, 30 Aug 2005 05:27:28 GMT

msgbox GetOS

Function GetOS()
'Will work with most versions of WSH.
'CMD window will not display.
Const OpenAsASCII      = 0
Const FailIfNotExist   = 0
Const ForReading       = 1

Dim WshShell : Set WshShell = CreateObject("WScript.Shell")
Dim FSO : Set FSO = CreateObject("Scripting.FileSystemObject")
Dim sTemp, sTempFile, fFile, sResults
sTemp = WshShell.ExpandEnvironmentStrings("%TEMP%")
sTempFile = sTemp & "\runresult.tmp"

WshShell.Run "%comspec% /c ver >" & sTempFile, 0, True

Set fFile = FSO.OpenTextFile(sTempFile, ForReading, FailIfNotExist, OpenAsASCII)

sResults = fFile.ReadAll
fFile.Close
FSO.DeleteFile(sTempFile)

Select Case True
   'Add more info to the 98 and 95 to get the specific version. i.e. 98SE 95 a,b,or c
    Case InStr(sResults, "Windows 95") > 1 : GetOS = "W95"
    Case InStr(sResults, "Windows 98") > 1 : GetOS = "W98"
    Case InStr(sResults, "Windows Millennium") > 1 : GetOS = "WME"
    Case InStr(sResults, "Windows NT") > 1 : GetOS = "NT4"
    Case InStr(sResults, "Windows 2000") > 1 : GetOS = "W2K"
    Case InStr(sResults, "Windows XP") > 1 : GetOS = "WXP"
    Case Else : GetOS = "Unknown"
End Select
End Function

Get the OS version (3 versions of script) (mbouchard)

Tue, 30 Aug 2005 05:26:58 GMT

There will be 3 different versions of this script posted.

Script Name: GetOS.vbs
Version 1 Tested on WinNT4 and up
Version 2 Tested on Win2000 (requires wscript 5.6) and up
Version 3 Tested on Win2000 (updated WMI) and up

No testing done on 9x/ME

1) Uses WshShell.Run to run Ver in the cmd (%comspec%) prompt. The output is redirected to the temp folder whose location is taken from the temp environement variable. CMD window is not displayed and the file is deleted after use. Note, some newer virus scanners may prevent script from accessing files in the temp folder, happened with McAfee 8.0 where I work.

2) Similar to version 1, but uses WshShell.Exec instead. Now file is created but the cmd window will flash as you can not supress it when using Exec. Also, Wscript 5.6 is required, XP comes with it but you will need to upgrade other OS's.

3) Uses WMI to get the OS. This method will allow you to differenciate between OS/Server versions and get the OS from a remote PC. WMI is required and will need to be installed on older OS's.