FusionInventory Agent not collecting TeamViewer ID for Windows about fusioninventory-agent HOT 11 CLOSED

On Error Resume Next
Dim allComp(500,4)
Dim arrStr, count2
Dim iTm
Dim dwValue
Dim dwValueID

' ForAppending = 8 ForReading = 1, ForWriting = 2
Const ForAppending = 8
Const ForReading = 1
Const ForWriting = 2
Const HKEY_CURRENT_USER = &H80000001
Const HKEY_LOCAL_MACHINE = &H80000002

Function EnvString(variable)
    set objShell = WScript.CreateObject( "WScript.Shell" )
    variable = "%" & variable & "%"
    EnvString = objShell.ExpandEnvironmentStrings(variable)
    Set objShell = Nothing    
End Function

'Get Enviromental Vars
user=lcase(EnvString("username"))
comp=lcase(EnvString("ComputerName"))
domain=lcase(EnvString("UserDomain"))

'Edit this to point to a shared drive where all users have write access
'strDirectory = "\\server\share\subfolder"
strDirectory = "\\server\TeamviewerID"
'Edit this to point to a shared drive where all users have write access
Set wshshell = CreateObject("WScript.Shell")
computer = WshShell.ExpandEnvironmentStrings("%computername%")
strComputer = "."

'strFile = "\" & comp & "_TeamViewerID.csv" 'Outputs to "TeamViewerID.csv" 
 
Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" &_
 strComputer & "\root\default:StdRegProv")
' Перенос сроки vbCrLf
For iTm = 6 to 13

strKeyPath = "SOFTWARE\Wow6432Node\TeamViewer\Version" & iTm
strValueName = "ClientID"
oReg.GetDWORDValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,dwValue
if Not IsNull(dwValue) Then
strFile = "\" & comp & "_TeamViewerID" & "_" & dwValue & "_File.csv" 'Outputs to "TeamViewerID.csv" 
if len(dwValue) >= 9 then 
'strText2 = "Домен;" & domain & ";Компьютер;" & comp & vbCrLf & ";Логин (Пользователь);" & user & vbCrLf & ";" & "Версия TeamViewer;" & iTm & vbCrLf & ";ID;" & dwValue
strText2 = domain & ";" & comp & ";" & user & ";" & iTm & ";" & dwValue
'wscript.echo(dwValue)
end If
end If
If Not IsNull(dwValue) Then
strText = "Домен;Компьютер;Логин (Пользователь);Версия TeamViewer;TeamViewerID"
strFile = "\" & comp & "_TeamViewerID" & "_" & dwValue & "_File.csv" 'Outputs to "TeamViewerID.csv" 
'wscript.echo(dwValue)
end If
Next

For iTm = 6 to 13

strKeyPath = "SOFTWARE\TeamViewer\Version" & iTm
strValueName = "ClientID"
oReg.GetDWORDValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,dwValue
if Not IsNull(dwValue) Then
strFile = "\" & comp & "_TeamViewerID" & "_" & dwValue & "_File.csv" 'Outputs to "TeamViewerID.csv" 
if len(dwValue) >= 9 then 
'strText2 = "Домен;" & domain & ";Компьютер;" & comp & vbCrLf & ";Логин (Пользователь);" & user & vbCrLf & ";" & "Версия TeamViewer;" & iTm & vbCrLf & ";ID;" & dwValue
strText2 = domain & ";" & comp & ";" & user & ";" & iTm & ";" & dwValue
'wscript.echo(dwValue)
end If
end If
If Not IsNull(dwValue) Then
strText = "Домен;Компьютер;Логин (Пользователь);Версия TeamViewer;TeamViewerID"
strFile = "\" & comp & "_TeamViewerID" & "_" & dwValue & "_File.csv" 'Outputs to "TeamViewerID.csv" 
'wscript.echo(dwValue)
end If
Next

strKeyPath = "SOFTWARE\TeamViewer\"
strValueName = "ClientID"
strValueVersion = "Version"
oReg.GetDWORDValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,dwValue
if Not IsNull(dwValue) Then
strFile = "\" & comp & "_TeamViewerID" & "_" & dwValue & "_File.csv" 'Outputs to "TeamViewerID.csv" 
if len(dwValue) >= 9 then 
oReg.GetDWORDValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,strValueVersion
'strText2 = "Домен;" & domain & ";Компьютер;" & comp & vbCrLf & ";Логин (Пользователь);" & user & vbCrLf & ";" & "Версия TeamViewer;" & iTm & vbCrLf & ";ID;" & dwValue
strText2 = domain & ";" & comp & ";" & user & ";" & strValueVersion & ";" & dwValue
'wscript.echo(dwValue)
end If
end If
If Not IsNull(dwValue) Then
strText = "Домен;Компьютер;Логин (Пользователь);Версия TeamViewer;TeamViewerID"
strFile = "\" & comp & "_TeamViewerID" & "_" & dwValue & "_File.csv" 'Outputs to "TeamViewerID.csv" 
'wscript.echo(dwValue)
end If


Set objFSO = CreateObject("Scripting.FileSystemObject")
If objFSO.FolderExists(strDirectory) Then
   Set objFolder = objFSO.GetFolder(strDirectory)
   'wscript.echo("Folder Exists!")
Else
	Set objFolder = objFSO.CreateFolder(strDirectory)  
	If not objFSO.FolderExists(strDirectory) Then
		wscript.quit
	End If
	'wscript.echo("Folder Does Not Exist!")
End If

If objFSO.FileExists(strDirectory & strFile) Then
	'wscript.echo("File Exists!")
	Set objFolder = objFSO.GetFolder(strDirectory)
	Set objTextFile = objFSO.OpenTextFile(strDirectory & strFile)
	count = 0
	Do while NOT objTextFile.AtEndOfStream
		arrStr = split(objTextFile.ReadLine,";")
		'wscript.echo(Count & "," & arrStr)
		if arrStr(1) <> comp Then
			count = count + 1
			allcomp(count,0)=arrStr(0) 'Domain / Company
			allcomp(count,1)=arrStr(1) 'Computer Name
			allcomp(count,2)=arrStr(2) 'Username
			allcomp(count,3)=arrStr(3) 'Teamviewer Version
			allcomp(count,4)=arrStr(4) 'Teamviewer ID
		End If
	Loop
		
		'wscript.echo("EOF!")
		objTextFile.Close
		set objTextFile = nothing
		
		objFSO.DeleteFile(strDirectory & strFile)
		
		Set objFile = objFSO.CreateTextFile(strDirectory & strFile)
		set objFile = nothing
		
		Set objTextFile = objFSO.OpenTextFile(strDirectory & strFile, ForAppending, True)
		count2 = Count
		'wscript.echo(count2)
		if IsNull(dwValue) Then
		strText = "Домен;Компьютер;Логин (Пользователь);Версия TeamViewer;TeamViewerID"
		for count = 1 to count2
		
			strtext=allcomp(count,0)&";"&allcomp(count,1)&";"&allcomp(count,2)&";"&allcomp(count,3)&";"&allcomp(count,4)
			objTextFile.WriteLine(strText)
		
			'wscript.echo(strText)
		Next
		end if
		if IsNull(dwValue) Then
		objTextFile.WriteLine(strText2)
		end if
		'wscript.echo(strText2)
		objTextFile.Close
		set objTextFile = nothing
Else
	Set objFile = objFSO.CreateTextFile(strDirectory & strFile)
	set objFile = nothing
	Set objTextFile = objFSO.OpenTextFile(strDirectory & strFile, ForAppending, True)
	if IsNull(dwValue) Then
	strText3 = "Домен;Компьютер;Логин (Пользователь);Версия TeamViewer;TeamViewerID"
	objTextFile.WriteLine(strText3)
	objTextFile.Close
	end if
	set objTextFile = nothing
End If

set objFolder = nothing
set objFSO = Nothing

package FusionInventory::Agent::Task::Inventory::Generic::Remote_Mgmt::TeamViewer;

use strict;
use warnings;

use English qw(-no_match_vars);

use FusionInventory::Agent::Tools;

sub isEnabled {
    my (%params) = @_;

    if ($OSNAME eq 'MSWin32') {

        FusionInventory::Agent::Tools::Win32->use();

        return defined getRegistryKey(
            path => is64bit() ?
                "HKEY_LOCAL_MACHINE/SOFTWARE/Wow6432Node/TeamViewer/Version9" :
                "HKEY_LOCAL_MACHINE/SOFTWARE/TeamViewer/Version9",
            logger => $params{logger}
        );
    }

    return canRun('teamviewer');
}

sub doInventory {
    my (%params) = @_;

    my $inventory = $params{inventory};
    my $logger    = $params{logger};

    my $teamViewerID = _getID(logger => $logger);
    if (defined($teamViewerID)) {
        $logger->debug('Found TeamViewerID : ' . $teamViewerID) if ($logger);

        $inventory->addEntry(
            section => 'REMOTE_MGMT',
            entry   => {
                ID   => $teamViewerID,
                TYPE => 'teamviewer'
            }
        );
    } else {
        $logger->debug('TeamViewerID not found') if ($logger);
    }
}

sub _getID {
    my (%params) = @_;

    if ($OSNAME eq 'MSWin32') {

        FusionInventory::Agent::Tools::Win32->use();

        my $clientid = getRegistryValue(
            path   => is64bit() ?
                "HKEY_LOCAL_MACHINE/SOFTWARE/Wow6432Node/TeamViewer/Version9/ClientID" :
                "HKEY_LOCAL_MACHINE/SOFTWARE/TeamViewer/Version9/ClientID",
            %params
        );

        return $clientid ? hex($clientid) || $clientid : undef ;
    }

    return getFirstMatch(
        command => "teamviewer --info",
        pattern => qr/TeamViewer ID:(?:\033\[0m|\s)*(\d+)\s+/,
        %params
    );
}

1;