Hat von Euch schonmal jemand Schriften von Windows mithilfe von AutoIt oder ähnlichem deinstallieren lassen ?
Ich bräuchte ein Script, mit dem ich das tun kann und das auch funktioniert, wenn die User keine Adminrechte haben.
Ich habe da schon etwas gebastelt, das aber leider nicht funktioniert.
Vielleicht hat ja jemand von Euch 'ne Idee ?!
Local $workingdir = "\\MeinServer\Info\Schrift\"
Local $UserName = "sa_domainadminaccount"
Local $Password = "password"
Local $Script = RegDelete("HKEY_LOCAL_MACHINE\Software\Microsoft\Windows NT\CurrentVersion\Fonts" & "/v", "Schrift1.otf" & "/f")
Local $Script1 = RegDelete("HKEY_LOCAL_MACHINE\Software\Microsoft\Windows NT\CurrentVersion\Fonts", "Schrift2.otf")
Local $Script2 = RegDelete("HKEY_LOCAL_MACHINE\Software\Microsoft\Windows NT\CurrentVersion\Fonts", "Schrift3.otf")
Local $CompleteScript = $Script & $Script1 & $Script2
MsgBox(0,"Deinstallationsstart", "Die Schriften werden nun von Ihrem System entfernt.")
RunAs($UserName, "MeineDomain",$Password, 0, $CompleteScript, $workingdir)
FileDelete ("C:\Windows\Fonts\Schrift*.*")
sleep(2000)
If FileExists("C:\Windows\Fonts\Schrift*.*") Then
MsgBox(0,"Fehler !", "Die Deinstallation der Schriften schlug fehl. Bitte wenden Sie sich an den Support !")
Else
MsgBox(0,"Installationsabschluss", "Die Schriftarten wurden erfolgreich deinstalliert.")
EndIf
Exit
[/autoit]