[es] - kako dobiti informacije o hardware-u

obrad_beocin
Obrad Nikolic
Beocin

Član broj: 12133
Poruke: 32
195.178.62.*

Profil

kako dobiti informacije o hardware-u

^{06.09.2005. u 13:30}

Kako da uz pomoc perl-a dobijem informacije o hardveru kako na lokalnom racunaru tako i na racunarima na mrezi ?
Nasao sam neke skripte na internetu i uz pomoc njih sam dobio informacije o instaliranom software-u ali nisam uspeo da dobijem informacije o hardware-u.

^{06.09.2005. u 13:30}

zaljubljeni

Član broj: 66274
Poruke: 22
*.gromnet.net.

Profil

Re: kako dobiti informacije o hardware-u

^{06.09.2005. u 20:06}

Jednostavno koriscenjem /proc pseudo-fajl sistema.

_{[Ovu poruku je menjao zaljubljeni dana 06.09.2005. u 21:06 GMT+1]}

uz klasicno otvaranje fajlova iz datog VFS-a.

Code:

c0re:~> cat perl
#!/usr/bin/perl -w

print "Unesi ime fajla ->";
chomp($ime = <STDIN>);

open (FAJL,$ime) || die "Can't Open File: $ime\n";

@arrayfile = <FAJL>;
print @arrayfile;

_{[Ovu poruku je menjao zaljubljeni dana 06.09.2005. u 21:22 GMT+1]}

^{06.09.2005. u 20:06}

obrad_beocin
Obrad Nikolic
Beocin

Član broj: 12133
Poruke: 32
195.178.62.*

Profil

Re: kako dobiti informacije o hardware-u

^{07.09.2005. u 09:07}

Meni treba skripta pomocu koje mogu da dobijem informacije o pc hardware-u, a ne skripta pomocu koje otvaram i citam sadrzaj nekog fajla.

^{07.09.2005. u 09:07}

MoDcHe
SER Sabac

Član broj: 4
Poruke: 475
212.62.46.*

Jabber: modche@elitesecurity.org
ICQ: 73295306
Sajt: localhost

Profil

Re: kako dobiti informacije o hardware-u

^{07.09.2005. u 10:09}

pa lepo ti je chovek napisao u /proc imas sve sto te interesuje.

ako hoces info za cpu otvoris fajl /proc/cpuinfo i onda radi sta hoces ;)

When you say "I wrote a program
that crashed Windows", people
just stare at
you blankly and say "Hey, I got
those with the system, *for
free*".
-- Linus Torvalds

^{07.09.2005. u 10:09}

obrad_beocin
Obrad Nikolic
Beocin

Član broj: 12133
Poruke: 32
195.178.62.*

Profil

Re: kako dobiti informacije o hardware-u

^{07.09.2005. u 11:16}

Moja je greska u pitanju, nisam napomenuo da se radi o windows-u.

^{07.09.2005. u 11:16}

MoDcHe
SER Sabac

Član broj: 4
Poruke: 475
212.62.46.*

Jabber: modche@elitesecurity.org
ICQ: 73295306
Sajt: localhost

Profil

Re: kako dobiti informacije o hardware-u

^{07.09.2005. u 11:32}

e tu ti ne mogu pomoci :>
mozda ce zaljubljeni znati

When you say "I wrote a program
that crashed Windows", people
just stare at
you blankly and say "Hey, I got
those with the system, *for
free*".
-- Linus Torvalds

^{07.09.2005. u 11:32}

zaljubljeni

Član broj: 66274
Poruke: 22
*.gromnet.net.

Profil

Re: kako dobiti informacije o hardware-u

^{07.09.2005. u 15:10}

Obrade ja sam mislio za linux i to je to ;0

@sqla ma da verovatno znam za win lol ;0

Mozda prouci kako vadi onaj qrac System Information na winu.

^{07.09.2005. u 15:10}

misa vranje
Milos Stanojevic
Vranje

Član broj: 15298
Poruke: 122
212.62.51.*

Profil

Re: kako dobiti informacije o hardware-u

^{11.09.2005. u 02:54}

Mozda lupam ali mislim da se kod windowsa u system registryju nalaze i podaci o hardveru.Ako sam u pravu onda se raspitaj na netu gde se tacno nalaze ti podaci i koristi modul Win32::TieRegistry da pristupis registriyu

^{11.09.2005. u 02:54}

obrad_beocin
Obrad Nikolic
Beocin

Član broj: 12133
Poruke: 32
195.178.62.*

Profil

Re: kako dobiti informacije o hardware-u

^{13.12.2005. u 07:47}

Uspeo sam da uz pomoc WMI-a dobijem najrazlicitije informacije. Evo prilazem jedan deo koda:

use Win32::OLE('in');
use constant wbemFlagReturnImmediately => 0x10;
use constant wbemFlagForwardOnly => 0x20;

my ($computer) = shift || "";
$objWMIService = Win32::OLE->GetObject
("winmgmts:\\\\$computer\\root\\CIMV2") or die "WMI connection failed.\n";
$colItems = $objWMIService->ExecQuery
("SELECT * FROM Win32_ComputerSystem","WQL",wbemFlagReturnImmediately | wbemFlagForwardOnly);

print "System info:\n\n";

foreach my $objItem (in $colItems)
{
print "Manufacturer: $objItem->{Manufacturer}\n";
print "Model: $objItem->{Model}\n";
print "Name: $objItem->{Name}\n";
print "Primary Owner Name: $objItem->{PrimaryOwnerName}\n";
print "Status: $objItem->{Status}\n";
print "Total Physical Memory: $objItem->{TotalPhysicalMemory}\n";
print "User Name: $objItem->{UserName}\n";
print "\n";
}

^{13.12.2005. u 07:47}