Function LoadLibrary(sScriptFile)
    Set oFSO=CreateObject("Scripting.FileSystemObject")
    If oFSO.FileExists(sScriptFile) Then
        Set sFile=oFso.OpenTextFile(sScriptfile)
        sInput=sFile.ReadAll
        sFile.Close
        ExecuteGlobal sInput
    Else
        WScript.Echo "Failed to find " & sScriptFile
    End If
End Function