PC SOFT

FORUMS PROFESSIONNELS
WINDEVWEBDEV et WINDEV Mobile

Accueil → WINDEV 25 → Procedure PowerComputer para capturar o número fo hd, nome do computador, macaddrdres
Procedure PowerComputer para capturar o número fo hd, nome do computador, macaddrdres
Débuté par Boller, 25 oct. 2021 15:55 - Aucune réponse
Membre enregistré
3 651 messages
Popularité : +175 (223 votes)
Posté le 25 octobre 2021 - 15:55
// Summary:
// Syntax:
//[ = ] PowerComputer ()
//
// Parameters:
// None
// Return Value:
// ANSI string: // None
//
// For instance:
// Indicate an example.
//
PROCEDURE PowerComputer()

sPowerComputer is string = ""

SERIAL_DOUNGLE_WEBDEV, SERIAL_DOUNGLE_WINDEV, SERIAL_DOUNGLE_WINDEVMOBILE, Windows, SerialWindows is string = ""

//FUNCAO GET SERIAL DOUNGLE
SERIAL_DOUNGLE_WEBDEV = 10
SERIAL_DOUNGLE_WINDEV = 20
SERIAL_DOUNGLE_WINDEVMOBILE = 30

sBaseBoardManufacturer, sBaseBoardProduct, sBaseBoardVersion, sBIOSReleaseDate, sBIOSVendor, sBIOSVersion, sSystemFamily, sSystemManufacturer is string = ""

ResExist1 is boolean = RegistryExist("HKEY_LOCAL_MACHINE\HARDWARE\DESCRIPTION\System\BIOS")

ResExist2 is boolean = RegistryExist("HKEY_LOCAL_MACHINE\HARDWARE\DESCRIPTION\System\CentralProcessor\0")

IF ResExist1 = True AND ResExist2 = True

sBaseBoardManufacturer = RegistryQueryValue("HKEY_LOCAL_MACHINE\HARDWARE\DESCRIPTION\System\BIOS", "BaseBoardManufacturer", True)
sBaseBoardProduct = RegistryQueryValue("HKEY_LOCAL_MACHINE\HARDWARE\DESCRIPTION\System\BIOS", "BaseBoardProduct", True)
sBaseBoardVersion = RegistryQueryValue("HKEY_LOCAL_MACHINE\HARDWARE\DESCRIPTION\System\BIOS", "BaseBoardVersion", True)
sBIOSReleaseDate = RegistryQueryValue("HKEY_LOCAL_MACHINE\HARDWARE\DESCRIPTION\System\BIOS", "BIOSReleaseDate", True)
sBIOSVendor = RegistryQueryValue("HKEY_LOCAL_MACHINE\HARDWARE\DESCRIPTION\System\BIOS", "BIOSVendor", True)
sBIOSVersion = RegistryQueryValue("HKEY_LOCAL_MACHINE\HARDWARE\DESCRIPTION\System\BIOS", "BIOSVersion", True)
sSystemFamily = RegistryQueryValue("HKEY_LOCAL_MACHINE\HARDWARE\DESCRIPTION\System\BIOS", "SystemFamily", True)
sSystemManufacturer = RegistryQueryValue("HKEY_LOCAL_MACHINE\HARDWARE\DESCRIPTION\System\BIOS", "SystemManufacturer", True)

sPowerComputer = RegistryQueryValue("HKEY_LOCAL_MACHINE\HARDWARE\DESCRIPTION\System\CentralProcessor\0", "ProcessorNameString", True)
GravaConfig("Processador",sPowerComputer)
sPowerComputer = sPowerComputer + CRLF

sPlaca_Mae is string = sBaseBoardManufacturer +" - "+ sBaseBoardProduct +" - "+ sBaseBoardVersion +" - "+ sBIOSReleaseDate +" - "+ sBIOSVendor +" - "+ sBIOSVersion +" - "+ sSystemFamily +" - "+ sSystemManufacturer
GravaConfig("PlacaMae",sPlaca_Mae)
sPowerComputer += sPlaca_Mae + CRLF

sWindows is string = RegistryQueryValue("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion", "ProductName", True)
GravaConfig("Windows",sWindows)
sPowerComputer += sWindows + CRLF

SerialWindows = RegistryQueryValue("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion", "BuildGUID", True)
GravaConfig("SerialWindows",SerialWindows)
sPowerComputer += SerialWindows + CRLF

sVersion_Windows is string = Windows +" - "+ SerialWindows +" - "+ SysWindowsVersion(sysProcessor) +" bits - "+ SysWindowsVersion(sysVersionBuild) +" - "+ SysWindowsVersion(sysVersionInfo) +" - "+ SysWindowsVersion(sysVersionNumber) +" - "+ SysWindowsVersion(sysVersionPlatform)
GravaConfig("Version_Windows",sVersion_Windows)
sPowerComputer += sVersion_Windows + CRLF

sPais is string = RegistryQueryValue("HKEY_CURRENT_USER\Control Panel\International", "sCountry", True)
GravaConfig("Pais",sPais)
sPowerComputer += sPais + CRLF

sIdioma is string = RegistryQueryValue("HKEY_CURRENT_USER\Control Panel\International", "LocaleName", True)
GravaConfig("Idioma",sIdioma)
sPowerComputer += sIdioma + CRLF

sPathWindows is string = RegistryQueryValue("HKEY_CURRENT_USER\Environment", "Path", True)
GravaConfig("PathWindows",sPathWindows)
sPowerComputer += sPathWindows + CRLF

END

sIP_4 is string = NetIPAddress()
GravaConfig("IP_4",sIP_4)
sPowerComputer += sIP_4 + CRLF
gsIP = sIP_4

sPlaca_de_Rede_Mac is string = Upper(NetMACAddress())
GravaConfig("Placa_de_Rede_Mac",sPlaca_de_Rede_Mac)
sPowerComputer += sPlaca_de_Rede_Mac + CRLF

sName_PC is string = Upper(NetMachineName())
GravaConfig("Name_PC",sName_PC)
gsName_PC = sName_PC
sPowerComputer += sName_PC + CRLF

sUser_Windows is string = Upper(NetworkUser())
GravaConfig("User_Windows",sUser_Windows)
sPowerComputer += sUser_Windows + CRLF
gsUserWindows = sUser_Windows


//PCSOFT
gsPCSOFT is string = RegistryQueryValue("HKEY_LOCAL_MACHINE\SOFTWARE\Aladdin Knowledge Systems\HASP\Driver\Installer", "DrvPkgVersion", True)
GravaConfig("PCSOFT",gsPCSOFT)
sPowerComputer += gsPCSOFT + CRLF


//Marca_Modelo_Placa_de_Rede
sPlaca_de_Rede_Marca_Modelo,sPlaca_de_Rede_ServiceName is string
ResExist3 is boolean = RegistryExist("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\NetworkCards")
IF ResExist3 = True THEN

Key is string = "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\NetworkCards\"
Achou is string = ""
x is int = 0
WHILE Key <> ""
x+= 1
Achou = RegistryQueryValue(Key+x, "Description", True)
IF Achou <> ""
sPlaca_de_Rede_Marca_Modelo = Achou
sPlaca_de_Rede_ServiceName = RegistryQueryValue(Key+x, "ServiceName", True)
BREAK
END
IF x > 5 THEN
BREAK
END
END
END
sPowerComputer += sPlaca_de_Rede_Marca_Modelo +" / "+ sPlaca_de_Rede_ServiceName + CRLF
//-------------------------------------------------------------------------------------

//AMBIENTE USER - DIRETORIOS A SEREM CRIPTOGRAFADOS
IF fDirectoryExist("C:\Users\"+Upper(NetworkUser())+"\Documents\")
sDoc_User is string = "C:\Users\"+Upper(NetworkUser())+"\Documents\"
GravaConfig("Doc_User",sDoc_User)
sPowerComputer += sDoc_User + CRLF

sPPDATA is string = "C:\Users\"+Upper(NetworkUser())+"\AppData\Roaming\"
GravaConfig("APPDATA",sPPDATA)
sPowerComputer += sPPDATA + CRLF

sLOCALAPPDATA is string = "C:\Users\"+Upper(NetworkUser())+"\AppData\Local"
GravaConfig("LOCALAPPDATA",sLOCALAPPDATA)
sPowerComputer += sLOCALAPPDATA + CRLF
END

IF fDirectoryExist("C:\Users\"+Upper(NetworkUser())+"\Pictures\")
sImages_User is string = "C:\Users\"+Upper(NetworkUser())+"\Pictures\"
GravaConfig("Images_User",sImages_User)
sPowerComputer += sImages_User + CRLF
END

IF fDirectoryExist("C:\Users\"+Upper(NetworkUser())+"\Contacts\")
sContacts_User is string = "C:\Users\"+Upper(NetworkUser())+"\Contacts\"
GravaConfig("Contacts_User",sContacts_User)
sPowerComputer += sContacts_User + CRLF
END

IF fDirectoryExist("C:\Users\"+Upper(NetworkUser())+"\Desktop\")
sDesktop_User is string = "C:\Users\"+Upper(NetworkUser())+"\Desktop\"
GravaConfig("Desktop_User",sDesktop_User)
sPowerComputer += sDesktop_User + CRLF
END

IF fDirectoryExist("C:\Users\"+Upper(NetworkUser())+"\Downloads\")
sDownloads_User is string = "C:\Users\"+Upper(NetworkUser())+"\Downloads\"
GravaConfig("Downloads_User",sDownloads_User)
sPowerComputer += sDownloads_User + CRLF
END

IF fDirectoryExist("C:\Users\"+Upper(NetworkUser())+"\Music\")
sMusic_User is string = "C:\Users\"+Upper(NetworkUser())+"\Music\"
GravaConfig("Music_User",sMusic_User)
sPowerComputer += sMusic_User + CRLF
END

IF fDirectoryExist("C:\Users\"+Upper(NetworkUser())+"\Videos\")
sVideos_User is string = "C:\Users\"+Upper(NetworkUser())+"\Videos\"
GravaConfig("Videos_User",sVideos_User)
sPowerComputer += sVideos_User + CRLF
END

//Wx
sProject_Windev is string
IF fDirectoryExist("C:\My Projects\")
sProject_Windev = "C:\My Projects\"
ELSE IF fDirectoryExist("D:\My Projects\")
sProject_Windev = "D:\My Projects\"
ELSE IF fDirectoryExist("E:\My Projects\")
sProject_Windev = "E:\My Projects\"
END
GravaConfig("Project_Windev",sProject_Windev)
sPowerComputer += sProject_Windev + CRLF

//WB
sProject_Webdev is string
IF fDirectoryExist("C:\My Sites\")
sProject_Webdev = "C:\My Sites\"
ELSE IF fDirectoryExist("D:\My Sites\")
sProject_Webdev = "D:\My Sites\"
ELSE IF fDirectoryExist("E:\My Sites\")
sProject_Webdev = "E:\My Sites\"
END
GravaConfig("Project_Webdev",sProject_Webdev)
sPowerComputer += sProject_Webdev + CRLF

//WM
sProject_Windev_Mobile is string
IF fDirectoryExist("C:\My Mobile Projects\")
sProject_Windev_Mobile = "C:\My Mobile Projects\"
ELSE IF fDirectoryExist("D:\My Mobile Projects\")
sProject_Windev_Mobile = "D:\My Mobile Projects\"
ELSE IF fDirectoryExist("E:\My Mobile Projects\")
sProject_Windev_Mobile = "E:\My Mobile Projects\"
END
GravaConfig("Project_Windev_Mobile",sProject_Windev_Mobile)
sPowerComputer += sProject_Windev_Mobile + CRLF

//Meus Documentos
sDoc_User_Alternativo is string
IF fDirectoryExist("C:\Meus Documentos\")
sDoc_User_Alternativo = "C:\Meus Documentos\"
ELSE IF fDirectoryExist("D:\Meus Documentos\") AND sDoc_User_Alternativo = ""
sDoc_User_Alternativo = "D:\Meus Documentos\"
ELSE IF fDirectoryExist("E:\Meus Documentos\") AND sDoc_User_Alternativo = ""
sDoc_User_Alternativo = "E:\Meus Documentos\"
ELSE

IF fDirectoryExist("C:\My Documents\") AND sDoc_User_Alternativo = ""
sDoc_User_Alternativo = "C:\My Documents\"
ELSE IF fDirectoryExist("D:\My Documents\") AND sDoc_User_Alternativo = ""
sDoc_User_Alternativo = "D:\My Documents\"
ELSE IF fDirectoryExist("E:\My Documents\") AND sDoc_User_Alternativo = ""
sDoc_User_Alternativo = "E:\My Documents\"
ELSE

IF fDirectoryExist("C:\Documentos\") AND sDoc_User_Alternativo = ""
sDoc_User_Alternativo = "C:\Documentos\"
ELSE IF fDirectoryExist("D:\Documentos\") AND sDoc_User_Alternativo = ""
sDoc_User_Alternativo = "D:\Documentos\"
ELSE IF fDirectoryExist("E:\Documentos\") AND sDoc_User_Alternativo = ""
sDoc_User_Alternativo = "E:\Documentos\"
ELSE

IF fDirectoryExist("C:\Documents\") AND sDoc_User_Alternativo = ""
sDoc_User_Alternativo = "C:\Documents\"
ELSE IF fDirectoryExist("D:\Documens\") AND sDoc_User_Alternativo = ""
sDoc_User_Alternativo = "D:\Documents\"
ELSE IF fDirectoryExist("E:\Documents\") AND sDoc_User_Alternativo = ""
sDoc_User_Alternativo = "E:\Documents\"
ELSE
sDoc_User_Alternativo = ""
END

END

END

END
IF sDoc_User_Alternativo <> ""
GravaConfig("Doc_User_Alternativo",sDoc_User_Alternativo)
sPowerComputer += sDoc_User_Alternativo + CRLF
END

//Programas Instalados
sProgramas is string = RegistryListkey("HKEY_CURRENT_USER\Software")
GravaConfig("Programas32bits",sProgramas)
sPowerComputer += sProgramas + CRLF

sProgramas64 is string = RegistryListkey("HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node")
GravaConfig("Programas64bits",sProgramas64)
sPowerComputer += sProgramas64 + CRLF
gsComputador = sPowerComputer

sPowerComputerCrypt is string = HashString(HA_HMAC_SHA3_512,sPowerComputer)
GravaConfig("PCID",sPowerComputerCrypt)

RESULT sPowerComputer


--
Adriano José Boller
______________________________________________
Consultor e Representante Oficial da
PcSoft no Brasil
+55 (41) 99949 1800
adrianoboller@gmail.com
skype: adrianoboller
http://wxinformatica.com.br/