Set SystemSet = GetObject("winmgmts:").InstancesOf ("Win32_OperatingSystem")
Set NetInfo = GetObject("winmgmts:").InstancesOf ("Win32_OperatingSystem ")
Set Network = WScript.CreateObject("WScript.Network")
for each System in NetInfo
CompName = System.Caption
OwnName = System.PrimaryOwnerName
DomainName = System.Domain
SysType = System.SystemType
next
for each System in SystemSet
WScript.Echo "Operációs rendszer: " + System.Caption + Chr(13) +
"Gyártó: " + System.Manufacturer + Chr (13) +
"Verzió: " + System.Version + Chr(13) +
"Windows könyvtár: " + System.WindowsDirectory + Chr(13) +
"Összes fizikai memória: " + System.TotalVisibleMemorySize + " bytes" + Chr(13) +
"Szériaszám: " + System.SerialNumber + Chr(13) +
"Gépnév: " + CompName + Chr(13) +
"Tulajdonos neve: " + OwnName + Chr(13) +
"Tartománynév: " + DomainName + Chr(13) +
"Rendszer típusa: " + SysType + Chr(13) +
"Bejelentkezett felhasználó: " + Network.UserName
next
FOR EACH elem IN elemcsoport
utasítások
EXIT FOR
utasítások
NEXT elem