<div>
<b>CopyHere</b> supports a second parameter for options, see <a href="https://msdn.microsoft.com/en-us/library/windows/desktop/ms723207(v=vs.85).aspx" rel="ugc">https://msdn.microsoft.com/en-us/library/windows/desktop/ms723207(v=vs.85).aspx</a>&nbsp;. &nbsp;In this case I would use 1024 to not show any error dialog:<br />

<pre><code class="code-1 nolinks" id="code-20-42088814-1"><span>objFolder.CopyHere &quot;location\font.ttf&quot;, 1024</span>
</code></pre>
</div>


<div>
<pre><code class="code-1 nolinks" id="code-20-42088819-1"><span>Const FONTS = &amp;H14&amp;</span>
<span></span>
<span>Set objShell = CreateObject(&quot;Shell.Application&quot;)</span>
<span>Set objFolder = objShell.Namespace(FONTS)</span>
<span>Set objFolderItem = objFolder.Self</span>
<span>Wscript.Echo objFolderItem.Path</span>
</code></pre>
</div>


<div>
I thank you both for your response, however:<br />
<br />
Qlemo: This does not work with the script I am using. Looking at the article, I'm not sure the syntax is the same (System.Shell.Folder.copyH<wbr />ere &amp;&nbsp;objFolder.CopyHere)<br />
<br />
Jeff: All this does is display the path to the fonts folder... (In all fairness, it does that VERY well...).
</div>


<div>
Is there a reason you're not sharing the article?
</div>


<div>
...The article noted by Qlemo...:<br />
<br />
<a href="https://msdn.microsoft.com/en-us/library/windows/desktop/ms723207(v=vs.85).aspx" rel="ugc">Link from above.</a>
</div>


<div>
Your <b>objFolder</b> is of type <b>System.Shell.Folder</b> ...<br />
What exactly does not work with my suggestion?
</div>


<div>
The popup is not strictly an error as it is an option dialog; giving the user the option to re-install the font.<br />
<br />
I'm not sure if this is why, but the dialog still pop's up.<br />
<br />
I believe that it is working, because I do not get any error messages when it runs. <br />
<br />
This is the extent of the code (with the 1024 removed):<br />
<br />
<i>Const FONTS = &amp;H14&amp; <br />
<br />
Set objShell = CreateObject(&quot;Shell.Applic<wbr />ation&quot;) <br />
Set objFolder = objShell.Namespace(FONTS)<br />
objFolder.CopyHere &quot;\\server name\Distribution\IDOTFONT<wbr />S\FDOT.ttf<wbr />&quot; </i><br />
<br />
When added, I made it look just like your example. I also tried adding 16, as that seemed to also make scene.<br />
<br />
FYI: Each user has local admin rights on the workstations.
</div>


<div>
Silly question, I'm sure...<br />
<br />
Why not just check if the file exists before you attempt to copy it?<br />
<br />
<a href="https://blogs.technet.microsoft.com/heyscriptingguy/2005/06/20/how-can-i-determine-if-a-file-exists-and-if-it-does-exit-the-script/" rel="ugc">https://blogs.technet.microsoft.com/heyscriptingguy/2005/06/20/how-can-i-determine-if-a-file-exists-and-if-it-does-exit-the-script/</a>
</div>


<div>
Not silly...<br />
<br />
I have over 150 machines that needs this done to it. So, I am planning on pushing this via GPO.<br />
<br />
I know it will work, but I have to leave the GPO active at least until I can be sure that every machine has gotten the update. In the mean time, every machine that has already been loaded, will get that &quot;are you sure you want to re-install...&quot; message every time they reboot.<br />
<br />
So I need a way for the script to know if it has already done the job or not, so that the install process can be skipped if it has been.
</div>


<div>
<i>So I need a way for the script to know if it has already done the job or not, so that the install process can be skipped if it has been. </i><br />
So, I'll repeat: <br />
Why not just check if the file exists before you attempt to copy it?<br />
If it exists, it's been run before and can be skipped. &nbsp;If not, it copies it. &nbsp;Where's the problem?
</div>


<div>
Group policy will automatically run the GPO object every time the machine is started. So, if I am correct, the script will try and load the fonts again each time the user reboots.<br />
<br />
The only other option I am aware of, is to do it manually for over 150 machines... which I would like to avoid.
</div>


<div>
Ah of course, %WinDir%\fonts is a special folder type with added features. it is not the copy operation itself, but what is triggered instead in the background (the font installation dialog).<br />
In that case it is indeed best to first check for the file locally.<br />

<pre><code class="code-1 nolinks" id="code-20-42090420-1"><span>Const FONTS = &amp;H14&amp; </span>
<span></span>
<span>set objFolder = CreateObject(&quot;Shell.Application&quot;).Namespace(FONTS)</span>
<span>if (!CreateObject(&quot;Scripting.FileSystemObject&quot;).FileExists(objFolder.Self.Path)) then</span>
<span>  objFolder.CopyHere &quot;\\server name\Distribution\IDOTFONTS\FDOT.ttf&quot; </span>
<span>end if</span>
</code></pre>
</div>


<div>
Thanks...<br />
<br />
I have to switch gears for a bit, but I will try this before the end of the day...<br />
<br />
BTW... I have been trying to learn VB, but have yet to find a way that is &quot;NOOB' friendly.<br />
<br />
Any suggestions?
</div>


<div>
I don't know how to make this any clearer - make your script CHECK if the font is there. &nbsp;If it is, then you SKIP installing it. &nbsp;The Group Policy can apply for all time (are NEVER getting new machines?).
</div>


<div>
LEE W, MVP said:<br />
<br />

<blockquote>
I don't know how to make this any clearer - make your script CHECK if the font is there. &nbsp;If it is, then you SKIP installing it. &nbsp;The Group Policy can apply for all time (are NEVER getting new machines?).
</blockquote>
<br />
...Let me make this clearer...<br />
<br />
The reason I am here, asking these questions, is because I know I need to do that, but, until Qlemo and others made a helpful suggestion, I have no idea how.<br />
<br />
So, what I am looking for, is helpful suggestions, not the pointing out of the obvious...
</div>


<div>
Qlemo:<br />
<br />
I tried your suggestion noted above and it does not like the !.<br />
<br />
I get a Syntax error: <br />
<br />
Line 4<br />
Char 5<br />
<br />
Code: 800A03EA<br />
<br />
I replace ! with NOT, which works, but the second &quot;Run and skip&quot; does not...
</div>


<div>
I provided the link with instructions how to do if DAYS ago. You didn't even acknowledge that. &nbsp;If you don't have the skill to incorporate the information I provided, say so! I didn't just say &quot;check if if exists&quot; I provided a link to a Microsoft blog that details how check a file exists in vb.<br />
<br />
I don't have time to code if now as I'm on an android tablet. But if you had said &quot;good idea... But I don't know how to incorporate that code&quot; in the first place, I'm sure I or one if the other posters would have had this solved four you DAYS ago. HELP US HELP YOU
</div>


<div>
Lee w.<br />
<br />
My mistake.<br />
<br />
All i saw was your tone, and i missed your link.
</div>


<div>
And it seems you likely misread my tone because you didn't read my earlier posts. &nbsp;Now you see why I'm frustrated trying to help you.
</div>


<div>
Sorry, I forgot the font name in the existence check ...<br />

<pre><code class="code-1 nolinks" id="code-20-42094778-1"><span>Const FONTS = &amp;H14&amp;</span>
<span>FontName = &quot;FDOT.ttf&quot;</span>
<span></span>
<span>Set objFolder = CreateObject(&quot;Shell.Application&quot;).Namespace(FONTS)</span>
<span>If (Not CreateObject(&quot;Scripting.FileSystemObject&quot;).FileExists(objFolder.Self.Path + &quot;\&quot; + FontName)) Then</span>
<span>  objFolder.CopyHere &quot;\\server name\Distribution\IDOTFONTS\&quot; + FontName</span>
<span>End If</span>
</code></pre>
</div>


<div>
Didn't want you to think I forgot.<br />
<br />
I will try again later today or tomorrow at the latest.<br />
<br />
Will be out the rest of the day!
</div>


<div>
Qlemo:<br />
<br />
I must be starting to get the hang of this because I was able to change the script to make it copy right, but cannot get it to NOT copy once it is there.<br />
<br />
Otherwise, after adding the server name, it does not error out, and when I run it under CSCRIPT //X there are also no errors. It just runs, and does nothing.<br />
<br />
...Sorry, and thanks for the effort so far.
</div>


<div>
Then you might want to use some debugging output.<br />

<pre><code class="code-1 nolinks" id="code-20-42103020-1"><span>Const FONTS = &amp;H14&amp;</span>
<span>FontName = &quot;FDOT.ttf&quot;</span>
<span></span>
<span>Set objFolder = CreateObject(&quot;Shell.Application&quot;).Namespace(FONTS)</span>
<span>If (Not CreateObject(&quot;Scripting.FileSystemObject&quot;).FileExists(objFolder.Self.Path + &quot;\&quot; + FontName)) Then</span>
<span>  objFolder.CopyHere &quot;\\server name\Distribution\IDOTFONTS\&quot; + FontName</span>
<span>else</span>
<span>  WScript.Echo 'Font already there'</span>
<span>End If</span>
</code></pre>
</div>


<div>
Thanks, and sorry for the delay!<br />
<br />
I will test this tomorrow at the latest.
</div>


<div>
Sorry for the delay on this one, but I got pulled away and this is the first change I have had.<br />
<br />
What I found out, and I think why this has not worked, is because it seems that the restriction for automating copying things into the fonts folder has something to do with copying them from the network directly into the fonts folder.<br />
<br />
It seems that the solution is to copy them first into a local folder, and then from there into the fonts folder.<br />
<br />
Can you add that part to the script and we'll see if that works?<br />
<br />
<br />
Thanks!
</div>


<div>
<pre><code class="code-10 nolinks" id="code-20-42155896-1"><span>Const FONTS = &amp;H14</span>
<span>Const LOCALAPPDATA = &amp;H1c</span>
<span>FontName = &quot;FDOT.ttf&quot;</span>
<span></span>
<span>Set objFontsFolder = CreateObject(&quot;Shell.Application&quot;).Namespace(FONTS)</span>
<span>Set objTmpFolder = CreateObject(&quot;Shell.Application&quot;).Namespace(LOCALAPPDATA)</span>
<span>If (Not CreateObject(&quot;Scripting.FileSystemObject&quot;).FileExists(objFolder.Self.Path + &quot;\&quot; + FontName)) Then</span>
<span>  objTmpFolder.CopyHere &quot;\\server name\Distribution\IDOTFONTS\&quot; + FontName</span>
<span>  objFontFolder.MoveHere objTmpFolder.ParseName(FontName).Path</span>
<span>else</span>
<span>  WScript.Echo 'Font already there'</span>
<span>End If</span>
</code></pre>
but I don't think that changes anything.
</div>


<div>
<a href="https://filedb.experts-exchange.com/incoming/2017/06_w22/1165630/Fonts.PNG" target="_blank" title="Error code (16 KB)"><img alt="Error code" class="file-block lazyload" style="max-width: 419px;" data-src="https://filedb.experts-exchange.com/incoming/2017/06_w22/1165630/Fonts.PNG" /></a><br />
Any Thoughts?<br />
<br />
This is what happens when I run it.
</div>


Fonts.PNG

<div>
Meets the requirements of the question. &nbsp;I agree that this should be the solution.
</div>


<div>
<div class="content wysiwyg-content">
I found the following vbs script that will install fonts into the fonts folder of a Windows 7 workstation:<br />
<br />
<b><i>Const FONTS = &amp;H14&amp; <br />
<br />
Set objShell = CreateObject(&quot;Shell.Applic<wbr />ation&quot;) <br />
Set objFolder = objShell.Namespace(FONTS)<br />
objFolder.CopyHere &quot;location\font.ttf&quot;</i></b><br />
<br />
The only thing you have to do is replace &quot;location&quot;, with where the fonts are stored, and the font name, for &quot;font&quot;.<br />
<br />
I am planning on using this with Group Policy to automate font installation.<br />
<br />
The problem is: after it has run once, when the user logs in again, it will ask them if they want to replace to font that is already installed.<br />
<br />
I am NOT a vbs expert (unfortunately) so what I need is:<br />
<br />
How can I add some code so that it checks if the font already exists before it installs it?<br />
<br />
Thanks
</div>
</div>


I found the following vbs script that will install fonts into the fonts folder of a Windows 7 workstation:

Const FONTS = &H14& 

Set objShell = CreateObject("Shell.Application") 
Set objFolder = objShell.Namespace(FONTS)
objFolder.CopyHere "location\font.ttf"

The only thing you have to do is replace "location", with where the fonts are stored, and the font name, for "font".

I am planning on using this with Group Policy to automate font installation.

The problem is: after it has run once, when the user logs in again, it will ask them if they want to replace to font that is already installed.

I am NOT a vbs expert (unfortunately) so what I need is:

How can I add some code so that it checks if the font already exists before it installs it?

Thanks

Virtual Basic Question...

Windows 7 is an operating system from Microsoft. Features include multi-touch support, a redesigned Windows Shell with a new taskbar, referred to as the Superbar, a home networking system called HomeGroup, and performance improvements.

Windows 7

Visual Basic is Microsoft’s event-driven programming language and integrated development environment (IDE) for its Component Object Model (COM) programming model. It is relatively easy to learn and use because of its graphical development features and BASIC heritage. It has been replaced with VB.NET, and is very similar to VBA (Visual Basic for Applications), the programming language for the Microsoft Office product line.

Visual Basic Classic

Active Directory (AD) is a Microsoft brand for identity-related capabilities. In the on-premises world, Windows Server AD provides a set of identity capabilities and services, and is hugely popular (88% of Fortune 1000 and 95% of enterprises use AD). This topic includes all things Active Directory including DNS, Group Policy, DFS, troubleshooting, ADFS, and all other topics under the Microsoft AD and identity umbrella.