Reading Hard Disk Serial No.

Question

How can I read hard disk serial# from oracle forms?..I need it to implement security on login system...so that system could'nt be run on any other system.

Answer 1

Kashif,
If you had searched the forum then the first searched result would have solved your worries
i made a sample form and posted it on OTN last month
please follow this link and download the smaple form
Hard Disk Serial No. Retrieval Example!!
If you have problems using the sample form then follow these steps to make your own
follow these steps...
Make a new form, new block, new canvas...
go to layout editor of the canvas
Now:
- Create an ActiveX Control Item (OCX) on your canvas.
- Right click it and select 'Insert Object...'.
- A list will come
- Press 'H' on keyboard
- It will come to a selection "HardwareInfo Control'
- select it and then press ok!.
- In the main Form biulder menu 'Program', choose 'Import OLE Library Interfaces'
- again Press 'H' on keyboard
- and see to find out a selection in the list: "HardwareInfo.HardWareInfo.ctrl1'
- select it and then u will see something each in Method Package(s) and the Event Package(s) lists.
- Select both the Method Package(s) and the Event Package(s). Make sure they're highlighted.
i.e "_dhardwareinfo and _dHardwareinfoEvents"
- Now press OK
- Verify the existance of 5 new programme units in your Foms Program units section in object navigator:
i.e.
HARDWAREINFOLib_CONSTANTS
HARDWAREINFO_HardWareIn_EVENTS
- Now go to layout editor again and make a new single display_item (non-db)
- make a push button..
copy the following code in ur wehn-buton-pres tigger, dont forget ot change the
'your_block.your_activex_item_name' p[ortion in the following code with correct block and OCX item name
DECLARE
VAR oleobj;
BEGIN
VAR := :ITEM('your_block.your_activex_item_name').interface;
:ur_display_item_name := HARDWAREINFO_DHardWareInfo.HardDisk1SerialNumber(VAR);
END;
now run the form and see what serial no it shows..
also how maany hard disk u have on ur pc the .dll files can show upto four hard disk serial nos
look closely this 'HardDisk1SerialNumber' of the above:
:ur_display_item_name := HARDWAREINFO_DHardWareInfo.HardDisk1SerialNumber(VAR);
u can see the '1' in the 'HardDisk1SerialNumber' is the no of system hard disk..u may try it by changing to HardDisk2SerialNumber, HardDisk3SerialNumber, HardDisk4SerialNumber
regards
Asim.