اگر دوستان موافق باشند در این تاپیک تکه کدهای جالب و بدرد بخور رو قرار بدیم.
پیدا کردن شماره سریال سی پی یو (البته در ایکس پی جواب میده اما هم با اینتل هم با ای ام دی خوب کار میکنه) :
name1=chrtran(SYS(0)," ","")
name1=chrtran(name1,"#","!")
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
ProcessorId= TRANSFORM(.ProcessorId)
ENDWITH
ENDFOR
ProcessorId1=""
FOR i=1 TO LEN(ProcessorId)
IF (VAL(SUBSTR(ProcessorId,i,1)))<9 AND (VAL(SUBSTR(ProcessorId,i,1)))>0
ProcessorId1=ProcessorId1+CHR(ASC(SUBSTR(Processor Id,i,1))+0)
ELSE
ProcessorId1=ProcessorId1+CHR(ASC(SUBSTR(Processor Id,i,1))+0)
ENDIF
ENDFOR
مک آدرس دستگاه (اینهم با ایکس پی خوب کار میکنه):
LOCAL gcMacAddress
gcMacAddress = .null.
loloc = CREATEOBJECT("WbemScripting.SWbemLocator")
lowmi = loloc.connectServer()
lomac = lowmi.InstancesOf("Win32_NetworkAdapterConfigurati on")
FOR EACH loMacAddr IN lomac
IF loMacAddr.IPEnabled
gcMacAddress = loMacAddr.MACAddress
EXIT
ENDIF
NEXT
STORE .null. to loloc,lowmi,lomac,loMacAddr
? "MAC ADDRESS:" + gcMacAddress
پاسخ با نقل قول