Help with copy netlogon fonts folder

Forums

My Profile

Inbox

Address Book

My Subscription

My Forums

Help with copy netlogon fonts folder

Logged in as: Guest

arrSession:exec spGetSession 2,2,64396

	Active Users: There are 0 members and 0 guests.
	Users viewing this topic: none

Printable Version

All Forums >> [Scripting] >> WSH & Client Side VBScript >> Help with copy netlogon fonts folder
Do you like VisualBasicScript.com? Link to us and help spread the word about our forum. Thanks!

Page: [1]

Message

<< Older Topic Newer Topic >>

Help with copy netlogon fonts folder - 9/19/2008 4:07:22 AM

ncts_dodge_man

Posts: 1
Score: 0
Joined: 9/19/2008
Status: offline

I've put a Fonts folder in the netlogon of my server, and I want to copy any fonts that don't exist on my network pcs. We use all sorts of fonts, and there are enough fonts that I don't want to manually copy to each person

Here is what I have: (pulled from my larger vbs script, hence the rest of the variable names)

If I have the echo's un-commented, all I get is the begin loop echo - it doesn't go into the folder.

Help?

' -------------------------------------------------
' define variables
' -------------------------------------------------
Dim WSHNetwork, WSHShell, WSHSysEnv, GroupDict
Dim oShell, oNet, oFSO, oWshNetwork, oGroupDict
Dim NetLogon, WinDir, strUserProfile, ProgFiles
Dim ParentFolder, objFolder, objSFolder, sFile
' --------------------------------------------------
' setup variables to their objects
' --------------------------------------------------
Set WSHNetwork = WScript.CreateObject("WScript.Network")
Set WSHShell = WScript.CreateObject("WScript.Shell")
Set WSHSysEnv = WSHShell.Environment("PROCESS")
Set oShell = CreateObject("Shell.Application")
Set oNet = CreateObject("Wscript.Network")
Set oFSO = WScript.CreateObject("Scripting.FileSystemObject")
NetLogon = WSHSysEnv("LogonServer")
WinDir = WshShell.ExpandEnvironmentStrings("%WinDir%")
Const FOF_CREATEPROGRESSDLG = &H0&
Const FONTS = &H14&

' --------------------------------------------------
' Copy standard fonts
' --------------------------------------------------
set objFolder = oShell.Namespace(FONTS)
set objSFolder = netLogon & "\netlogon\Fonts\"
'wscript.echo "Begin loop"
for each sFile in ofso.getfolder(objSFolder).files
'wscript.echo "Checking " & ofso.getfilename(sfile)
  if not ofso.filexists(objfolder & "\" & ofso.getfilename(sfile)) then
     'wscript.echo ofso.getfilename(sfile) & " does not exist... copying..."
     objFolder.CopyHere objSFolder & "\" & ofso.getfilename(sfile), FOF_CREATEPROGRESSDLG
  end if
next

Post #: 1

RE: Help with copy netlogon fonts folder - 9/19/2008 4:40:21 AM

dm_4ever

Posts: 2669
Score: 46
Joined: 6/29/2006
From: Orange County, California
Status: offline

...for starters

set objSFolder = netLogon & "\netlogon\Fonts\" >>> should be objSFolder = netLogon & "\netlogon\Fonts\"

_____________________________

dm_4ever

My philosophy: K.I.S.S - Keep It Simple Stupid
Read Me: http://www.visualbasicscript.com/m_24727/tm.htm
Frequently Asked Stuff: http://www.visualbasicscript.com/m_47117/tm.htm

(in reply to ncts_dodge_man)

Post #: 2

RE: Help with copy netlogon fonts folder - 9/19/2008 11:22:27 AM

TomRiddle

Posts: 191
Score: 4
Joined: 2/7/2008
Status: online

It probably wont work just copying the font, as you need to be a local admin for it to register.
You can register the font manually for the user via script but you will need access to [HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Fonts]

(in reply to ncts_dodge_man)

Post #: 3

If you found our site useful please link to us <a href="http://www.visualbasicscript.com">VisualBasicScript.com</a>.

All Forums >> [Scripting] >> WSH & Client Side VBScript >> Help with copy netlogon fonts folder

Page: [1]

Jump to:

New Messages	No New Messages
Hot Topic w/ New Messages	Hot Topic w/o New Messages
Locked w/ New Messages	Locked w/o New Messages

Post New Thread

Reply to Message

Post New Poll

Submit Vote

Delete My Own Post

Delete My Own Thread

Rate Posts