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