vbscript 使用VBS在Windows上安装新字体

Posted

tags:

篇首语:本文由小常识网(cha138.com)小编为大家整理,主要介绍了vbscript 使用VBS在Windows上安装新字体相关的知识,希望对你有一定的参考价值。


' http://blogs.technet.com/b/rspitz/archive/2010/09/25/how-to-install-a-font-from-the-command-line-on-windows-7.aspx

strPathFonts = "\\share\fonts"

set Shell = WScript.CreateObject("WScript.Shell")
strWindir = Shell.ExpandEnvironmentStrings("%windir%")


set fso = CreateObject("Scripting.FileSystemObject")
set f = fso.GetFolder(strPathFonts)


Set fc = f.Files
For Each fl in fc
	 'wscript.echo strWindir  + "\fonts\" +fl.name
	 
	if (fso.FileExists("C:\Windows\Fonts\" +fl.name)) then
		 'wscript.echo "existiert bereits"
	else
		'wscript.echo "install ..."
		installFont strPathFonts, fl.name
	end if
Next


function installFont(path, file)
	set objShell = CreateObject("Shell.Application")
	set objFolder = objShell.Namespace(path)
	set objFolderItem = objFolder.ParseName(file)
	objFolderItem.InvokeVerb("Install")	
end function

以上是关于vbscript 使用VBS在Windows上安装新字体的主要内容,如果未能解决你的问题,请参考以下文章

我可以将参数传递给 VBScript(使用 cscript 启动的 vbs 文件)吗?

将 Staad 与 VBS 一起使用(将 VBA 文档转换为 VBscript)

vbscript 睡眠 - 在VBS中暂停

使用VBScript控制Microsoft单词选项

在批处理中调用VBScript(支持获取返回值)

vbscript 文件夹中的VBS查找文件。 (执行:cscript lookupXML.vbs)