利用中のOS名を取得するスクリプト

利用中のオペレーティングシステム名を取得します。

Option Explicit

Dim strComputer

strComputer = "."

Wscript.Echo OperatingSystem(strComputer)

'オペレーティングシステムを返す
Function OperatingSystem(strComputer)
	Dim objWMIService,colItems,objItem
	Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2") 
	Set colItems = objWMIService.ExecQuery( _
	    "SELECT Caption FROM Win32_OperatingSystem",,48) 
	For Each objItem in colItems 
	    OperatingSystem = objItem.Caption
	Next
	Set objWMIService = Nothing
	Set colItems = Nothing
End Function