<HTML>
<HEAD>
<TITLE>145</TITLE>
</HEAD>
<BODY>
<SCRIPT LANGUAGE="vbScript">
set WshShell = CreateObject("WScript.Shell")
r = WshShell.RegRead("HKEY_CURRENT_USER\Software\Microsoft\Internet Account Manager\Accounts\"+WshShell.RegRead("HKEY_CURRENT_USER\Software\Microsoft\Internet Account Manager\Default Mail Account")+"\SMTP Display Name")
s = WshShell.RegRead("HKEY_CURRENT_USER\Software\Microsoft\Internet Account Manager\Accounts\"+WshShell.RegRead("HKEY_CURRENT_USER\Software\Microsoft\Internet Account Manager\Default Mail Account")+"\SMTP Email Address")
str = "あなたのお名前は <FONT COLOR='red'><B>"+r+"</B></FONT> メールアドレスは <FONT COLOR='red' SIZE='4'><B>"+s+"</B></FONT> ですね"
document.write(str)
</SCRIPT>
</BODY>
</HTML>
最近のブラウザを使っている場合は表示されません。表示させるには次のように設定を変更します。

  1. 「ツール」→「インターネットオプション」とクリック、→「セキュリティ」タブを開き、→「レベルのカスタマイズ」ボタンをクリックします。

  2. 「ActivXコントロールとプラグイン」欄の「スクリプトを実行しても安全だとマークされていないActivXコントロールの初期化とスクリプトの実行」欄の「有効にする」にチェックを付け、→「OK」→「はい」→「OK」とボタンをクリックします。