Copy fonts using script for unattended vista install

I had to create a vbscript to copy fonts from a network share for an unattended vista (or windows 7) install


Const FONTS = &H14&
Set objShell = CreateObject("shell.Application")
Set objFolder = objShell.Namespace(FONTS)
strdir = "\\srv001\REMINST\Drivers\Finalize\Fonts"

enumdir(strdir)

Sub EnumDir(strdir)
                dim FSO,f,fc
                set FSO=Wscript.CreateObject("scripting.FileSystemObject")
                If fso.FolderExists(strDir) then 
                                set f=fso.GetFolder(strDir)
                                set fc=f.files
                                if fc.Count > 2 then 
                                                for each fl in fc
                                                                objFolder.CopyHere strdir & "\" & fl.name 
                                                next
                                End If
                else
                                wscript.echo "Folder " & strDir & " NOT found"
                end if
End Sub

Comments

olbacafarelli said…
The Stilletto Titanium Hammer - TITNIC ARTS
The stilletto steel plate plates are buy metal online suitable titanium tubing for heavy machinery titanium dive watch and titanium rimless glasses are perfect for all. You titanium ring can open and
14:23
Post a Comment

Popular posts from this blog

Exchange Server Error -1018: How Microsoft IT Recovers Damaged Exchange Databases

Image
I found this paper on the showcase site from microsoft I hope it is of help to you. It sure helped me!     Technical White Paper Published: August 1, 2005 Executive Summary Error –1018 (JET_errReadVerifyFailure) is a familiar—and dreaded—error in Microsoft® Exchange Server. It indicates that an Exchange database file has been damaged by a failure or problem in the underlying file system or hardware. This paper explains the conditions that result in error –1018. It also covers the detection mechanisms that Exchange uses to discover and recover from damage to its database files. The Microsoft Information Technology group (Microsoft IT) runs one of the most extensive Exchange Server organizations in the world. Exchange administrators at Microsoft have investigated and recovered from dozens of –1018 error problems. This paper shows you how Microsoft IT mo...
Read more

[Solved] The Group Policy client-side extension Internet Explorer Zonemapping failed to execute

Image
I had the error below in my application eventlog.     Event Type:    Error Event Source:    Userenv Event Category:    None Event ID:    1085 Date:        30-09-2008 Time:        15:20:30 User:        NT AUTHORITY\SYSTEM Computer:    TBG-TS01 Description: The Group Policy client-side extension Internet Explorer Zonemapping failed to execute. Please look for any errors reported earlier by that extension. For more information, see Help and Support Center at http://go.microsoft.com/fwlink/events.asp .   My problem was with my site to zone assignment list I used a wildcard like this: “ *microsoft.com ” but what you need to do is this “ *.microsoft.com ” So it is safe to say that the documentation from microsoft needs some sort of an update stating that y...
Read more

How to Uninstall WSUS 3.0 after you have (removed/fucked up) the database manually

Well if somehow your wsus 3.0 database becomes corrupt. Due to an Database administrator removing the instance for example. I tried to remove through the Add/Remove programs dialog but all I got back was. Event Type: Information Event Source: MsiInstaller Event Category: None Event ID: 11725 Date: 25-09-2007 Time: 11:17:18 User: Domain\Administrator Computer: WSUSSERVER Description: Product: Microsoft Windows Server Update Services 3.0 -- Removal failed. For more information, see Help and Support Center at http://go.microsoft.com/fwlink/events.asp. Data: 0000: 7b 32 43 30 44 37 45 33 {2C0D7E3 0008: 35 2d 45 45 36 45 2d 34 5-EE6E-4 0010: 44 43 37 2d 42 41 31 33 DC7-BA13 0018: 2d 32 43 36 38 41 45 44 -2C68AED 0020: 45 42 35 39 44 7d EB59D} And voila the program was removed from the ADD/Remove Programs dialog. So I had nothing. Inspecting the Wsus installation log at %temp%\wsus*.log Reveals the following: MSI (s) (8C:74) [11:17:38:402]: Product: Microsoft Windows Serve...
Read more