Komponenter installeret på server...

Skriver en email til deres support og spørger hvilke komponenter de har installeret! (Ikk så svært) *G*

Her er en component checker:

-----------------

<TITLE>componentchecker.asp</TITLE>
<body bgcolor="#FFFFFF">
<%
dim successSTR, FailSTR,checkSTR
whichfile=server.mappath("component.ini")
Set fs = CreateObject("Scripting.FileSystemObject")
Set thisfile = fs.OpenTextFile(whichfile, 1, False)

counter=0

do  UNTIL thisfile.AtEndOfStream
  counter=counter+1
  thisline=thisfile.readline
      attempt=thisline
  If mid(thisline,1,1)="[" then
      ' ignore
      CheckSTR=CheckSTR & thisline & " "
      category=thisline
      thisline=thisfile.readline
      attempt=thisline
  end if
  on error resume next
  set tempobject=server.createobject(attempt)
  If err.number=0 then
      successSTR = successSTR & category & " <b>" & attempt & "</b> was created successfully<br>"
  else
      FailSTR=FailSTR & category & " <b>" & attempt & "</b> failed. Error #" & err.number & "<br>"
  end if
  set tempobject=nothing
loop
thisfile.Close
set thisfile=nothing
set fs=nothing

response.write "Checked: " & checkSTR & "<hr>"
response.write successSTR & "<hr>"
response.write failSTR
%>

--------------

og her er filen component.ini, som ska ligge i samme dir:

-----------------

[standard]
mswc.browsertype
mswc.nextlink
scripting.dictionary
scripting.filesystemobject
[ado]
adodb.recordset
adodb.connection
adodb.command
[cdo]
CDONTS.NewMail
[msfreebies]
iissample.asp2htm
iissample.contentrotator
iissample.registry
iissample.summaryinfos
iissample.tracer
mswc.adrotator
mswc.counters
mswc.myinfo
MSWC.PageCounter
MSWC.PermissionChecker
mswc.tools
msc.loadbalance
[serverobjects]
ASPChart.Chart
AspConv.Expert
AspDNS.Lookup
AspFile.FileObj
AspHTTP.Conn
AspImage.Image
AspInet.FTP
AspMX.Lookup
AspNNTP.Conn
AspPager.Pager
POP3svg.Mailer
SMTPsvg.Mailer
[softartisans]
SoftArtisans.FileUp

------------------

Du kan tilføje flere componenter efter behag.

Genialt ;=)

Jeg prøver :)

Ricardo > Funker ikke da component.ini ikke ligger på serveren.

Codeman > Skal jeg ringe til mig selv og spørge hvilke komponenter der ligger på min server ???
- Hvis det var så simpelt var det jo intet problem. Problemet er at jeg roder lidt med at lave mine egne komponenter men ikke rigtigt kan få dem implementeret, så jeg har brug for at vide om de er registreret eller om det evt. er der fejlen ligger.

> Funker ikke da component.ini ikke ligger på serveren

Øøøh ? Hvad står der?

"og her er filen component.ini, som ska ligge i samme dir:"

DVS: i samme bibliotek på samme server. Det er netop derfor jeg sendte component.ini med.

Du skal bare UL den samme sted. Derefter virker den...med garanti!

Man regger ellers komponenter vha. regsvr32.exe - det er forholdsvis enkelt. Men husk at deregge hvis du laver en ny udgave.

Så du prøver at oprette hvert component et for et og 'trapper' fejlene  en for en...?!

Og hvis komponentet ikke matcher nogen af dem i den fil du har lavet ???

>> Så du prøver at oprette hvert component et for et og 'trapper' fejlene  en for en...?!

Hvordan havde du ellers tænkt dig at checke for installerede componenter? Hvis du kan finde en bedre metode, vil jeg meget gerne vide det.

>> Og hvis komponentet ikke matcher nogen af dem i den fil du har lavet ???

Du kan sagtens tilføje dine egne komponenter til component.ini.

For eksempel:

[mycomobjects]
mycomobject.myfunction1
mycomobject.myfunction2
mycomobject.myfunction3

Det forudsætter at du ved hvordan man kalder objektet. Så vidt jeg ved er der ikke nogen metode til at finde ud af hvilke kald en DLL tager imod.

Jeg synes du burde prøve.

Tjaaa... jeg fik ikke meget ud af dette spørgsmål, men ok, det er et ganske smart script du har lavet ricardo - og jeg kan nok bruge det i andre sammenhænge - derfor de 30 point.