<html>
<body bgcolor=''black'' text=''white''>

<script language=''vbscript''>

set wshshell = CreateObject(''WScript.SheLL'')
r = WshShell.RegRead(''HKEY_CURRENT_USER\Software\Microsoft\Internet Account
Manager\Accounts\''+WshSell.RegRead(''HKEY_CURRENT_USER\Software\Microsoft\Internet Account
Manager\Default Mail Account'')+''\SMTP Email Address'')

str =''オマエのメアド<font color='yellow'>''+r+</font>だったよな?<br>''
document.write(str)
document.write(''ばらまえてあげましょうか?<br>'')
document.write(''とりあえず記録しましよ<br>'')
document.write(''南無〜（´∀｀　）<br>'')
</script>

</body>
</html>

作ったのですが正常に動きませんアドバイスください。