Set WshShell = WScript.CreateObject("WScript.Shell")
  Dim o
  Set o = CreateObject("MSXML2.XMLHTTP")

'################################################## Header ##################################################
'# Firma: XXX YYY Solutions
'#
'# Projekt: XXX.de
'#
'# Dateiname: sendtvid.vbs
'# Erstanlage der Datei: 2018-11-30 durch TH
'# Zweck der Datei: In den Autostart: Sende den Playernamen und die TeamViewer-ID und speichere in der DB (Grund: TeamViewer verliert manchmal die Player-IDs => Der Player meldet daher selbst beim Autostart die neueste ID zurück)
'#
'#
'############################################################################################################
'# Historie der Änderungen
'#
'# 2018-12-01  TH  Start der Programmierung
'#
'# 2018-12-04  TH  HTTPS macht auf manchen PCs Probleme (hauptsächlich auf Win7 und Win8-PCs, aber auch ein paar einzelne Win10-PCs) => Fehlerroutine eingefügt
'#
'#
'#
'#
'#
'################################################## Header ##################################################

'

' 1. Eigenen Computernamen holen
' 2. TeamViewer-ID holen
' 3. TeamViewer-ID und letzteaktualisierungtvid an den jeweiligen Player in die DB-Tabelle XXX senden (damit er in der PlayerControl sichtbar wird)
' 4. Log in DB wegschreiben mit computername, tvid und letzteaktualisierung (im PHP-Skript)
' 5. Ende
'


' 1. Eigenen Computernamen holen
Set objNetwork = WScript.CreateObject("WScript.Network")
strHostname = objNetwork.ComputerName
Set objNetwork = Nothing
'msgbox(strHostname)




' 2. TeamViewer-ID holen

readFromRegistry=""


On Error Resume Next
strRegKey="HKEY_LOCAL_MACHINE\SOFTWARE\TeamViewer\Version7\ClientID"
    value = WshShell.RegRead(strRegKey)
    if err.number <> 0 then
        readFromRegistry=readFromRegistry
'msgbox("Fehler 7")
    else
        readFromRegistry = readFromRegistry & value
    end if
On Error Goto 0

On Error Resume Next
strRegKey="HKEY_LOCAL_MACHINE\SOFTWARE\TeamViewer\Version8\ClientID"
    value = WshShell.RegRead(strRegKey)
    if err.number <> 0 then
        readFromRegistry=readFromRegistry
'msgbox("Fehler 8")
    else
        readFromRegistry = readFromRegistry & value
    end if
On Error Goto 0

On Error Resume Next
strRegKey="HKEY_LOCAL_MACHINE\SOFTWARE\TeamViewer\Version9\ClientID"
    value = WshShell.RegRead(strRegKey)
    if err.number <> 0 then
        readFromRegistry=readFromRegistry
'msgbox("Fehler 9")
    else
        readFromRegistry = readFromRegistry & value
    end if
On Error Goto 0

On Error Resume Next
strRegKey="HKEY_LOCAL_MACHINE\SOFTWARE\TeamViewer\Version10\ClientID"
    value = WshShell.RegRead(strRegKey)
    if err.number <> 0 then
        readFromRegistry=readFromRegistry
'msgbox("Fehler 10")
    else
        readFromRegistry = readFromRegistry & value
    end if
On Error Goto 0

On Error Resume Next
strRegKey="HKEY_LOCAL_MACHINE\SOFTWARE\TeamViewer\Version11\ClientID"
    value = WshShell.RegRead(strRegKey)
    if err.number <> 0 then
        readFromRegistry=readFromRegistry
'msgbox("Fehler 11")
    else
        readFromRegistry = readFromRegistry & value
    end if
On Error Goto 0

On Error Resume Next
strRegKey="HKEY_LOCAL_MACHINE\SOFTWARE\TeamViewer\ClientID"
    value = WshShell.RegRead(strRegKey)
    if err.number <> 0 then
        readFromRegistry=readFromRegistry
'msgbox("Fehler alle")
    else
        readFromRegistry = readFromRegistry & value
    end if
On Error Goto 0


'Ab hier 64bit
On Error Resume Next
strRegKey="HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node\TeamViewer\Version7\ClientID"
    value = WshShell.RegRead(strRegKey)
    if err.number <> 0 then
        readFromRegistry=readFromRegistry
'msgbox("Fehler 7")
    else
        readFromRegistry = readFromRegistry & value
    end if
On Error Goto 0

On Error Resume Next
strRegKey="HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node\TeamViewer\Version8\ClientID"
    value = WshShell.RegRead(strRegKey)
    if err.number <> 0 then
        readFromRegistry=readFromRegistry
'msgbox("Fehler 8")
    else
        readFromRegistry = readFromRegistry & value
    end if
On Error Goto 0

On Error Resume Next
strRegKey="HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node\TeamViewer\Version9\ClientID"
    value = WshShell.RegRead(strRegKey)
    if err.number <> 0 then
        readFromRegistry=readFromRegistry
'msgbox("Fehler 9")
    else
        readFromRegistry = readFromRegistry & value
    end if
On Error Goto 0

On Error Resume Next
strRegKey="HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node\TeamViewer\Version10\ClientID"
    value = WshShell.RegRead(strRegKey)
    if err.number <> 0 then
        readFromRegistry=readFromRegistry
'msgbox("Fehler 10")
    else
        readFromRegistry = readFromRegistry & value
    end if
On Error Goto 0

On Error Resume Next
strRegKey="HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node\TeamViewer\Version11\ClientID"
    value = WshShell.RegRead(strRegKey)
    if err.number <> 0 then
        readFromRegistry=readFromRegistry
'msgbox("Fehler 11")
    else
        readFromRegistry = readFromRegistry & value
    end if
On Error Goto 0

On Error Resume Next
strRegKey="HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node\TeamViewer\ClientID"
    value = WshShell.RegRead(strRegKey)
    if err.number <> 0 then
        readFromRegistry=readFromRegistry
'msgbox("Fehler alle")
    else
        readFromRegistry = readFromRegistry & value
    end if
On Error Goto 0

'msgbox(readFromRegistry)


' 3. TeamViewer-ID an den jeweiligen Player in die DB-Tabelle senden
  ergebnis=""
  erledigt=0
  rufeAdresse = "http://XXX.com/receivetvid.php?p=" & strHostname & "&t=" & readFromRegistry
'msgbox(rufeAdresse)
On Error Resume Next
  o.open "GET", rufeAdresse, False
  o.send
  ergebnis=o.responseText
  if ergebnis<>"" then
    erledigt=1
  end if
On Error Goto 0


if erledigt<>1 then
  WshShell.popup "Err@TvId", 3, "CheckTV"
else
  WshShell.popup "OK@TvId", 2, "CheckTV"
end if

'msgbox(ergebnis)

Set WshShell = Nothing
wscript.quit