Beefy Boxes and Bandwidth Generously Provided by pair Networks
There's more than one way to do things
 
PerlMonks  

Re^2: Detecting a drive manufacturer

by softworkz (Monk)
on Nov 29, 2005 at 04:18 UTC ( #512498=note: print w/ replies, xml ) Need Help??


in reply to Re: Detecting a drive manufacturer
in thread Detecting a drive manufacturer

look up scriptomatic version 2

use strict; use Win32::OLE('in'); use constant wbemFlagReturnImmediately => 0x10; use constant wbemFlagForwardOnly => 0x20; my @computers = ("YOURPCNAMEGOESHERE"); foreach my $computer (@computers) { print "\n"; print "==========================================\n"; print "Computer: $computer\n"; print "==========================================\n"; my $objWMIService = Win32::OLE->GetObject("winmgmts:\\\\$computer\\ +root\\CIMV2") or die "WMI connection failed.\n"; my $colItems = $objWMIService->ExecQuery("SELECT * FROM Win32_DiskD +rive", "WQL", wbemFlagReturnImmediately | wbemFlagForwardOnly); foreach my $objItem (in $colItems) { print "Availability: $objItem->{Availability}\n"; print "BytesPerSector: $objItem->{BytesPerSector}\n"; print "Capabilities: " . join(",", (in $objItem->{Capabilities}) +) . "\n"; print "CapabilityDescriptions: " . join(",", (in $objItem->{Capa +bilityDescriptions})) . "\n"; print "Caption: $objItem->{Caption}\n"; print "CompressionMethod: $objItem->{CompressionMethod}\n"; print "ConfigManagerErrorCode: $objItem->{ConfigManagerErrorCode +}\n"; print "ConfigManagerUserConfig: $objItem->{ConfigManagerUserConf +ig}\n"; print "CreationClassName: $objItem->{CreationClassName}\n"; print "DefaultBlockSize: $objItem->{DefaultBlockSize}\n"; print "Description: $objItem->{Description}\n"; print "DeviceID: $objItem->{DeviceID}\n"; print "ErrorCleared: $objItem->{ErrorCleared}\n"; print "ErrorDescription: $objItem->{ErrorDescription}\n"; print "ErrorMethodology: $objItem->{ErrorMethodology}\n"; print "Index: $objItem->{Index}\n"; print "InstallDate: $objItem->{InstallDate}\n"; print "InterfaceType: $objItem->{InterfaceType}\n"; print "LastErrorCode: $objItem->{LastErrorCode}\n"; print "Manufacturer: $objItem->{Manufacturer}\n"; print "MaxBlockSize: $objItem->{MaxBlockSize}\n"; print "MaxMediaSize: $objItem->{MaxMediaSize}\n"; print "MediaLoaded: $objItem->{MediaLoaded}\n"; print "MediaType: $objItem->{MediaType}\n"; print "MinBlockSize: $objItem->{MinBlockSize}\n"; print "Model: $objItem->{Model}\n"; print "Name: $objItem->{Name}\n"; print "NeedsCleaning: $objItem->{NeedsCleaning}\n"; print "NumberOfMediaSupported: $objItem->{NumberOfMediaSupported +}\n"; print "Partitions: $objItem->{Partitions}\n"; print "PNPDeviceID: $objItem->{PNPDeviceID}\n"; print "PowerManagementCapabilities: " . join(",", (in $objItem-> +{PowerManagementCapabilities})) . "\n"; print "PowerManagementSupported: $objItem->{PowerManagementSuppo +rted}\n"; print "SCSIBus: $objItem->{SCSIBus}\n"; print "SCSILogicalUnit: $objItem->{SCSILogicalUnit}\n"; print "SCSIPort: $objItem->{SCSIPort}\n"; print "SCSITargetId: $objItem->{SCSITargetId}\n"; print "SectorsPerTrack: $objItem->{SectorsPerTrack}\n"; print "Signature: $objItem->{Signature}\n"; print "Size: $objItem->{Size}\n"; print "Status: $objItem->{Status}\n"; print "StatusInfo: $objItem->{StatusInfo}\n"; print "SystemCreationClassName: $objItem->{SystemCreationClassNa +me}\n"; print "SystemName: $objItem->{SystemName}\n"; print "TotalCylinders: $objItem->{TotalCylinders}\n"; print "TotalHeads: $objItem->{TotalHeads}\n"; print "TotalSectors: $objItem->{TotalSectors}\n"; print "TotalTracks: $objItem->{TotalTracks}\n"; print "TracksPerCylinder: $objItem->{TracksPerCylinder}\n"; print "\n"; } }sub WMIDateStringToDate(strDate) { return "blah"; }


Comment on Re^2: Detecting a drive manufacturer
Download Code

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://512498]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others contemplating the Monastery: (15)
As of 2014-09-16 19:03 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    How do you remember the number of days in each month?











    Results (44 votes), past polls