Opened by aspnstyle at 2008-03-21 19:08
vielen dank rene
das mit der Systemauslese sprich CPU,OS,IP,DNS,.... hat wunderbar geklappt
jetzt bin ich gerade dabei die Regedit auszulesen da unter Local_Machine/Software/Microsoft/Windows/CurrentVersion/Uninstall
alle installierten programme vorhanden sind.
ich hab mir zuerst Win32::Registry angeschaut da dies für mich als Anfänger als erstes übersichtlicher ist auch wenn es nicht so viel kann wie TieRegistry.
Es hat auch wundervoll funktioniert.
Einzigstes Problem was ich habe ist dass ich den ganzen Uninstall Ordner auslesen müsste da dort die ganzen Unterordner wie z.b {1545207E-C6F3-31D7-9918-BDBB65075FBF} vorhanden sind und darin befindet sich zu dem jeweiligen programm die information.
Wie gesagt jetzt müsste ich jeweis den Ordner Uninstall auslesen und dann eine Schleife basteln.... aber jetzt stehe ich an funktioniert dies gleich wie wenn man einen Ordner auf der Festplatte ausliest oder funktioniert das in der Registry überhaupt???
Vielen lieben dank
das mit der Systemauslese sprich CPU,OS,IP,DNS,.... hat wunderbar geklappt
jetzt bin ich gerade dabei die Regedit auszulesen da unter Local_Machine/Software/Microsoft/Windows/CurrentVersion/Uninstall
alle installierten programme vorhanden sind.
ich hab mir zuerst Win32::Registry angeschaut da dies für mich als Anfänger als erstes übersichtlicher ist auch wenn es nicht so viel kann wie TieRegistry.
Es hat auch wundervoll funktioniert.
Code (perl): (dl
)
1 2 3 4 5 6 7 8 9 10 11 12 13
use Win32::Registry; my $tips; $::HKEY_LOCAL_MACHINE->Open("SOFTWARE\\Microsoft\\Windows\\CurrentVersion\\Uninstall\\{1545207E-C6F3-31D7-9918-BDBB65075FBF}", $tips) or die "Can't open tips: $^E"; my ($type, $value); $tips->QueryValueEx("DisplayName", $type, $value) or die "$^E"; print "Programm: $value\n"; $tips->QueryValueEx("DisplayVersion", $type, $value) or die "$^E"; print "Version: $value\n"; $tips->QueryValueEx("InstallDate", $type, $value) or die " $^E"; print "Installations Datum: $value\n"; $tips->QueryValueEx("Publisher", $type, $value) or die "$^E"; print "Hersteller: $value\n";
Einzigstes Problem was ich habe ist dass ich den ganzen Uninstall Ordner auslesen müsste da dort die ganzen Unterordner wie z.b {1545207E-C6F3-31D7-9918-BDBB65075FBF} vorhanden sind und darin befindet sich zu dem jeweiligen programm die information.
Wie gesagt jetzt müsste ich jeweis den Ordner Uninstall auslesen und dann eine Schleife basteln.... aber jetzt stehe ich an funktioniert dies gleich wie wenn man einen Ordner auf der Festplatte ausliest oder funktioniert das in der Registry überhaupt???
Vielen lieben dank