etoima scripts gia windows 2000 server kai xp

[cyberstorm]

pou mporo na vro etoima scriptiakia pou na mou dinoun diafores plirofories gia to diktio kai gia ta termatika vrika auto alla den ksero pos na ta kano ....check

[seven77]

px edo

anoixe to notaped

copy paste

 

 

strComputer = "."

Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")

Set colCSes = objWMIService.ExecQuery("SELECT * FROM Win32_ComputerSystem")

For Each objCS In colCSes

WScript.Echo "Computer Name: " & objCS.Name

WScript.Echo "System Type: " & objCS.SystemType

WScript.Echo "Number Of Processors: " & objCS.NumberOfProcessors

Next

Set colProcessors = objWMIService.ExecQuery("Select * from Win32_Processor")

For Each objProcessor in colProcessors

WScript.Echo "Manufacturer: " & objProcessor.Manufacturer

WScript.Echo "Name: " & objProcessor.Name

WScript.Echo "Description: " & objProcessor.Description

WScript.Echo "Processor ID: " & objProcessor.ProcessorID

WScript.Echo "Address Width: " & objProcessor.AddressWidth

WScript.Echo "Data Width: " & objProcessor.DataWidth

WScript.Echo "Family: " & objProcessor.Family

WScript.Echo "Maximum Clock Speed: " & objProcessor.MaxClockSpeed

Next

 

save as info.vbs kai trexto

[cyberstorm]

to ekana kai etrekse kai einai ok...an to valo sto startup tha ksekinaei otan anoigi to pc??? kai kati akoma i selida auti exei kai alla scriptakia to idio tha kano kai me auta????

[seven77]

nai akrivos