'==================== ' ' VBScript Source File -- Created with SAPIEN Technologies PrimalSCRIPT(TM) ' ' Author: Characters.vbs ' ' AUTHOR: Ian Morrish ' ' ~~Comment~~. Displays the decimal number, ASCII character and character ' of desired Windows font in IE (allows for copy and paste). ' '==================== Dim IE Const Font = "Wingdings" call CreateIE() For I = 33 to 254 ie.Document.Write "" & I & " - " & chr(I) & " - " & "" ie.Document.Write "" & chr(I) & "
" Next Sub CreateIE() On Error Resume Next Set IE = CreateObject("InternetExplorer.Application") ie.height=370 ie.width=500 ie.menubar=0 ie.toolbar=0 ie.navigate "About:Blank" ie.visible=1 Do while ie.Busy ' wait for page to load Loop ie.Document.Write "
" End Sub