Köra VBScript

Hur kan jag göra om jag vill köra detta scriptet utan att ha en input och ha en vanlig länk istället eller få den att köras av sig själv utan att man ska klicka på något?

<HTML>
   <HEAD>
   <SCRIPT LANGUAGE=VBScript>
   Dim objWord
   Sub Btn1_onclick()
   call OpenDoc("file:///R:/Teknisk%20dokumentation%20930.xxx/test.doc")
   End Sub

   Sub OpenDoc(strLocation)

   Set objWord = CreateObject("Word.Application")
   objWord.Visible = true
   objWord.Documents.Open strLocation
   End Sub

   </SCRIPT>
   <TITLE>Launch Word</Title>
   </HEAD>
   <BODY>
   <INPUT TYPE=BUTTON NAME=Btn1 VALUE="Open Word Doc">
   </BODY>
   </HTML>