#NoEnv
FilePath := "C:\Program Files\SoftMaker Office 2018\inst\fences.ttf"
MsgBox, % SystemVerbs(FilePath)
ExitApp

SystemVerbs(FilePath) {
   SplitPath, FilePath, FileName, FileDir
   Shell := ComObjCreate("Shell.Application")
   Folder := Shell.NameSpace(FileDir)
   Item := Folder.ParseName(FileName)
   Verbs := Item.Verbs()
   Out := "Insgesamt " . Verbs.Count . " Einträge:`n"
   For Verb In Verbs
      Out .= "`n" . (A_Index - 1) . "`t" . Verb.Name
   Return Out
}

---------------------------
Verbs.ahk
---------------------------
Insgesamt 19 Einträge:

0	&Vorschau
1	&Drucken
2	I&nstallieren
3	Für &alle Benutzer installieren
4
5	Edit with &Notepad++
6	Edit with PSPad
7	Edit with PSPad (hex)
8	Freigabe
9
10	Ausgewählte Dateien mit A&vira überprüfen
11	Vorg&ängerversionen wiederherstellen
12
13	&Ausschneiden
14	&Kopieren
15	&Verknüpfung erstellen
16	&Löschen
17	&Umbenennen
18	E&igenschaften
---------------------------
OK
---------------------------

Moin,

lass doch mal das folgende Skript für eine Deiner Fontdateien laufen:
[code]#NoEnv
FilePath := "C:\Program Files\SoftMaker Office 2018\inst\fences.ttf"
MsgBox, % SystemVerbs(FilePath)
ExitApp

SystemVerbs(FilePath) {
SplitPath, FilePath, FileName, FileDir
Shell := ComObjCreate("Shell.Application")
Folder := Shell.NameSpace(FileDir)
Item := Folder.ParseName(FileName)
Verbs := Item.Verbs()
Out := "Insgesamt " . Verbs.Count . " Einträge:`n"
For Verb In Verbs
Out .= "`n" . (A_Index - 1) . "`t" . Verb.Name
Return Out
}[/code]

Bei mir unter Win 10 entsteht folgendes Ergebnis.
[code]---------------------------
Verbs.ahk
---------------------------
Insgesamt 19 Einträge:

0 &Vorschau
1 &Drucken
2 I&nstallieren
3 Für &alle Benutzer installieren
4
5 Edit with &Notepad++
6 Edit with PSPad
7 Edit with PSPad (hex)
8 Freigabe
9
10 Ausgewählte Dateien mit A&vira überprüfen
11 Vorg&ängerversionen wiederherstellen
12
13 &Ausschneiden
14 &Kopieren
15 &Verknüpfung erstellen
16 &Löschen
17 &Umbenennen
18 E&igenschaften
---------------------------
OK
---------------------------
[/code]
Man könnte versuchen, den Eintrag 3 mit AHK auszulösen (ich habe das noch nicht getan). Wie sieht es bei Dir aus?

Wäre da nicht der Weg der "unattended installation" der richtige? Das sollte dann über Bordmittel der Installationsroutine gehen?!
https://docs.microsoft.com/en-us/windows-hardware/customize/desktop/wsim/windows-system-image-manager-technical-reference

Danke mal an alle die bisher geantwortet haben.
Es geht darum dies für eine neu aufsetzung des Computers.
Das heisst ich habe diverse Scripts die ich laufen lassen möchte.
Fängt beim Netzwerkverbinden an bis zur Druckerinstallation und diverse Programme.
Die Schriften sind in einem Netzwerkordner drinn.
Werde den Powershell script mal anschauen. Allenfalls kann ich den einbinden.

[mention]jNizM[/mention] Danke, das wusste ich nicht.

AddFontResource "registriert" die Schriftart nur bis zum nächsten Neustart, aber installiert sie nicht dauerhaft.

[quote]This function installs the font only for the current session. When the system restarts, the font will not be present. To have the font installed even after restarting the system, the font must be listed in the registry.[/quote]

Loop, Files, Y:\1_Admin\1.1_Corporate Design\1.1.2_Schriften_(Fonts)\*.ttf
DllCall("AddFontResource", Str, A_LoopFileLongPath)

SendMessage,  0x1D,,,, ahk_id 0xFFFF

Versuchmal damit, *nicht getestet*, je nach dem ob der Pfad unter Ordner enthält muss die schleife angepasst werden.


[code]Loop, Files, Y:\1_Admin\1.1_Corporate Design\1.1.2_Schriften_(Fonts)\*.ttf
DllCall("AddFontResource", Str, A_LoopFileLongPath)

SendMessage, 0x1D,,,, ahk_id 0xFFFF[/code]

Stellt sich die Frage ob das eine einmalige Angelegenheit bleibt (wahrscheinlich kein Script notwendig), oder auf tausenden NoBo's ebenfalls? Wieviele Schriften sind es denn?
Vll konvertiert dir jemand das: https://4sysops.com/archives/install-fonts-with-a-powershell-script/

Guten Morgen zsuammen
ich bin neu hier und hoffe ihr könnt mir einen Typ geben.
Ich habe in einem Ordner Schriften abgelegt die ich installieren möchte.

Y:\1_Admin\1.1_Corporate Design\1.1.2_Schriften_(Fonts)\

Wie muss ich da vorgehen? Es muss ja zuerst ins Windows \Fonts kopiert werden und dann in der Registry eingetragen werden.

Muss dazu sagen das ich kein Programmierer bin.

Besten Dank und Gruss
Roger