M=0 HDDNO=GetVolumeSerial() *CPUID Type-I* LOCAL lcComputerName, loWMI, lowmiWin32Objects, lowmiWin32Object lcComputerName = GETWORDNUM(SYS(0),1) loWMI = GETOBJECT("WinMgmts://" + lcComputerName) lowmiWin32Objects = loWMI.InstancesOf("Win32_Processor") FOR EACH lowmiWin32Object IN lowmiWin32Objects WITH lowmiWin32Object cIDTYPEONE= TRANSFORM(.ProcessorId) ENDWITH ENDFOR *CPUID Type-II* declare string CpuID IN utility.dll cIDTYPETWO= CPUID() ***Get MAC Number********* LOCAL lcComputerName, loWMIService, loItems, loItem, lcMACAddress lcComputerName = "." loWMIService = GETOBJECT("winmgmts:\\" + lcComputerName + "\root\cimv2") loItems = loWMIService.ExecQuery("Select * from Win32_NetworkAdapter",,48) FOR EACH loItem IN loItems lcMACAddress = loItem.MACAddress IF !ISNULL(lcMACAddress) M=M+1 IF M=1 MA1=loItem.MACAddress ENDIF IF M=2 MA2=loItem.MACAddress ENDIF IF M=3 MA3=loItem.MACAddress ENDIF IF M=4 MA4=loItem.MACAddress ENDIF IF M=5 MA5=loItem.MACAddress ENDIF ENDIF ENDFOR *******GET mother Board Number********** loWMI = GETOBJECT("WinMgmts://./root/cimv2") BaseBoards = loWMI.InstancesOf("Win32_BaseBoard") FOR EACH MotherBoard IN BaseBoards MB_product=MotherBoard.Product MB_serial=MotherBoard.SerialNumber MBP=MB_product MBS=MB_serial NEXT Slighthaze = NULL LOCK=ALLTRIM(RIGHT(cIDTYPEONE,4))+; ALLTRIM(RIGHT(cIDTYPETWO,4))+; ALLTRIM(RIGHT(HDDNO,4))+; ALLTRIM(RIGHT(MA1,4))+; ALLTRIM(RIGHT(MA2,4))+; ALLTRIM(RIGHT(MA3,4))+; ALLTRIM(RIGHT(MA4,4))+; ALLTRIM(RIGHT(MA5,4))+; ALLTRIM(RIGHT(MBP,4))+; ALLTRIM(RIGHT(+MBS,4)) WAIT WINDOW LOCk IF LOCK=="067A067$FB780:050:050:300:301:53VM/S1172" .OR. LOCK=="067A067AFB780:050:050:300:301:53VM/S1172" Pirated=0 Unit="O/o Telecom District Manager,BSNL,Chindwada" Circle="Madhya Pradesh Telecom Circle" ELSE Pirated=1 ENDIF RETURN