Hallo,

gibt es einen Befehl ähnlich wir WritePrivateProfile mit dem man eine Textdatei erstellen bzw. erweitern kann ?

Aktuell möchte ich gerne eine Datei um einigen Zeilen am Ende erweitern, aber ohne wie bei WritePrivateProfile mit Sektion und Entry$=Value$, einfach "Das ist ein Text"

Danke schon mal im Vorraus

Christian

Hallo,

danke für die Antwort.

Im DXScript Editor funktioniert folgendes wunderbar, aber im fertigen inst.bas bekomme ich "Expecting an existin scalar var"

Das Angepasste Beispiel:

Const ForWriting = 2
Const ForAppending = 8
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile(Environ("windir") & "\system32\drivers\etc\services", ForAppending)
objFile.WriteLine "sapmsP35 3635/tcp"
objFile.WriteLine "sapmsK25 3625/tcp"
objFile.WriteLine "sapmsE15 3615/tcp"
objFile.Close




Hier der PostInstall Teil:

'PostInstallationsaktionen ausführen
ReportDXDist (1, "Post-Installationsaktionen durchführen")
wexec32 ("dxcopy","-f -v "+Chr(34)+"vm-dxu1:D:\DXU\Depots\SAP_Front-End_730_Patch_6/pkg/saplogon.ini"+" "+Environ("WINDIR"),SW_NORMAL)
'Eintragen SAP Server in die services
Const ForWriting = 2
Const ForAppending = 8
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile(Environ("windir") & "\system32\drivers\etc\services", ForAppending)
objFile.WriteLine "sapmsP35 3635/tcp"
objFile.WriteLine "sapmsK25 3625/tcp"
objFile.WriteLine "sapmsE15 3615/tcp"
objFile.Close

ReportDXDist (1, "Post-Installationsaktionen abgeschlossen")

Phase2 = 0

Goto EndeOK:


Mein nächstes Problem wäre beim deinstallieren, wie kann ich diese Zeilen wieder aus der Services löschen bzw. wie kann ich bestimt vorhanden ändern.


Grüße

Christian

Danke für die Hilfestellung.

Die Variablen waren nicht doppelt, aber es gab auch keine Dim für die Variablen.

Ich habe einfach mal DIM objFSO und DIM objFile vorangestellt und nun funktioniert es.

Wir haben die SAP Einträge per Batchbefehl gemacht:

echo sapmsXX Portnummer/tcp >> C:\Windows\system32\drivers\etc\services
 

Hallo André,

danke für die Anregung, wollte aber versuchen es direkter zu lösen.
Was ja auch nun geht, auch das Aufräumen bei deinstallation ist schon zu. 90% gelöst.