É muito comum utilizarmos includes no ASP. Quando vamos utilizar o vbscript para desenvolvermos scripts que executam no shell, por exemplo, para administrarmos alguma recurso do sistema operacional através do wmi, não temos o <!–include –> para reutilização de código.

Para reproduzirmos esse mesmo efeito nos scripts do shell, podemos utilizar o comando ExecuteGlobal que irá processar o conteúdo do arquivo no mesmo contexto do script atual.

Segue o código:

Sub Include(sFilePath)Â
        On Error Resume NextÂ
        Dim objFSO, objTextFile, sContentFile

        Set objFSO = CreateObject(“Scripting.FileSystemObject”)
        If objFSO.FileExists(sFilePath) Then
                Set objTextFile = objFSO.OpenTextFile(sFilePath)
                sContentFile = objTextFile.ReadAllÂ
                objTextFile.CloseÂ
                ExecuteGlobal sContentFile
        End If

        Set objFSO = Nothing
        Set objTextFile = Nothing
End Sub

Pronto !!! deve funcionar ….. (hehe)

 []‘s