Rem {VERSION..VER_DX_NT_1_0}
 
Option Explicit
 
' hier den Namen des NEUEN DX-Union Masters angeben
Const sNewDXUServerName = "dxusrvneu"
 
Sub Main
 
    Dim obDxRegistry As Object
    Dim petErr As Object
    Dim sRegistryKey As String
    Dim sURMIsInstalled As String
 
    Set obDxRegistry = CreateObject("DxRegistry.DxRegistry.1")
    Set petErr = CreateObject("PetcomError.PetcomError.1")
    obDxRegistry.sKey = "HKEY_LOCAL_MACHINE"
 
    ' Datenmanager aendern
    obDxRegistry.Write sNewDXUServerName, "DatenManager", "SOFTWARE\Dr. Materna GmbH\DX-Union\", obDxRegistry.sKey
    
    ' pruefe ob URM installiert ist
    obDxRegistry.sSubkey = "SOFTWARE\Dr. Materna GmbH\DX-Union Client\dxsetup"
    sURMIsInstalled = obDxRegistry.Read("dxurm")
 
    If(sURMIsInstalled = "1") Then
    ' Den Anmeldeserver aller lokalen Benutzer anpassen
    ' BERUECKSICHTIGT NICHT DIE SLAVES!!!
        obDxRegistry.sSubkey = "SOFTWARE\Dr. Materna GmbH\DX-Union\DX-Login\Logon"
        obDxRegistry.ReadSubkeys
    
        If obDxRegistry.IsEmpty = False Then
            sRegistryKey = obDxRegistry.sName
            obDxRegistry.Write sNewDXUServerName, "LogonServer", "SOFTWARE\Dr. Materna GmbH\DX-Union\DX-Login\Logon\" + sRegistryKey, obDxRegistry.sKey
            ' Alle weiteren Sätze verarbeiten
            While obDxRegistry.lCurrentRecord < obDxRegistry.lCount
                obDxRegistry.MoveNext
                sRegistryKey = obDxRegistry.sName
                obDxRegistry.Write sNewDXUServerName, "LogonServer", "SOFTWARE\Dr. Materna GmbH\DX-Union\DX-Login\Logon\" + sRegistryKey, obDxRegistry.sKey
            Wend
        End If
    
    End If
 
    ' Lösche die Liste der OfflineServers auf dem Client
    obDxRegistry.sSubkey = "SOFTWARE\Dr. Materna GmbH\DX-Union\DX-Datenmanager\OfflineServers"
 
    On Error Resume Next
    obDxRegistry.DeleteKey
    On Error Goto 0
 
    ' Reboot per Einstellung im Softwarepaket;
    ' der Ist-Stand wird schon auf den neuen Master geschrieben!
End Sub