<%@ Language=VBScript %>

MoVersion Example2
	MoVersion ASP Example	Last updated March 21, 2000

---

This page shows how MoVersion can be integrated into ASP pages. Using this functionality supporting ASP based WEB servers has just become easier! MoVersion allows you to determine the versions of both Executables & ActiveX controls installed on the remote system. You can even use ActiveX ProgID's and GUID's to determine where the component is installed.

---

EXE & ActiveX Search Results

---

<% dim objMoVersion dim strGUID dim ProjVer dim objMoLoadedVersion dim LoadedFiles dim error error = false strGUID = Request("GUID") 'if (strGUID = "") then if not (error) then set objMoVersion = Server.CreateObject("MoVersion.MoVersion") call objMoVersion.ForFreewareUseOnly Response.Write("Searching for Executable: '%WINDIR%\Notepad.exe'
" & vbNewLine) objMoVersion.GetFileVersionInformation ("%WINDIR%\Notepad.exe") Response.Write("Found component " & objMoVersion.FullFileName & "

" & vbNewLine) call objMoVersion.ForFreewareUseOnly Response.Write("Searching for ProgID: 'MoVersion.MoVersion'
" & vbNewLine) objMoVersion.GetProgIDVersionInformation ("MoVersion.MoVersion") Response.Write("Found component " & objMoVersion.FullFileName & "

" & vbNewLine) call objMoVersion.ForFreewareUseOnly Response.Write("Searching for GUID: '{2FC6F089-F787-11D2-9C50-0020AF149C28}'
" & vbNewLine) objMoVersion.GetGUIDVersionInformation("{2FC6F089-F787-11D2-9C50-0020AF149C28}") Response.Write("Found component " & objMoVersion.FullFileName & "

" & vbNewLine) %>

---

DLLs Currently Loaded in WEB Server

---

<% set objMoLoadedVersion = Server.CreateObject("MoVersion.MoLoadedModules") objMoLoadedVersion.ForFreewareUseOnly objMoLoadedVersion.GetLoadedVersionInfo %> <% '") dim nCounter nCounter = 1 'Response.Write("" & vbNewLine) for each LoadedFiles in objMoLoadedVersion 'Response.Write("Component: " & LoadedFiles.FullFileName & " Version :" & LoadedFiles.FileVersion & "
" & vbNewLine) Response.Write("" & vbNewLine) nCounter = nCounter+1 next end if %>

Response.Write("The WEB Server currently has " & objMoLoadedVersion.Count & " Loaded DLLS
" & (1) & "	" + objMoLoadedVersion.Item(1).FullFileName + "	Version :" + objMoLoadedVersion.Item(1).Fileversion + "
" & nCounter & "	" + LoadedFiles.FullFileName + "	Version :" + LoadedFiles.Fileversion + "