VB6.0의 시스템 프로세서 ID를 읽는 방법

VB2.0에서 시스템 프로세서 ID를 추출하는 데 아무 도움이 될 수 있습니다. 다음 코드를 사용하여 추출했지만 랩톱에서만이 코드는 프로세서 ID를 추출 할 수 있지만 바탕 화면을 위해 다음과 같이 ......................VB6.0의 시스템 프로세서 ID를 읽는 방법

Public Function MBSerialNumber() As String 

'RETRIEVES SERIAL NUMBER OF MOTHERBOARD 
'IF THERE IS MORE THAN ONE MOTHERBOARD, THE SERIAL 
'NUMBERS WILL BE DELIMITED BY COMMAS 

'YOU MUST HAVE WMI INSTALLED AND A REFERENCE TO 
'Microsoft WMI Scripting Library IS REQUIRED 

Dim objs As Object 

Dim obj As Object 
Dim WMI As Object 



Set WMI = GetObject("WinMgmts:") 
Set objs = WMI.InstancesOf("Win32_BaseBoard") 
'Set objs = WMI.InstancesOf(WindowState) 
For Each obj In objs 
procid = procid & obj.SerialNumber 
If procid < objs.Count Then procid = procid & "," 
Next 
MBSerialNumber = procid 
procid = LTrim$(procid) 
procid = RTrim$(procid) 
MsgBox "Proc_id :" + procid 
End Function

코드는 .... 추출 할 수 없습니다

P LZ 내 메일에 대한 해결책을 보내주십시오. id ---->imtiyaz @ digitalfactor s.in

출처

2010-01-08 Md imtiyaz

그것의 아주 나쁜 양식을 참조 . – AnthonyWJones

vbscript 태그를 추가했습니다. vbscript 태그를 사용하면 솔루션 관리 작업에 vbscript를 사용할 수 있습니다. – AnthonyWJones

귀하의 코드는 CPU ID가 아니라 마더 보드 일련 번호를 추출합니다. Win32_BaseBoard 대신 Win32_Processor를 사용하십시오.

Set objWMIService = GetObject("winmgmts:\\.\root\cimv2") 
Set colItems = objWMIService.ExecQuery("Select * from Win32_Processor") 

For Each objItem in colItems 
    Wscript.Echo "Caption: " & objitem.Caption 
    Wscript.Echo "CPU ID: " & objItem.ProcessorId  
Next

생산 것인가 :

하면이 VBScript 코드를 참조

C : \ WMI> wmicpu.vbs 마이크로 소프트 (R) Windows 스크립트 호스트 버전 5.7 저작권 (C) Microsoft의 . 모든 권한 보유.

캡션 : 86 가족 (6) 모델 (15) 스테핑 6
CPU의 ID : BFEBFBFF000006F6

더 필드의 이메일 주소로 전달 할 수있는 솔루션을 요청하기 위해이 MSDN reference

출처

2010-01-08 14:00:14

VB6.0의 시스템 프로세서 ID를 읽는 방법

답변

관련 문제