VB script på en hjemmeside

jeg har et Visuel Basic script som jeg gerne vil køre fra min server...

Declare Function rh02_open_unit Lib \"rh0232.DLL\" (ByVal Port As Integer) As Boolean
Declare Sub rh02_close_unit Lib \"rh0232.DLL\" (ByVal Port As Integer)
Declare Function rh02_get_value Lib \"rh0232.DLL\" (value As Long, ByVal Port As Integer, ByVal channel As Integer, ByVal filtered As Boolean) As Boolean
Declare Function rh02_get_version Lib \"rh0232.DLL\" (value As Integer, ByVal Port As Integer) As Boolean
Declare Function rh02_get_cycle Lib \"rh0232.DLL\" (cycle As Long, ByVal Port As Integer) As Boolean


\' erklær variabler
Dim varme As String
Dim Luft As String
Dim Port As Integer
Dim version As Integer
Dim value As Long
Dim ok As Boolean
Dim ticks As Long

Sub GetData()
    Port = 1
   
    ok = rh02_open_unit(Port)
   
    If ok Then
   
    Else
        Exit Sub
    End If
   
 
    \'temperatur
    ok = rh02_get_value(value, Port, 1, False)
    If ok Then
        varme = value / 100
    End If
   
    \'reset ok
    ok = False
       
    \'luftfugtighed
    ok = rh02_get_value(value, Port, 2, False)
    If ok Then
        Luft = value / 100
    End If
   
    \'luk driveren
    Call rh02_close_unit(Port)
   
End Sub

hvordan skal man gøre for at få det til at virke ?

hvis det hjælper har jeg administrator rettigheder på serveren...

og det må gerne gå stærkt

og jeg kan godt ofre nogle flere point hvis det er nødvendigt