code:

---

? OS_Info('.')     ; Get Info for: local WS
? OS_Info('PC099') ; Get Info for: PC099
Get $x
 
Function OS_Info($Computer)
	Dim $oWMIService,$ItemS,$Item
	
	$oWMIService = GetObject("winmgmts:\\" + $Computer + "\root\cimv2")
	$ItemS = $oWMIService.ExecQuery("Select * from Win32_OperatingSystem where Primary=True")
	For Each $Item In $ItemS
	  $OS_Info = $Item.Caption
	  $OS_Info = $OS_Info + ',' + $Item.OSLanguage
	Next
EndFunction

---