Majce

Auf einem Windows 7 Betriebssystem, der Server ist ein 2008 R2. Nein, geht auch leider mit \\avan-dc-01\avanon\Avanon_Intern\Fonts\FontsToInstall nicht. kommt die gleiche Fehlermeldung. An den Rechten kann es nicht liegen, da ich Domänenadmin bin. Ich sag ja, aaalllleees k***e :) Bei mir funktioniert nie was. :(

Hallo Mamamia Ich habe das Script 1 zu 1 kopiert, lediglich deployFonts in: deployFonts("Z:\Avanon_Intern\Fonts\FontsToInstall") geändert. Jetzt kommt mir die Meldung: Zeile 50 Zeichen 1 Fehler Typen unverträglich: 'deployFonts' :( Auch ohne " " geht es nicht. Kannst du mir bitte noch einmal helfen :s

Hallo Mamamia Ja, das mit dem NOT hatte ich auch schon, doch leider stellt er mir auch die Frage mit dem Ersetzen, deswegen probiere ich es über einen Umweg. Gerne würde ich es sonst mit deinem Script mal ausprobieren, vielleicht funktioniert das bei mir. Und ja, ich dachte mir, ich lege es als Startscript auf jeden Computer, so habe ich dann keine Meldungen mehr, mir fehlt diese Schrift und mir diese. Danke dir viel mal für deine Hilfe.

Hallo Mamamia Danke für die Antwort. Doch was ist, wenn es die Schrift nicht hat, dann macht er ja gar nichts, und er soll Sie ja kopieren. Ich sag es mal so: Schrift im Ordner suchen. Wenn Schrift vorhanden: Dann mach gar nichts ansonsten installiere Schrift. Das will ich eigentlich mit diesem Script erreichen. Doch ich weiss nicht wie ich im sagen soll, er soll garnichts machen, deshalb lasse ich sie vorher löschen. Doch ich bin blutige Anfängerin im VBS. Danke und Gruss Majce

Hallo ihr Lieben Leider komme ich hier nicht mehr weiter: Dim oFSO, oApp, oFolderCopy, oShell Dim strFontsPath, strScriptPath Set oFSO = CreateObject("Scripting.FileSystemObject") Set oShell = CreateObject("WScript.Shell") Set oApp = CreateObject("Shell.Application") strScriptPath = Replace(WScript.ScriptFullName, WScript.ScriptName, "") strFontsPath = oShell.ExpandEnvironmentStrings("%WINDIR%") & "\Fonts" Set oFolderCopy = oApp.Namespace(strScriptPath & "FontsToInstall") For Each oFont In oFolderCopy.Items IF oFSO.FileExists(strFontsPath & "\" & oFont.Name) = True Then oApp.Namespace(strFontsPath).Delete oFont oApp.Namespace(strFontsPath).CopyHere oFont Else oApp.Namespace(strFontsPath).CopyHere oFont End If Next ' Cleanup Objects Set oFolderCopy = Nothing Set oApp = Nothing Set oShell = Nothing Ich will eigentlich NUR, wenn die Schriftart vorhanden ist, dass er zur nächsten Geht und wenn nicht, dass er Sie in den Ordner Kopiert. Leider klappt das nicht, denn wenn eine Schriftart vorhanden ist, dann Fragt er mich immer wieder, willst du die Schriftart ersetzen. Bei 1 Schriftart ja noch ok, aber nicht wenn ich 500 Schriftarten habe und vielleicht 200 bereits auf meinem Computer. Ich danke euch viel mal für eure Hilfe. PS: Ich Scripte das erste mal mit VB, also bitte verzeiht wenn es nicht gut aussieht. LG Majce