'--------------
'Start of UAC workaround code
If WScript.Arguments.length =0 Then
Set objShell = CreateObject("Shell.Application")

objShell.ShellExecute "wscript.exe", Chr(34) & _
WScript.ScriptFullName & Chr(34) & " uac", "", "runas", 1
Else

'--------------
'Start of code

Set objShell = WScript.CreateObject("WScript.Shell")
objShell.RegWrite "HKLM\Software\Microsoft\Shared Tools\Text Converters\Import\WordPerfect6x\Options\NoWPFonts", "No", "REG_SZ"
objShell.RegDelete "HKLM\Software\Microsoft\Shared Tools\Text Converters\Import\WordPerfect6x\Options\NoWPFonts"
objShell.RegWrite "HKLM\Software\Microsoft\Shared Tools\Text Converters\Import\WrdPrfctDos\Options\NoWPFonts", "No", "REG_SZ"
objShell.RegDelete "HKLM\Software\Microsoft\Shared Tools\Text Converters\Import\WrdPrfctDos\Options\NoWPFonts"
wScript.echo "Word will use WP fonts, if present, when importing WPDOS files."

'--------------
'End of code

'--------------
'End of UAC workaround code
End If