o pacia programa? "andrws" <andrws@gmail.com> wrote in message news:fsim9p$7n3$1@trimpas.omnitel.net... > va tau elementarus visual basic scriptas :)strComputer = "." > Set objWMIService = GetObject("winmgmts:" _ > & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") > > Set colOSes = objWMIService.ExecQuery("Select * from > Win32_OperatingSystem") > For Each objOS in colOSes > Wscript.Echo "Computer Name: " & objOS.CSName > Wscript.Echo "Caption: " & objOS.Caption 'Name > Wscript.Echo "Version: " & objOS.Version 'Version & build > Wscript.Echo "Build Number: " & objOS.BuildNumber 'Build > Wscript.Echo "Build Type: " & objOS.BuildType > Wscript.Echo "OS Type: " & objOS.OSType > Wscript.Echo "Other Type Description: " & objOS.OtherTypeDescription > WScript.Echo "Service Pack: " & objOS.ServicePackMajorVersion & "." & _ > objOS.ServicePackMinorVersion > Next >