>>>M=0 >>>*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 >>>ELSE >>>MA1='XXXX' >>>ENDIF >>> >>> >>>IF M=2 >>>MA2=loItem.MACAddress >>>ELSE >>>MA2='XXXX' >>>ENDIF >>> >>>IF M=3 >>>MA3=loItem.MACAddress >>>ELSE >>>MA3='XXXX' >>>ENDIF >>> >>>IF M=4 >>>MA4=loItem.MACAddress >>>ELSE >>>MA4='XXXX' >>>ENDIF >>> >>>IF M=5 >>>MA5=loItem.MACAddress >>>ELSE >>>MA5='XXXX' >>>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(cIDTYPEONE)+; >>>ALLTRIM(cIDTYPETWO)+; >>>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)) >>> >>>IF UPPER(ALLTRIM(LOCK))=='BFEBFBFF000006FD00E39D10208006FDXXXXXXXXXXXXXXXX6:4D7383E.M.' >>>Pirated=.F. >>>Unit="O/o TDM, BSNL,Chhindwara" >>>Circle="Madhya Pradesh Telecom Circle" >>>ELSE >>>Unit="O/o TDM, BSNL,Chhindwara" >>>Circle="Madhya Pradesh Telecom Circle" >>>Pirated=.T. >>>ENDIF >>> >>>>>>
>>>IF Pirated=.F. >>>This.rowsource = 'April,May,June,July,August,September,October,November,December,January,February,March,March ST-I,March ST-II' >>>Mmonth=4 >>>ELSE >>>IF ldemoversion=.T. >>>This.rowsource = 'April,May,June' >>>Mmonth=4 >>>ELSE >>>This.rowsource = 'March ST-I,March ST-II' >>>Mmonth=13 >>>ENDIF >>>ENDIF >>>This.value = 1 >>>>>>