VBScriptでWindows11のシステム仕様要件を取得するサンプルコード

Const WINMGMTS = "winmgmts:{impersonationLevel=impersonate,authenticationLevel=pktPrivacy}!\\"
Const ROOT_CIMV2 = "\root\cimv2"
Const ROOT_STORAGE = "\root\microsoft\windows\storage"
Const ROOT_TPM = "\root\cimv2\security\microsofttpm"
Const vbHide = 0
Const vbEndWait = True

'管理者権限で実行
If WScript.Arguments.Count = 0 Then
	CreateObject("Shell.Application").ShellExecute "wscript.exe",WScript.ScriptFullName & " runas","","runas",1
	WScript.Quit
Else
End If

'ファイルシステムオブジェクトを作成
Dim objFso : Set objFso = CreateObject("Scripting.FileSystemObject")
'ログファイルパス
Dim strLogFile : strLogFile = objFso.GetParentFolderName(WScript.ScriptFullName) & "\Windows11のシステム仕様用件.csv"
'ファイルが存在しない場合に作成
If Not objFso.FileExists(strLogFile) Then objFso.CreateTextFile(strLogFile) : isCreate = True Else isCreate = False
'追記で開く
Dim objLogFile : Set objLogFile = objFso.OpenTextFile(strLogFile,8)
'項目名を書き込む
If isCreate Then objLogFile.WriteLine "マシン名,プロセッサ名,コア数,OSアーキテクチャ,メモリ,ストレージ,システムファームウェア,TPM,DirectX,WDDM,追加日時"

'マシン名を書き込む
Dim strComputerName : strComputerName = CreateObject("WScript.Network").ComputerName
objLogFile.Write strComputerName

'ルートの設定
Dim objRoot : Set objRoot = GetObject(WINMGMTS & strComputerName & ROOT_CIMV2)

'プロセッサ情報を取得するクエリ
Dim objQuery : Set objQuery = objRoot.ExecQuery("Select * From Win32_Processor")
'プロセッサ名とコア数を取得
For Each index In objQuery
	objLogFile.Write "," & index.Name & "," & index.NumberOfCores
	Exit For
Next

'OS情報を取得するクエリ
Set objQuery = objRoot.ExecQuery("Select * From Win32_OperatingSystem")
'OSアーキテクチャを取得
For Each index In objQuery
	objLogFile.Write "," & index.OSArchitecture
	Exit For
Next

'メモリ情報を取得するクエリ
Set objQuery = objRoot.ExecQuery("Select * From Win32_PhysicalMemory")
'メモリを取得
Dim intMemory : intMemory = 0
For Each index In objQuery
	intMemory = intMemory + (index.Capacity / 1024 / 1024 / 1024)
Next
objLogFile.Write "," & intMemory & "GB"

'ルートの設定
Set objRoot = GetObject(WINMGMTS & strComputerName & ROOT_STORAGE)

'ストレージ情報を取得するクエリ
Set objQuery = objRoot.ExecQuery("Select * From MSFT_PhysicalDisk")
'ストレージを取得
Dim intStorage : intStorage = 0
For Each index In objQuery
	intStorage = intStorage + (index.Size / 1024 / 1024 / 1024)
Next
objLogFile.Write "," & CInt(intStorage) & "GB"

'Shellオブジェクトを作成
Dim objShell : Set objShell = CreateObject("WScript.Shell")
'コンピュータ情報を取得
Set objQuery = objShell.Exec("PowerShell -WindowStyle Hidden -ExecutionPolicy RemoteSigned ""Get-ComputerInfo""")
'システムファームウェアを取得
Do While objQuery.StdOut.AtEndOfStream <> True
	'1行取得
	Dim strLine : strLine = objQuery.StdOut.ReadLine
	'Biosモードのみ取得する
	If Instr(strLine,"BiosFirmwareType") > 0 Then
		objLogFile.Write "," & Trim(Mid(strLine,Instr(strLine,":") + 1))
		Exit Do
	Else
	End If
Loop

'ルートの設定
Set objRoot = GetObject(WINMGMTS & strComputerName & ROOT_TPM)

'TPMを取得するクエリ
Set objQuery = objRoot.ExecQuery("Select * From Win32_Tpm")
'TPMを取得
For Each index In objQuery
	objLogFile.Write ",""" & index.SpecVersion & """"
Next

'一時ファイルパス
Dim strDxdiagFile : strDxdiagFile = objShell.ExpandEnvironmentStrings("%TEMP%") & "\workVbs_dxdiag.txt"
'dxdiag情報をファイルへ書き込む
objShell.Run "cmd /c dxdiag /t " & strDxdiagFile ,vbHide,vbEndWait
'読み取り専用として開く
Dim objWorkFile : Set objWorkFile = objFso.OpenTextFile(strDxdiagFile,1)
'1行ずつファイルを読み込む
Do While Not objWorkFile.AtEndOfStream
	'1行取得
	strLine = objWorkFile.ReadLine
	'DirectXとWDDMを取得する
	If Instr(strLine,"DirectX Version") > 0 Then
		objLogFile.Write "," & Trim(Mid(strLine,Instr(strLine,":") + 1))
	ElseIf Instr(strLine,"Driver Model") > 0 Then
		objLogFile.Write "," & Trim(Mid(strLine,Instr(strLine,":") + 1))
		Exit Do
	Else
	End If
Loop

'最後に改行
objLogFile.WriteLine "," & Now()

'後始末
objWorkFile.Close : Set objWorkFile = Nothing : objFso.DeleteFile(strDxdiagFile)
objLogFile.Close : Set objLogFile = Nothing
Set objQuery = Nothing
Set objShell = Nothing
Set objRoot = Nothing
Set objFso = Nothing

'処理完了確認
Msgbox "処理完了"