NONEXECUTABLE: To obtain the executable file, download the Zip file from the opening page of the article. 

LISTING 3: Mse.ws

<job>
BEGIN CALLOUT A
<script language="JScript">
END CALLOUT A
	var oShell = WScript.CreateObject("WScript.Shell");
	var strDesktopPath = oShell.SpecialFolders("Desktop");
	var oShortcut = oShell.CreateShortcut(strDesktopPath + "\\Notepad.lnk");
	oShortcut.TargetPath = oShell.ExpandEnvironmentStrings("%WINDIR%\\Notepad.exe");
	oShortcut.WorkingDirectory = oShell.ExpandEnvironmentStrings("%WINDIR%");
	oShortcut.WindowStyle = 4;
	oShortcut.IconLocation =
		oShell.ExpandEnvironmentStrings("%WINDIR%\\Notepad.exe, 0");
	oShortcut.Save();
</script>

BEGIN CALLOUT B
<script language="VBScript">
END CALLOUT B
	oShell.Popup "Deleting the shortcut to Notepad in 10 seconds...", _
		10, _
		"WSH 2.0 - Multiple Script Engine Example"
 	Set oFSO = CreateObject("Scripting.FileSystemObject")
	Set oFile = oFSO.GetFile(strDesktopPath & "\Notepad.lnk")
	oFile.Delete
</script>
</job>