Necesito sacar algunos datos de la PC donde trabaj

Hola rene: espero que me puedas ayudar, ya que necesito hacer un programa en fox que me muestre el nombre de usuario, la version de windows y el numero de licencia de una computadora, la verdad no se de donde pueda sacar estos datos, ya que estoy aprendiendo a usar fox y hasta ahora no he podido. Espero tu respuesta, gracias...
1

1 respuesta

Respuesta
1
Para obtener el numero de version de POR aplicación:
ln = AGETFILEVERSION(laArray,"C:\Exe\MiApp.exe")
DISP MEMO LIKE laArray
ó
FOR lnI = 1 to ln
? LaArray(lnI)
Endfor
Donde "C:\Exe\MiApp.exe" es la ruta y el nombre del archivos al cual quieres averiguarle la version.
Para el serial del disco duro:
loFSO = CREATEOBJECT("Scripting.FileSystemObject")
lcSerialNumber = lofso.drives("c:").serialnumber
o también:
*-----------------------------------------------
FUNCTION GetVol(lpRoot)
*-----------------------------------------------
* Nuestra información del volumen
* USO: GetVol("C:\")
* PARAMETRO: lpRoot = LetraDrive + ":\"
*-----------------------------------------------
LOCAL lnRet, lcString, lpVolName, ;
nVolSize, lpVolNumber, ;
lpMaxComp, lpFlags, ;
lpFSName, nFSSize
IF EMPTY(lpRoot)
lpRoot = "c:\"
ENDIF
lpVolName = SPACE(256)
nVolSize = 256
lpVolNumber = 0
lpMaxComp = 256
lpFlags = 0
lpFSName = SPACE(256)
nFSSize = 256
DECLARE INTEGER GetVolumeInformation ;
IN Win32API AS GetVolInfo ;
STRING @lpRoot, ;
STRING @lpVolName, ;
INTEGER nVolSize, ;
INTEGER @lpVolNumber, ;
INTEGER @lpMaxComp, ;
INTEGER @lpFlags, ;
STRING @lpFSName, ;
INTEGER nFSSize
lnRet=GetVolInfo(@lpRoot, @lpVolName, ;
nVolSize, @lpVolNumber, ;
@lpMaxComp, @lpFlags, ;
@lpFSName, nFSSize)
IF lnRet > 0
lcString = "Drive name: " + ;
ALLT(lpRoot)+CHR(13)+ ;
"Vol name: " + ;
LEFT(ALLT(lpVolName),LEN(ALLT(lpVolName))-1)+CHR(13)+ ;
"Max #/chars in vol name: " + ;
ALLT(STR(nVolSize))+CHR(13)+ ;
"Vol Serial #: " + ;
ALLT(STR(lpVolNumber))+CHR(13)+ ;
"Max #/chars in dir/file names: " + ;
ALLT(STR(lpMaxComp))+CHR(13)+ ;
"File Sys Flags: " + ;
ALLT(STR(lpFlags))+CHR(13)+ ;
"File Sys type: " + ;
LEFT(ALLT(lpFSName),LEN(ALLT(lpFSName))-1)+CHR(13)+ ;
"File Sys Name Size: " + ;
ALLT(STR(nFSSize))
ELSE
lcString = "No se pudo ver información"
ENDIF
=MESSAGEBOX(lcString, "Información del volumen")
RETURN ""
Endfunc
Para saber el tamaño de tu disco:
La función SYS(2020) te devuelve el tamaño total, en bytes, del disco predeterminado.
Para saber el nombre del usuario y el de tu PC:
Store allt(subs(sys(0), 1, atc("#", sys(0))-1)) to wusuario
Store len(allt(wusuario)) to wtamaño
Store subs(sys(0), wtamaño+3, len(allt(sys(0)))) to wnombredepc

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas