Ik heb de volgende code:
On error resume next
Class clsIIScontrol
Private XML
Private Sub Class_Initialize()
err.clear
End Sub
Private Sub Class_terminate()
err.clear
End Sub
Public Property Get virtuals()
call getVirtuals()
virtuals = XML
End Property
Function getVirtuals()
Dim IIsObj, Teller, i, Name
Teller = 0
XML = "<?xml version=""1.0"" ?>"
XML = XML & "<SERVERS>" & vbNewLine
For teller = 0 to 200
Set IIsObj = GetObject("IIS://LocalHost/W3SVC/"&teller)
If (err = 0) then
XML = XML & "<VIRTUAL ID="""&IISObj.Name&""">" & vbNewline
XML = XML & "<NAME>" & stripSpace(IISObj.ServerComment) & "</NAME>" & vbNewline
XML = XML & "</VIRTUAL>" & vbNewline
End if
err.clear
Set IIsObj = nothing
Next
XML = XML & "</SERVERS>"
End Function
Private Function stripSpace(strText)
If instr(strText, " ") then
stripSpace = replace(strText, "&", "")
Else
stripSpace = strText
End if
End function
End class
----------------------------------------------------
Sowieso moet ik een error generen om te testen of het een website is die binnen IIS draait. Als ik deze code gewoon draai dan gaat alles goed(ik bedoel gewoon zonder functies of wat dan ook), maar als ik hem zo in een class gebruik, of ik gebruik functie dan verlaat ie de functie als ik een fout genereer. Hoe kan je dit voorkomen, en kan je het voorkomen?
On error resume next
Class clsIIScontrol
Private XML
Private Sub Class_Initialize()
err.clear
End Sub
Private Sub Class_terminate()
err.clear
End Sub
Public Property Get virtuals()
call getVirtuals()
virtuals = XML
End Property
Function getVirtuals()
Dim IIsObj, Teller, i, Name
Teller = 0
XML = "<?xml version=""1.0"" ?>"
XML = XML & "<SERVERS>" & vbNewLine
For teller = 0 to 200
Set IIsObj = GetObject("IIS://LocalHost/W3SVC/"&teller)
If (err = 0) then
XML = XML & "<VIRTUAL ID="""&IISObj.Name&""">" & vbNewline
XML = XML & "<NAME>" & stripSpace(IISObj.ServerComment) & "</NAME>" & vbNewline
XML = XML & "</VIRTUAL>" & vbNewline
End if
err.clear
Set IIsObj = nothing
Next
XML = XML & "</SERVERS>"
End Function
Private Function stripSpace(strText)
If instr(strText, " ") then
stripSpace = replace(strText, "&", "")
Else
stripSpace = strText
End if
End function
End class
----------------------------------------------------
Sowieso moet ik een error generen om te testen of het een website is die binnen IIS draait. Als ik deze code gewoon draai dan gaat alles goed(ik bedoel gewoon zonder functies of wat dan ook), maar als ik hem zo in een class gebruik, of ik gebruik functie dan verlaat ie de functie als ik een fout genereer. Hoe kan je dit voorkomen, en kan je het voorkomen?