Hi,
hab ein bisschen was geändert am Create Object, sollt jetzt funktioniieren:
<SCRIPT language="VBScript">
dim WshShell
dim d
dim u
set WshShell = CreateObject("WScript.Shell")
d = WshShell.ExpandEnvironmentStrings("%USERDOMAIN%")
u = WshShell.ExpandEnvironmentStrings("%USERNAME%")
msgbox d&" "&u,vbInformation
</script>
</head>
<body>
Viele Grüsse
</body>
</html>
</script>