>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 >)