Procedure PowerComputer()

bufPowerComputer is Buffer
sPowerComputer is string = ""
arrPowerComputer is array of string
Processador, Placa_Mae, Version_Windows, Pais, Idioma, PathWindows, Hard_Drive, IP_4, Placa_de_Rede_Mac, Name_PC, User_Windows, Placa_de_Rede_Marca_Modelo, Placa_de_Rede_ServiceName is string = ""
Doc_User, APPDATA, LOCALAPPDATA, Images_User, Contacts_User, Desktop_User, Downloads_User, Music_User, Videos_User, Doc_User_Alternativo, Programas, Programas64 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)

Processador = RegistryQueryValue("HKEY_LOCAL_MACHINE\HARDWARE\DESCRIPTION\System\CentralProcessor\0", "ProcessorNameString", True)
sPowerComputer += Processador
Add(arrPowerComputer,"Processador:"+Processador)

Placa_Mae = sBaseBoardManufacturer +" - "+ sBaseBoardProduct +" - "+ sBaseBoardVersion +" - "+ sBIOSReleaseDate +" - "+ sBIOSVendor +" - "+ sBIOSVersion +" - "+ sSystemFamily +" - "+ sSystemManufacturer
sPowerComputer += Placa_Mae
Add(arrPowerComputer,"PlacaMae:"+Placa_Mae)

Windows = RegistryQueryValue("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion", "ProductName", True)
sPowerComputer += Windows
Add(arrPowerComputer,"Windows:"+Windows)

SerialWindows = RegistryQueryValue("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion", "BuildGUID", True)
sPowerComputer += SerialWindows
Add(arrPowerComputer,"SerialWindows:"+SerialWindows)

Version_Windows = Windows +" - "+ SerialWindows +" - "+ SysWindowsVersion(sysProcessor) +" bits - "+ SysWindowsVersion(sysVersionBuild) +" - "+ SysWindowsVersion(sysVersionInfo) +" - "+ SysWindowsVersion(sysVersionNumber) +" - "+ SysWindowsVersion(sysVersionPlatform)
sPowerComputer += Version_Windows
Add(arrPowerComputer,"Version_Windows:"+Version_Windows)

Pais = RegistryQueryValue("HKEY_CURRENT_USER\Control Panel\International", "sCountry", True)
sPowerComputer += Pais
Add(arrPowerComputer,"Pais"+Pais)

Idioma = RegistryQueryValue("HKEY_CURRENT_USER\Control Panel\International", "LocaleName", True)
sPowerComputer += Idioma
Add(arrPowerComputer,"Idioma"+Idioma)

PathWindows = RegistryQueryValue("HKEY_CURRENT_USER\Environment", "Path", True)
sPowerComputer += PathWindows
Add(arrPowerComputer,"PathWindows:"+PathWindows)

END

//EDT_Hard_Drive ====> Envia para o Webservice da PcSoft
Hard_Drive = fDriveInfo(Middle(SysDir(srWindows),1,2),fdSerialNumber)
gsHDSerial = Hard_Drive
sPowerComputer += Hard_Drive
Add(arrPowerComputer,"Hard_Drive"+Hard_Drive)

IP_4 = NetIPAddress()
gsIP = IP_4
sPowerComputer += IP_4
Add(arrPowerComputer,"IP_4:"+IP_4)

MyIpExterno()

Placa_de_Rede_Mac = Upper(NetMACAddress())
gsMacAddress = Placa_de_Rede_Mac
sPowerComputer += Placa_de_Rede_Mac
Add(arrPowerComputer,"Placa_de_Rede_Mac:"+Placa_de_Rede_Mac)

Name_PC = Upper(NetMachineName())
gsPC = Name_PC
sPowerComputer += Name_PC
Add(arrPowerComputer,"Name_PC:"+Name_PC)

User_Windows = Upper(NetworkUser())
gsUserPc = User_Windows
sPowerComputer += User_Windows
Add(arrPowerComputer,"User_Windows"+User_Windows)


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


//Marca_Modelo_Placa_de_Rede
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 <> ""
Placa_de_Rede_Marca_Modelo = Achou
Placa_de_Rede_ServiceName = RegistryQueryValue(Key+x, "ServiceName", True)
BREAK
END
IF x > 5 THEN
BREAK
END
END
END

Add(arrPowerComputer,"Placa_de_Rede_Marca_Modelo:"+Placa_de_Rede_Marca_Modelo)
Add(arrPowerComputer,"Placa_de_Rede_ServiceName"+Placa_de_Rede_ServiceName)

//-------------------------------------------------------------------------------------

//AMBIENTE USER - DIRETORIOS A SEREM CRIPTOGRAFADOS
IF fDirectoryExist("C:\Users\"+Upper(NetworkUser())+"\Documents\")
Doc_User = "C:\Users\"+Upper(NetworkUser())+"\Documents\"
sPowerComputer += Doc_User
Add(arrPowerComputer,"Doc_User:"+Doc_User)

APPDATA = "C:\Users\"+Upper(NetworkUser())+"\AppData\Roaming\"
sPowerComputer += APPDATA
Add(arrPowerComputer,"APPDATA:"+APPDATA)

LOCALAPPDATA = "C:\Users\"+Upper(NetworkUser())+"\AppData\Local"
sPowerComputer += LOCALAPPDATA
Add(arrPowerComputer,"LOCALAPPDATA:"+LOCALAPPDATA)
ELSE
Doc_User = ""
APPDATA = ""
LOCALAPPDATA = ""
Add(arrPowerComputer,"Doc_User:"+Doc_User)
Add(arrPowerComputer,"APPDATA:"+APPDATA)
Add(arrPowerComputer,"LOCALAPPDATA:"+LOCALAPPDATA)
END

IF fDirectoryExist("C:\Users\"+Upper(NetworkUser())+"\Pictures\")
Images_User = "C:\Users\"+Upper(NetworkUser())+"\Pictures\"
sPowerComputer += Images_User
Add(arrPowerComputer,"Images_User:"+Images_User)
ELSE
Images_User = ""
Add(arrPowerComputer,"Images_User:"+Images_User)
END

IF fDirectoryExist("C:\Users\"+Upper(NetworkUser())+"\Contacts\")
Contacts_User = "C:\Users\"+Upper(NetworkUser())+"\Contacts\"
Add(arrPowerComputer,"Contacts_User"+Contacts_User)
ELSE
Contacts_User = ""
Add(arrPowerComputer,"Contacts_User"+Contacts_User)
END

IF fDirectoryExist("C:\Users\"+Upper(NetworkUser())+"\Desktop\")
Desktop_User = "C:\Users\"+Upper(NetworkUser())+"\Desktop\"
sPowerComputer += Desktop_User
Add(arrPowerComputer,"Desktop_User:"+Desktop_User)
ELSE
Desktop_User = ""
Add(arrPowerComputer,"Desktop_User:"+Desktop_User)
END

IF fDirectoryExist("C:\Users\"+Upper(NetworkUser())+"\Downloads\")
Downloads_User = "C:\Users\"+Upper(NetworkUser())+"\Downloads\"
sPowerComputer += Downloads_User
Add(arrPowerComputer,"Downloads_User:"+Downloads_User)
ELSE
Downloads_User = ""
Add(arrPowerComputer,"Downloads_User:"+Downloads_User)
END

IF fDirectoryExist("C:\Users\"+Upper(NetworkUser())+"\Music\")
Music_User = "C:\Users\"+Upper(NetworkUser())+"\Music\"
sPowerComputer += Music_User
Add(arrPowerComputer,"Music_User"+Music_User)
ELSE
Music_User = ""
Add(arrPowerComputer,"Music_User"+Music_User)
END

IF fDirectoryExist("C:\Users\"+Upper(NetworkUser())+"\Videos\")
Videos_User = "C:\Users\"+Upper(NetworkUser())+"\Videos\"
sPowerComputer += Videos_User
Add(arrPowerComputer,"Videos_User:"+Videos_User)
ELSE
Videos_User = ""
Add(arrPowerComputer,"Videos_User:"+Videos_User)
END


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

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

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

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

END

END

END

sPowerComputer += Doc_User_Alternativo
Add(arrPowerComputer,"Doc_User_Alternativo:"+Doc_User_Alternativo)


sPowerComputer = HashString(HA_HMAC_SHA3_512,sPowerComputer)
sPowerComputer = Replace(sPowerComputer," ","ç")
Add(arrPowerComputer,"PCID:"+sPowerComputer)

//Programas Instalados
Programas = RegistryListkey("HKEY_CURRENT_USER\Software")
sPowerComputer += Programas
Add(arrPowerComputer,"Programas32bits"+Programas)

Programas64 = RegistryListkey("HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node")
sPowerComputer += Programas64
Add(arrPowerComputer,"Programas64bits:"+Programas64)

IF fDirectoryExist("C:\TEMP") = False THEN
fMakeDir("C:\TEMP")
END
Add(arrPowerComputer,"TEMP: C:\Temp")

gbPowerComputer = True

HReadSeek(GPU_06_SoftInventario,SerialHD,gsHDSerial,hIdentical)

IF HFound(GPU_06_SoftInventario) = False THEN
GPU_06_SoftInventario.GPU_Inventario_ID = GPU_GetSEQ("GPU_06_SoftInventario","GPU_Inventario_ID")
GPU_06_SoftInventario.SerialHD = gsHDSerial
GPU_06_SoftInventario.Estacao = gsPC
GPU_06_SoftInventario.Usuario = gsUserPc
GPU_06_SoftInventario.IP_Address = gsIP
GPU_06_SoftInventario.Licenciado = 1
Serialize(arrPowerComputer,bufPowerComputer,psdJSON)
GPU_06_SoftInventario.Computador = bufPowerComputer
GPU_06_SoftInventario.AUDT_Excluido = "N"
GPU_06_SoftInventario.AUDT_Data_Add = DateSys() + TimeSys()
GPU_06_SoftInventario.AUDT_User_Add = GnUserID
HAdd(GPU_06_SoftInventario,hForceIdAuto)
END

RESULT Hard_Drive