Onderwerp: IIS identifier

Hoi ik gebruik het volgende script om het hoogste nummer terug te krijgen om vervolgens de volgende met eentje hoger aan te maken.

----
Set Parent = GetObject("IIS://" & ServerName & "/W3SVC")
For Each Child In Parent
If IsNumeric(Child.Name) Then
If Index < Child.Name Then
Index = Child.Name
End If
End If
Next
Index = Index + 1
----

Op 3 servers werkt dit prima.
Echter op de vierde denk hij dat 9 de hoogste is, terwijl ook 10, 11 en 12 erop staan.

Zie ik iets over het hoofd?

CInt(Child.Name)

Jouw script houdt geen rekening met de mogelijkheid dat er gaten in de reeks zitten. Als 1 t/m 8 bestaan, 9 niet en 10 t/m 12 weer wel, dan komt hij dus met 9 en niet met 13.

runtime error: Overflow: 'CInt'

krijg ik dan...


edit: @alex, enig idee hoe ik dit kan aanpassen?

Doe je CLng

Ook weinig succes....

runtime error: Type mismatch: 'CLng'

Is dit misschien een optie:

---
Random nummer genereren
checken of het al bestaat als IIS identifier
Zo ja, nogmaals proberen.
Zo nee, dit nummer gebruiken
---

Is er iemand die weet hoe je zoiets in elkaar flanst?

Dim iVar : iVar = Empty
While IsEmpty(iVar)
Randomize
iVar = CInt(1000 * Rnd)
If MyExistsInIISFunction(iVar) Then iVar = Empty
Wend
'weee

Alleen waarom laat je de id niet autogenereren door IIS?

Hoe je het oplost is een beetje afhankelijk van wat je wilt bereiken

Waarom wil je weten wat het eerstvolgende vrije ID is? IIS6 nummert ze sowieso al niet opvolgend door, da's een of ander lang getal met de datum erin enzo.

Oorspronkelijk geplaatst door alexbik

Jouw script houdt geen rekening met de mogelijkheid dat er gaten in de reeks zitten. Als 1 t/m 8 bestaan, 9 niet en 10 t/m 12 weer wel, dan komt hij dus met 9 en niet met 13.

Dat doet het scriptje niet, kijk maar eens goed

Probeer het eens als volgt:

Code:

Set Parent = GetObject("IIS://LOCALHOST/W3SVC")
Index = 0

For Each Child In Parent
  If IsNumeric(Child.Name) Then
    If Index < Int(Child.Name) Then Index = Int(Child.Name)
  End If
Next

Index = Index + 1

Probeer overigens generieke namen voor variabelen te vermijden