Add a reference to "System.Management.dll" and import the
'System.Management' namespace:
\\\
Dim disk As New ManagementObject( _
"Win32_LogicalDisk.DeviceID=""C:""" _
)
Dim diskPropertyA As PropertyData = _
disk.Properties("VolumeSerialNumber")
MsgBox(diskPropertyA.Value.ToString())
///
Just For Fun....(Yes I need a life!!)
Control Panel (CONTROL.EXE)
--------------------------------
Control Panel:
rundll32.exe shell32.dll,Control_RunDLL
Accessability Options (ACCESS.CPL)
---------------------------------------
Accessability Properties (Keyboard):
rundll32.exe shell32.dll,Control_RunDLL access.cpl,,1
Accessability Properties (Sound):
rundll32.exe shell32.dll,Control_RunDLL access.cpl,,2
Accessability Properties (Display):
rundll32.exe shell32.dll,Control_RunDLL access.cpl,,3
Accessability Properties (Mouse):
rundll32.exe shell32.dll,Control_RunDLL access.cpl,,4
Accessability Properties (General):
rundll32.exe shell32.dll,Control_RunDLL access.cpl,,5
Add/Remove Programs (APPWIZ.CPL)
-------------------------------------
Add/Remove Programs Properties (Install/Uninstall):
rundll32.exe shell32.dll,Control_RunDLL appwiz.cpl,,1
Add/Remove Programs Properties (Windows Setup):
rundll32.exe shell32.dll,Control_RunDLL appwiz.cpl,,2
Add/Remove Programs Properties (Startup Disk):
rundll32.exe shell32.dll,Control_RunDLL appwiz.cpl,,3
Display Options (DESK.CPL)
-------------------------------
Display Properties (Background):
rundll32.exe shell32.dll,Control_RunDLL desk.cpl,,0
Display Properties (Screen Saver):
rundll32.exe shell32.dll,Control_RunDLL desk.cpl,,1
Display Properties (Appearance):
rundll32.exe shell32.dll,Control_RunDLL desk.cpl,,2
Display Properties (Settings):
rundll32.exe shell32.dll,Control_RunDLL desk.cpl,,3
Regional Settings (INTL.CPL)
---------------------------------
Regional Settings Properties (Regional Settings):
rundll32.exe shell32.dll,Control_RunDLL intl.cpl,,0
Regional Settings Properties (Number):
rundll32.exe shell32.dll,Control_RunDLL intl.cpl,,1
Regional Settings Properties (Currency):
rundll32.exe shell32.dll,Control_RunDLL intl.cpl,,2
Regional Settings Properties (Time):
rundll32.exe shell32.dll,Control_RunDLL intl.cpl,,3
Regional Settings Properties (Date):
rundll32.exe shell32.dll,Control_RunDLL intl.cpl,,4
Joystick Options (JOY.CPL)
-------------------------------
Joystick Properties (Joystick):
rundll32.exe shell32.dll,Control_RunDLL joy.cpl
Mouse/Keyboard/Printers/Fonts Options (MAIN.CPL)
-----------------------------------------------------
Mouse Properties:
rundll32.exe shell32.dll,Control_RunDLL main.cpl @0
Keyboard Properties:
rundll32.exe shell32.dll,Control_RunDLL main.cpl @1
Printers:
rundll32.exe shell32.dll,Control_RunDLL main.cpl @2
Fonts:
rundll32.exe shell32.dll,Control_RunDLL main.cpl @3
Mail and Fax Options (MLCFG32.CPL)
---------------------------------------
Microsoft Exchange Profiles (General):
rundll32.exe shell32.dll,Control_RunDLL mlcfg32.cpl
Multimedia/Sounds Options (MMSYS.CPL)
------------------------------------------
Multimedia Properties (Audio):
rundll32.exe shell32.dll,Control_RunDLL mmsys.cpl,,0
Multimedia Properties (Video):
rundll32.exe shell32.dll,Control_RunDLL mmsys.cpl,,1
Multimedia Properties (MIDI):
rundll32.exe shell32.dll,Control_RunDLL mmsys.cpl,,2
Multimedia Properties (CD Music):
rundll32.exe shell32.dll,Control_RunDLL mmsys.cpl,,3
Multimedia Properties (Advanced):
rundll32.exe shell32.dll,Control_RunDLL mmsys.cpl,,4
= = = = = = = = = = = = = = = = = = = = = = = = = = =
Sounds Properties:
rundll32.exe shell32.dll,Control_RunDLL mmsys.cpl @1
Modem Options (MODEM.CPL)
------------------------------
Modem Properties (General):
rundll32.exe shell32.dll,Control_RunDLL modem.cpl
Network Options (NETCPL.CPL)
---------------------------------
Network (Configuration):
rundll32.exe shell32.dll,Control_RunDLL netcpl.cpl
Password Options (PASSWORD.CPL)
------------------------------------
Password Properties (Change Passwords):
rundll32.exe shell32.dll,Control_RunDLL password.cpl
System/Add New Hardware Options (SYSDM.CPL)
------------------------------------------------
System Properties (General):
rundll32.exe shell32.dll,Control_RunDLL sysdm.cpl,,0
System Properties (Device Manager):
rundll32.exe shell32.dll,Control_RunDLL sysdm.cpl,,1
System Properties (Hardware Profiles):
rundll32.exe shell32.dll,Control_RunDLL sysdm.cpl,,2
System Properties (Performance):
rundll32.exe shell32.dll,Control_RunDLL sysdm.cpl,,3
= = = = = = = = = = = = = = = = = = = = = = = = = = =
Add New Hardware Wizard:
rundll32.exe shell32.dll,Control_RunDLL sysdm.cpl @1
Date and Time Options (TIMEDATE.CPL)
-----------------------------------------
Date/Time Properties:
rundll32.exe shell32.dll,Control_RunDLL timedate.cpl
Microsoft Mail Postoffice Options (WGPOCPL.CPL)
----------------------------------------------------
Microsoft Workgroup Postoffice Admin:
rundll32.exe shell32.dll,Control_RunDLL wgpocpl.cpl
================================================== ==
SYSTEM WIZARDS
================================================== ==
Open With (File Associations):
rundll32.exe shell32.dll,OpenAs_RunDLL d:\path\filename.ext
Run Diskcopy Dialog:
rundll32 diskcopy.dll,DiskCopyRunDll
Create New Shortcut Wizard:
'puts the new shortcut in the location specified by %1
rundll32.exe AppWiz.Cpl,NewLinkHere %1
Install New Hardware Wizard:
rundll32.exe sysdm.cpl,InstallDevice_RunDLL
Add Printer Wizard:
rundll32.exe shell32.dll,SHHelpShortcuts_RunDLL AddPrinter
Dial-up Networking Wizard
rundll32.exe rnaui.dll,RnaWizard
Open a Scrap Document:
rundll32.exe shscrap.dll,OpenScrap_RunDLL /r /x %1
Create a Briefcase:
rundll32.exe syncui.dll,Briefcase_Create
View Printers:
rundll32.exe shell32.dll,SHHelpShortcuts_RunDLL PrintersFolder
View Fonts:
rundll32.exe shell32.dll,SHHelpShortcuts_RunDLL FontsFolder
Pick a Time Zone Dialog:
rundll32.exe shell32.dll,Control_RunDLL timedate.cpl,,/f
"Arne Beruldsen" <Ar***********@discussions.microsoft.com> wrote in
message news:DD**********************************@microsof t.com:
How do you read the serial number to a hard drive?
Thanks...Arne
