vba] 하드디스크 시리얼넘버.
안녕하세요. 항상도움말씀 주셔서 감사합니다.
하드디스크 시리얼넘버를 알아내고 싶은데요. VBA로 방법이 있을까요??
(용도는 허가된 하드디스크가 장착된 컴퓨터 이외에서는 엑셀시트를 열수 없게 할려고 합니다.)
또는 하드디스크의 시리얼넘버 비교 말고 다른방법이 또 있으면 알려주시면 감사하겠습니다.
밑에 글을 썼었는데...
제가 다음에서 검색해서 알아본 봐로는
CPU고유 아이디의 경우 모든 CPU가 틀리진 않는다고 하더라구요. CPU기종과 모델이 같은면 같다더군요.
불법 복제를 방지할려면 PC 하드웨어의 고유넘버를 이용하는 수밖에 없는거 같은데...
하드 볼륨 시리얼의 경우 변경이 가능하다고 하더라구요..
Aida32라는 유틸의 이용해서 보면 하드 고유 시리얼넘버가 나오던데...
VBA에서 얻을수 있는 방법이 없을까요~?
     |
  |
 자이원둥 2009-08-07 12:30 |
VB Edit창에서 도구-참조 microsoft scripting runtime 체크하시고 dim kkk as scripting.filesystemobject set kkk=new scripting.filesystemobject msgbox kkk.getdrive("C:").serialnumber 요렇게 하시면 나옵니다 응용해보셔요 |
|
   |
|
홍홍2 2009-08-07 12:40 |
내. 답변 감사합니다. 하지만 위 코딩으로 얻을수 있는 시리얼 넘버는 변경이 가능한.. 하드 볼륨시리얼 넘버 더라구요. 시리얼넘버는 보통 하드디스크 표면에 스티커로 부탁이 되어서 나오는데 그정보를 AIDA32라는 프로그램에서는 확인이 가능하더라구요. |
|
| |
|
이준호리 2009-08-07 12:46 |
http://vbnet.mvps.org/index.html?code/disk/smartide.htm | |
| |
|
홍홍2 2009-08-07 16:07 |
이준호리
님 정말 감사드립니다. 꾸벅. |
2009-08-07_vbnet(1).xls
첨부파일첨부된 파일이 1개 있습니다.
다음검색