Textinhalt (Teilabschnitt) aus einer XML exportieren und in eine Datei einfügen

Ich habe verschiedene Scriptabfragen versucht doch nichts hat den nötigen Erfolg gebracht um mein Scriptproblem zu lösen.
Das liegt zum sicherlich zum Teil an meinen schlechten Scriptfähigkeiten ;) aber evt. auch an dem Vorhaben.
Ich hoffe die Administrator.de community kann da evt. weiterhelfen.

Hallo,

Wir wollen für ein internes Programm ein Java Zertifikat aus einem Teilabschnitt einer Datei (Sylink.xml) exportieren und danach in eine vorgefertigte Schablonendatei %Servername%.txt einfügen und dann in das JAVA Control Panel importieren.
Das alles am besten per script, es dürfen auch mehrere sein.. wichtig ist einfach nur der Automatismus. Die ganzen genannten Punkte müssen ohne das eingreifen eines Users erfolgen.
Den jeweiligen Computernamen wird per batch befehl entnommen um die Datei umbennant....später wird diese mit dem Exportierten Zertifikatsabschnitt befüllt.

Exportieren des Zertifikatsabschnitts:
Es handelt sich um die Datei Sylink.xml (benutzt von dem Programm "Symantec Endpoint Protection"
In der Sylink.xml befinden sich die Kommunikationseinstellungen des Servers für die Clients, zusätzlich enthält diese Datei aber auch eine Zertifikatsabfrage.


Der spannende Abschnitt sieht folgendermaßen aus:
<Certificate Name="Servername">MIICQzCCAaygAwIBAgIES5Y3eTANBgkqhkiG9w0BAQUFADBmMQswCQYDVQQGEwJVUzELMAkGA1UE CBMCQ0ExEDAOBgNVBAcTB0ZyZW1vbnQxFTATBgNVBAoTDHN5bWFudGVjLmNvbTEMMAoGA1UECxMD c2NtMRMwEQYDVQQDEwp5ZWxsb3ctcGFkMB4XDTEwMDMwOTExNTY0MVoXDTIwMDMwNjExNTY0MVow ZjELMAkGA1UEBhMCVVMxCzAJBgNVBAgTAkNBMRAwDgYDVQQHEwdGcmVtb250MRUwEwYDVQQKEwxz eW1hbnRlYy5jb20xDDAKBgNVBAsTA3NjbTETMBEGA1UEAxMKeWVsbG93LXBhZDCBnzANBgkqhkiG 9w0BAQEFAAOBjQAwgYkCgYEAvPBgIVLSkozFjPWTT8QkIm+bBVIFC0Nyeu0RarMJrVvI1z3Vkzya tzSPkffMbjnP8mK/iLf3iZ5C40MB1hmmPvKa36o8xcDyeXcYLUvYBqwiP+q4Y9ufOSBEPUWD272x lMOGiitdV1UuQx+Hy41JXXN12M6E0VypOnk5gAjoZtECAwEAATANBgkqhkiG9w0BAQUFAAOBgQC5 26ZsiMFIEg7KQa33/18fG3KQKHZbIGDkT6NxrX55nK9TGnoytvANHTcDiM1caovv3busigebOz3d G8K5fJKcbYEWZ7+qd6wu8WT3xPB5qeUQR/YsDJBB+b+psRq+vT9GiVGwsTl5pXItlyltr53DD+zb jAK+s6K0ZwBqTD0ZmA==</Certificate>

Diesen Abschnitt würden wir gerne exportieren:
MIICQzCCAaygAwIBAgIES5Y3eTANBgkqhkiG9w0BAQUFADBmMQswCQYDVQQGEwJVUzELMAkGA1UE CBMCQ0ExEDAOBgNVBAcTB0ZyZW1vbnQxFTATBgNVBAoTDHN5bWFudGVjLmNvbTEMMAoGA1UECxMD c2NtMRMwEQYDVQQDEwp5ZWxsb3ctcGFkMB4XDTEwMDMwOTExNTY0MVoXDTIwMDMwNjExNTY0MVow ZjELMAkGA1UEBhMCVVMxCzAJBgNVBAgTAkNBMRAwDgYDVQQHEwdGcmVtb250MRUwEwYDVQQKEwxz eW1hbnRlYy5jb20xDDAKBgNVBAsTA3NjbTETMBEGA1UEAxMKeWVsbG93LXBhZDCBnzANBgkqhkiG 9w0BAQEFAAOBjQAwgYkCgYEAvPBgIVLSkozFjPWTT8QkIm+bBVIFC0Nyeu0RarMJrVvI1z3Vkzya tzSPkffMbjnP8mK/iLf3iZ5C40MB1hmmPvKa36o8xcDyeXcYLUvYBqwiP+q4Y9ufOSBEPUWD272x lMOGiitdV1UuQx+Hy41JXXN12M6E0VypOnk5gAjoZtECAwEAATANBgkqhkiG9w0BAQUFAAOBgQC5 26ZsiMFIEg7KQa33/18fG3KQKHZbIGDkT6NxrX55nK9TGnoytvANHTcDiM1caovv3busigebOz3d G8K5fJKcbYEWZ7+qd6wu8WT3xPB5qeUQR/YsDJBB+b+psRq+vT9GiVGwsTl5pXItlyltr53DD+zb jAK+s6K0ZwBqTD0ZmA=

und danach in eine vorgefertigte File einfügen, diese Datei heißt in unserem Bsp. einfach nur "Servername.txt"

Die Schablone sieht folgendermaßen aus:
BEGIN CERTIFICATE-----
(leeres Feld, für den später eingefügten Text aus der Sylink.xml)
END CERTIFICATE-----

Nachdem der richtige Abschnitt exportiert wurde und in unsere Datei importiert wurde, muss sie folgendermaßen aussehen:
BEGIN CERTIFICATE-----
Der eingefügte Zertifikatsabschnitt aus der Sylink.xml, siehe Bild
END CERTIFICATE-----
Die Zeilenümbrüche müssen exakt stimmen sonst ist die Datei in die java runtime nicht zu importieren (Es erscheint eine Fehlermeldung)

EDIT: Nach dem Script sieht es folgendermaßen aus: ( Dank geht an didi1954 )


Es müssen also nur noch die Sonderzeichen am Ende jedes Zeilenumbruchs verschwinden. Ich habe es folgendermaßen gelöst.
Damit ist dieses Problem vom Tisch und es bleibt nur noch die Importierung in das Java Control Panel per Script. :D


Danach soll die fertige Datei importiert werden (Am besten silent per script)


Im Java Control Panel >> im Reiter "Sicherheit" auf den Button "Zertifikate..."
Im Reiter "Benutzer"
Zertifikatstyp: Vertrauenswürdige Zertifikate + Sichere Site



Es wäre evt. möglich mit dem keytool von java (im bin installationsverzeichnis) zu arbeiten.

echo === Keytool im Java Verzeichnis benutzen ===
D:\Programme\Java\jre6\bin
keytool -import -trustcacerts -alias <alias-name> -file c:\SEPMinst\%computername%.txt -keystore cacerts

Das Problem hier wiederrum wäre das die Datei %Computername%.txt eine Variable bleiben muss und keinen festen Namen haben darf. Das Script muss für jeden Rechner gehen und nicht nur für einen einzigen.
Durch die echo %computername% Abfrage könnte das Script sozusagen auch den Namen dann erfahren und eintragen.


<<<<<<<<<<<<<<<<<<>>>LÖSUNG>>>>>>>>>>>>>>>>>>>>>>>>>>

Hier die Scripts zum anschauen:
Export Script
Copy Script


Nachdem wir das Zertifikat soweit vorbereitet haben (Text exportiert/importiert) musste es noch in den Zertifikatsspeicher (Vertrauenswürdige Stammzertifizierungsstellen) importiert werden:
Um diesen Vorgang zu automatisieren, haben wir folgenden Befehl benutzt.
certutil -f -addstore -enterprise root C:\SEPMinst\Export.cer

Das alles zusammen in ein Ablaufendes *.vbs zusammenfügen, in den f.e. autostart hinterlegen und fertig ist unser Automatismus =)

<<<<<<<<<<<<<<<<<<>>>ENDE>>>>>>>>>>>>>>>>>>>>>>>>>>>>>

Const XmlPath = "E:\Test\Import.xml"  
Const TxtPath = "E:\Test\Export.txt"  

Const TextBefore = "-----BEGIN CERTIFICATE-----"  
Const TextAfter = "-----END CERTIFICATE-----"  

Const Msg0 = "Das Zertifikat wurde erfolgreich exportiert."  
Const Msg1 = "Das Zertifikat konnte nicht exportiert werden!"  

Dim Re, Fso, XmlFile, TxtFile, ImportText, ExportText, Text

Set Re = New RegExp
Set Fso = CreateObject("Scripting.FileSystemObject")  
    
Set XmlFile = Fso.OpenTextFile(XmlPath)
    
ImportText = XmlFile.ReadAll:  XmlFile.Close
    
With Re
   .Global = False
   .IgnoreCase = True
   .Pattern = "<Certificate Name=[^>]+>([^<]*)</Certificate>"  
End With
    
With Re.Execute(ImportText)
    If .Count = 1 Then
        With .Item(0).Submatches
            If .Count = 1 Then
                ExportText = Fso.OpenTextFile(TxtPath).ReadAll
                    
                Text = Split(ExportText, TextBefore)(0) & TextBefore & vbCrLf
                Text = Text & .Item(0) & vbCrLf
                Text = Text & TextAfter & Split(ExportText, TextAfter)(1)
                    
                Set TxtFile = Fso.CreateTextFile(TxtPath)
                    
                TxtFile.Write Text:  TxtFile.Close
                    
                MsgBox Msg0, vbInformation, "Meldung"  
            Else
                MsgBox Msg1, vbExclamation, "Fehler"  
            End If
        End With
    Else
        MsgBox Msg1, vbExclamation, "Fehler"  
    End If
End With

strFilename = "Servername.txt"  
Set objFSO = CreateObject("Scripting.FileSystemObject")  
Set objFile = objFSO.GetFile(strFilename)
intFileSize = objFile.Size
Set objFile = objFile.OpenAsTextStream()
strFileContent = objFile.Read(intFileSize)
objFile.Close

Set objRegExp = New RegExp
objRegExp.Global = True
objRegExp.IgnoreCase = True             'False für case-sensitive  
strFileContent = objRegExp.Replace(strFileContent, "")  
objRegExp.Pattern = "
"  
strFileContent = objRegExp.Replace(strFileContent, "")  
Set objFile = objFSO.OpenTextFile(strFilename, 2)
objFile.Write strFileContent
objFile.Close

Const XmlPath = "E:\Test\Import.xml"  
Const CerPath = "E:\Test\Export.cer"  

Const Msg0 = "Das Zertifikat wurde erfolgreich exportiert."  
Const Msg1 = "Das Zertifikat konnte nicht exportiert werden!"  

Dim Re, Fso, XmlFile, CerFile, XmlText, CerText

Set Re = New RegExp
Set Fso = CreateObject("Scripting.FileSystemObject")  
    
Set XmlFile = Fso.OpenTextFile(XmlPath)

XmlText = XmlFile.ReadAll:  XmlFile.Close
    
With Re
   .Global = False
   .IgnoreCase = True
   .Pattern = "<Certificate Name=[^>]+>([^<]*)</Certificate>"  
End With
                                                          
With Re.Execute(XmlText)
    If .Count = 1 Then
        With .Item(0).Submatches
            If .Count = 1 Then
                CerText = Replace(.Item(0), "&#xd;", "")  
                  
                Set CerFile = Fso.CreateTextFile(CerPath)

                With CerFile
                    .WriteLine "-----BEGIN CERTIFICATE-----"  
                    .Write CerText & vbCrLf
                    .WriteLine "-----END CERTIFICATE-----"  
                    .Close
                End With
                   
                MsgBox Msg0, vbInformation, "Meldung"  
            Else
                MsgBox Msg1, vbExclamation, "Fehler"  
            End If
        End With
    Else
        MsgBox Msg1, vbExclamation, "Fehler"  
    End If
End With

@echo off

::32Bit
Set "JavaBin=C:\Program Files (x86)\Java\jre6x32\bin"  
Set "JavaSec=C:\Program Files (x86)\Java\jre6x32\lib\security"  
Set "JavaCer=E:\Test"  

::64Bit
::Set "JavaBin=C:\Program Files\Java\jre6x64\bin" 
::Set "JavaSec=C:\Program Files\Java\jre6x64\lib\security" 
::Set "JavaCer=E:\Test" 

"%JavaBin%\keytool" -import -v -noprompt -trustcacerts -alias "Test" -file "%JavaCer%\Export.Cer" -keystore "%JavaSec%\Test.jks" -storepass "Passwort"  

Pause

"%JavaBin%\keytool" -delete -alias "Test" -keystore "%JavaSec%\Test.jks" -storepass "Passwort"  

Const XmlPath = "E:\Test\Import.xml"  
Const CerPath = "E:\Test\Export.cer"  

Const TextReplace = "</CommConf>"  
Const TextInsert =  "<RegisterClient PreferredGroup=""My Company\Servers"" PreferredMode=""1""/>"  

Const Msg0 = "Das Zertifikat wurde erfolgreich exportiert."  
Const Msg1 = "Das Zertifikat konnte nicht exportiert werden!"  

Dim Re, Fso, XmlFile, CerFile, XmlText, CerText, NewText

Set Re = New RegExp
Set Fso = CreateObject("Scripting.FileSystemObject")  
    
Set XmlFile = Fso.OpenTextFile(XmlPath)

XmlText = XmlFile.ReadAll

NewText = TextInsert &  vbCrLf & "</CommConf>"  

XmlText = Replace(XmlText, TextReplace, NewText, 1 , -1, vbTextCompare)
    
Set XmlFile = Fso.CreateTextFile(XmlPath)
    
XmlFile.Write XmlText:  XmlFile.Close
	
With Re
   .Global = False
   .IgnoreCase = True
   .Pattern = "<Certificate Name=[^>]+>([^<]*)</Certificate>"  
End With
                                                          
With Re.Execute(XmlText)
    If .Count = 1 Then
        With .Item(0).Submatches
            If .Count = 1 Then
                CerText = Replace(.Item(0), "&#xd;", "")  
                  
                Set CerFile = Fso.CreateTextFile(CerPath)

                With CerFile
                    .WriteLine "-----BEGIN CERTIFICATE-----"  
                    .Write CerText & vbCrLf
                    .WriteLine "-----END CERTIFICATE-----"  
                    .Close
                End With
                   
                MsgBox Msg0, vbInformation, "Meldung"  
            Else
                MsgBox Msg1, vbExclamation, "Fehler"  
            End If
        End With
    Else
        MsgBox Msg1, vbExclamation, "Fehler"  
    End If
End With

Const XmlPath = "E:\Test\Import.xml"  

Const TextReplace = "</CommConf>"  
Const TextInsert =  "<RegisterClient PreferredGroup=""My Company\Servers"" PreferredMode=""1""/>"  

Dim Fso, XmlFile, XmlText, NewText

Set Fso = CreateObject("Scripting.FileSystemObject")  
    
Set XmlFile = Fso.OpenTextFile(XmlPath)

XmlText = XmlFile.ReadAll

NewText = TextInsert &  vbCrLf & TextReplace

XmlText = Replace(XmlText, TextReplace, NewText, 1 , -1, vbTextCompare)
    
Set XmlFile = Fso.CreateTextFile(XmlPath)
    
XmlFile.Write XmlText:  XmlFile.Close