Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

kako dobiti informacije o hardware-u

[es] :: Perl :: kako dobiti informacije o hardware-u

[ Pregleda: 7114 | Odgovora: 8 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

obrad_beocin
Beocin

Član broj: 12133
Poruke: 34
195.178.62.*



Profil

icon kako dobiti informacije o hardware-u06.09.2005. u 13:30 - pre 225 meseci
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.
 
Odgovor na temu

zaljubljeni

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



Profil

icon Re: kako dobiti informacije o hardware-u06.09.2005. u 20:06 - pre 225 meseci
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]
 
Odgovor na temu

obrad_beocin
Beocin

Član broj: 12133
Poruke: 34
195.178.62.*



Profil

icon Re: kako dobiti informacije o hardware-u07.09.2005. u 09:07 - pre 225 meseci
Meni treba skripta pomocu koje mogu da dobijem informacije o pc hardware-u, a ne skripta pomocu koje otvaram i citam sadrzaj nekog fajla.
 
Odgovor na temu

MoDcHe
SER Sabac

Član broj: 4
Poruke: 486
212.62.46.*

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


+3 Profil

icon Re: kako dobiti informacije o hardware-u07.09.2005. u 10:09 - pre 225 meseci
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
 
Odgovor na temu

obrad_beocin
Beocin

Član broj: 12133
Poruke: 34
195.178.62.*



Profil

icon Re: kako dobiti informacije o hardware-u07.09.2005. u 11:16 - pre 225 meseci
Moja je greska u pitanju, nisam napomenuo da se radi o windows-u.
 
Odgovor na temu

MoDcHe
SER Sabac

Član broj: 4
Poruke: 486
212.62.46.*

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


+3 Profil

icon Re: kako dobiti informacije o hardware-u07.09.2005. u 11:32 - pre 225 meseci
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
 
Odgovor na temu

zaljubljeni

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



Profil

icon Re: kako dobiti informacije o hardware-u07.09.2005. u 15:10 - pre 225 meseci
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.
 
Odgovor na temu

misa vranje
Milos Stanojevic
Vranje

Član broj: 15298
Poruke: 127
212.62.51.*



Profil

icon Re: kako dobiti informacije o hardware-u11.09.2005. u 02:54 - pre 225 meseci
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
 
Odgovor na temu

obrad_beocin
Beocin

Član broj: 12133
Poruke: 34
195.178.62.*



Profil

icon Re: kako dobiti informacije o hardware-u13.12.2005. u 07:47 - pre 222 meseci
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";
}
 
Odgovor na temu

[es] :: Perl :: kako dobiti informacije o hardware-u

[ Pregleda: 7114 | Odgovora: 8 ] > FB > Twit

Postavi temu Odgovori

Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.