شماره سریال دیسکت

[MAiLDEREMi]

با این کد می تونی هر چی از سریال ها را بخواهی بدست بیاری!
Dim objs AsObject
Dim obj AsObject
Dim WMI AsObject
WMI = GetObject("WinMgmts:")
objs = WMI.InstancesOf("Win32_BaseBoard")
ForEach obj In objs
Label11.Text = obj.product
Next obj


به جای
"Win32_BaseBoard"
می تونی
"Win32_processor"
و به جای
Label11.Text = obj.product
می تونی
Label11.Text = obj.ID

سلام هادی
به نظرم بهتره کلاس های بدرد بخور رو برای بقیه بذاریم:

class Win32_Processor : CIM_Processor

{

  uint16 AddressWidth;

  uint16 Architecture;

  uint16 Availability;

  string Caption;

  uint32 ConfigManagerErrorCode;

  boolean ConfigManagerUserConfig;

  uint16 CpuStatus;

  string CreationClassName;

  uint32 CurrentClockSpeed;

  uint16 CurrentVoltage;

  uint16 DataWidth;

  string Description;

  string DeviceID;

  boolean ErrorCleared;

  string ErrorDescription;

  uint32 ExtClock;

  uint16 Family;

  datetime InstallDate;

  uint32 L2CacheSize;

  uint32 L2CacheSpeed;

  uint32 LastErrorCode;

  uint16 Level;

  uint16 LoadPercentage;

  string Manufacturer;

  uint32 MaxClockSpeed;

  string Name;

  string OtherFamilyDescription;

  string PNPDeviceID;

  uint16 PowerManagementCapabilities[];

  boolean PowerManagementSupported;

  string ProcessorId;

  uint16 ProcessorType;

  uint16 Revision;

  string Role;

  string SocketDesignation;

  string Status;

  uint16 StatusInfo;

  string Stepping;

  string SystemCreationClassName;

  string SystemName;

  string UniqueId;

  uint16 UpgradeMethod;

  string Version;

  uint32 VoltageCaps;

};

class Win32_BaseBoard : CIM_Card

{

  string Caption;

  string ConfigOptions[];

  string CreationClassName;

  real32 Depth;

  string Description;

  real32 Height;

  boolean HostingBoard;

  boolean HotSwappable;

  datetime InstallDate;

  string Manufacturer;

  string Model;

  string Name;

  string OtherIdentifyingInfo;

  string PartNumber;

  boolean PoweredOn;

  string Product;

  boolean Removable;

  boolean Replaceable;

  string RequirementsDescription;

  boolean RequiresDaughterBoard;

  string SerialNumber;

  string SKU;

  string SlotLayout;

  boolean SpecialRequirements;

  string Status;

  string Tag;

  string Version;

  real32 Weight;

  real32 Width;

};

class Win32_MotherboardDevice : CIM_LogicalDevice

{

  uint16 Availability;

  string Caption;

  uint32 ConfigManagerErrorCode;

  boolean ConfigManagerUserConfig;

  string CreationClassName;

  string Description;

  string DeviceID;

  boolean ErrorCleared;

  string ErrorDescription;

  datetime InstallDate;

  uint32 LastErrorCode;

  string Name;

  string PNPDeviceID;

  uint16 PowerManagementCapabilities[];

  boolean PowerManagementSupported;

  string PrimaryBusType;

  string RevisionNumber;

  string SecondaryBusType;

  string Status;

  uint16 StatusInfo;

  string SystemCreationClassName;

  string SystemName;

};

class Win32_BIOS : CIM_BIOSElement

{

  uint16 BiosCharacteristics[];

  string BIOSVersion[];

  string BuildNumber;

  string Caption;

  string CodeSet;

  string CurrentLanguage;

  string Description;

  string IdentificationCode;

  uint16 InstallableLanguages;

  datetime InstallDate;

  string LanguageEdition;

  String ListOfLanguages[];

  string Manufacturer;

  string Name;

  string OtherTargetOS;

  boolean PrimaryBIOS;

  datetime ReleaseDate;

  string SerialNumber;

  string SMBIOSBIOSVersion;

  uint16 SMBIOSMajorVersion;

  uint16 SMBIOSMinorVersion;

  boolean SMBIOSPresent;

  string SoftwareElementID;

  uint16 SoftwareElementState;

  string Status;

  uint16 TargetOperatingSystem;

  string Version;

};