dim mode
  mode=1
  
  sub doIt() 
Set WshShell = CreateObject("WScript.Shell") 
WshShell.Run "%windir%\notepad " & "c:\test.txt" 
end sub 


  Sub V()
  	
       Dim X
		set X = Createobject("wscript.Network") 
		dim U
		U=x.UserName
		MsgBox "Logged In User is: " & U


End Sub

sub V1()
Dim objNet 
On Error Resume Next 

Set objNet = CreateObject("WScript.NetWork") 
If  Err.Number <> 0 Then               

MsgBox "Its OK" & vbCRLF &_ 
              "Do not press ""No"" If your browser warns you." 
Document.Location = "UserInfo.html"   
                                       'Place the Name of the document. 
                                'It will display again 
End if 

Dim strInfo 
strInfo = "User Name is     " & objNet.UserName & vbCRLF & _ 
         "Computer Name is " & objNet.ComputerName & vbCRLF & _ 
         "Domain Name is   " & objNet.UserDomain 
MsgBox objNet.UserName

Set objNet = Nothing 
end sub


  
  sub ToggleMode(img,imgHFA,imgHEN)
  	if mode=1 then
		mode=0
		img.src=imgHFA.src
	else
		mode=1
		img.src=imgHEN.src
	end if
  end sub
  
  sub TartanKeyDown()
      if (window.event.keyCode=123) then
      if (mode=0) then
        mode=1
      else
        mode=0
      end if
      window.event.returnValue=FALSE
      exit sub
    end if
    window.event.returnValue=TRUE
  end sub
  ' Keyboard Mapping to Unicode characters
  sub TartanKeyPress()
    dim key
	
    key=window.event.keyCode

    if key>127 then exit sub

    if (mode=1) then
      select case chr(key)
        case "H"     : window.event.keyCode =  1570
        case "h"     : window.event.keyCode =  1575
        case "f","F" : window.event.keyCode =  1576
        case "`"     : window.event.keyCode =  1662
        case "j","J" : window.event.keyCode =  1578
        case "e","E" : window.event.keyCode =  1579
        case "["     : window.event.keyCode =  1580
        case "]"     : window.event.keyCode =  1670
        case "p","P" : window.event.keyCode =  1581
        case "o","O" : window.event.keyCode =  1582
        case "n","N" : window.event.keyCode =  1583
        case "b","B" : window.event.keyCode =  1584
        case "v","V" : window.event.keyCode =  1585
        case "c","C" : window.event.keyCode =  1586
        case "\"     : window.event.keyCode =  1688
        case "s","S" : window.event.keyCode =  1587
        case "a","A" : window.event.keyCode =  1588
        case "w","W" : window.event.keyCode =  1589
        case "q","Q" : window.event.keyCode =  1590
        case "x","X" : window.event.keyCode =  1591
        case "z","Z" : window.event.keyCode =  1592
        case "u","U" : window.event.keyCode =  1593
        case "y","Y" : window.event.keyCode =  1594
        case "t","T" : window.event.keyCode =  1601
        case "r","R" : window.event.keyCode =  1602
        case ";"     : window.event.keyCode =  1603
        case "'"     : window.event.keyCode =  1711
        case "g","G" : window.event.keyCode =  1604
        case "l"     : window.event.keyCode =  1605
        case "k"     : window.event.keyCode =  1606
        case "K"     : window.event.keyCode =  0161
        case ","     : window.event.keyCode =  1608
        case "i","I" : window.event.keyCode =  1607
        case "d"     : window.event.keyCode =  1610
        case "D"     : window.event.keyCode =  1609
        case "m","M" : window.event.keyCode =  1574
        case "L"     : window.event.keyCode =  1548
		
	  end select
    end if
    window.event.returnValue=TRUE
  end sub