利用中の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

関連する記事

• 関連する投稿はありません。