Const HKEY_LOCAL_MACHINE = &H80000002
Const REG_SZ = 1
strComputer = "."
Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv")
strKeyPath = "SOFTWARE\Microsoft\Windows NT\CurrentVersion\Console\TrueTypeFont"
strFontName = "Anka/Coder Narrow"
strValueName="0"
Action=2
For i=1 To 1000
oReg.GetStringValue HKEY_LOCAL_MACHINE, strKeyPath, strValueName, strValue
'wscript.echo strValueName & "=" & strValue & " " & typename(strValue)
if IsNull(strValue) Or strValue = "" then
Action=0
exit for
elseif strValue = strFontName then
Action=1
exit for
end if
strValueName = strValueName & "0"
Next
Select Case Action
Case 0
oReg.SetStringValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,strFontName
WScript.echo "'" & strFontName & "' not found." & Chr(13) & " New ValueName='" & strValueName & "'"
Case 1
WScript.echo "'" & strFontName & "' exist." & Chr(13) & "ValueName='" & strValueName & "'"
Case 2
WScript.echo "Unspecified error"
End Select
Set oReg = Nothing
WScript.Quit(Action)
|
