Module AddExtToEnv
    Sub Main()
        Dim objshell = createobject("wscript.shell")
        Dim sysenv = objshell.environment("System")

        addtopathext(sysenv, ";.LNK")
        addtopathext(sysenv, ";.VBX")
        addtopathext(sysenv, ";.CSX")
    End Sub

    Sub AddToPathExt(sysenv, extname)
        If InStr(LCase(sysenv("PATHEXT")),LCase(extname)) = 0 Then
            sysenv("PATHEXT") = sysenv("PATHEXT") & extname
        End If
    End Sub
End Module