Betreff: Bereitstellung von Wapt über Gruppenrichtlinien
Veröffentlicht: 23. März 2018 - 12:31 Uhr
In der Zwischenzeit können Sie Änderungen vornehmen:
von :
Code: Alle auswählen
function RelocateCertDirWaptBase(Param: String):String;
var
certdir: String;
begin
certdir := ExpandConstant('{param:verify_cert|{#set_verify_cert}}');
if (pos('c:\tranquilit\wapt',lowercase(certdir))=1) then
result := ExpandConstant('{app}')+'\'+copy(certdir,length('c:\tranquilit\wapt')+1,255)
else if (pos('c:\program files (x86)\wapt',lowercase(certdir))=1) then
result := ExpandConstant('{app}')+'\'+copy(certdir,length('c:\program files (x86)\wapt')+1,255)
else if (pos('c:\program files\wapt\',lowercase(certdir))=1) then
result := ExpandConstant('{app}')+'\'+copy(certdir,length('c:\program files\wapt\')+1,255)
else if (pos('c:\wapt\',lowercase(certdir))=1) then
result := ExpandConstant('{app}')+'\'+copy(certdir,length('c:\wapt\')+1,255)
else
result := certdir;
end;Code: Alle auswählen
function RelocateCertDirWaptBase(Param: String):String;
var
certdir: String;
begin
certdir := ExpandConstant('{param:verify_cert|{#set_verify_cert}}');
if (pos('c:\tranquilit\wapt',lowercase(certdir))=1) then
result := ExpandConstant('{app}')+'\'+copy(certdir,length('c:\tranquilit\wapt')+1,255)
else if (pos('c:\program files (x86)\wapt',lowercase(certdir))=1) then
result := ExpandConstant('{app}')+'\'+copy(certdir,length('c:\program files (x86)\wapt')+1,255)
else if (pos('c:\program files\wapt\',lowercase(certdir))=1) then
result := ExpandConstant('{app}')+'\'+copy(certdir,length('c:\program files\wapt\')+1,255)
else if (pos('c:\wapt\',lowercase(certdir))=1) then
result := ExpandConstant('{app}')+'\'+copy(certdir,length('c:\wapt\')+1,255)
else if (pos('d:\wapt\',lowercase(certdir))=1) then
result := ExpandConstant('{app}')+'\'+copy(certdir,length('d:\wapt\')+1,255)
else
result := certdir;
end;