[ASP] server scripts (VB) werken niet

[Verwijderd]

Ik heb vroeger een heleboel scriptjes geschreven of gedownload, waardoor ik online mijn server kon beheren of informatie kon opvragen van bijvoorbeeld de Active Directory of de Exchange server. Dit was toen Windows 2000 Server.

Nu heb ik Windows 2003 Standard Server, en sommige scripts werken niet meer. Bijvoorbeeld deze:

code:

On Error Resume Next

strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" &  _
        strComputer & "\CIMV2\Applications\Exchange")

Set colItems = objWMIService.ExecQuery _
    ("Select * from ExchangeServerState")

For Each objItem in colItems
    response.write "Cluster state: " & objItem.ClusterState
    response.write "Cluster state string: " & _
        objItem.ClusterStateString
    response.write "CPU state: " & objItem.CPUState
    response.write "CPU state string: " & objItem.CPUStateString
    response.write "Disks state: " & objItem.DisksState
    response.write "Diskss state string: " & objItem.DisksStateString
    response.write "Distinguished name: " & objItem.DN
    response.write "Group dsitinguihsed name: " & objItem.GroupDN
    response.write "Group GUID: " & objItem.GroupGUID
    response.write "GUID: " & objItem.GUID
    response.write "Memory state: " & objItem.MemoryState
    response.write "Memory state string: " & _
        objItem.MemoryStateString
    response.write "Name: " & objItem.Name
    response.write "Queues state: " & objItem.QueuesState
    response.write "Queues state string: " & _
        objItem.QueuesStateString
    response.write "Server maintenance: " & _
        objItem.ServerMaintenance
    response.write "Server state: " & objItem.ServerState
    response.write "Server state string: " & _
        objItem.ServerStateString
    response.write "Services state: " & objItem.ServicesState
    response.write "Services state string: " & _
        objItem.ServicesStateString
    response.write "Unreachable: " & objItem.Unreachable
    response.write "Version: " & objItem.Version
    response.write
Next

Hij geeft gewoon een witte pagina. \CIMV2\Applications\Exchange bestaat nogtans, en de IIS gebruiker heeft daar alle rechten op dus daar ligt het zeker niet aan. De connectie werkt ook aangezien die in alle scripts hetzelfde is en daar wel werkt.

PS: Het script is geschreven voor Exchange Server 2003, dewelke ik dus heb.

[ Voor 11% gewijzigd door Verwijderd op 02-05-2006 14:25 ]

[RobIII]

Gebruik je wel <% en %> ?
Overigens gebruik je zo te zien WMI en ja, dat kan her en der veranderd zijn voor Windows 2003. Kwestie van debuggen waar het fout gaat, daar gaan we je hier niet mee helpen. Gooi er eens wat response.write's tussen her en der om te kijken hoe ver je wel nog komt....
Verder kun je nog even controleren IUSR_<Servernaam> wel voldoende WMI/WMGMT rechten heeft.

[ Voor 102% gewijzigd door RobIII op 02-05-2006 14:27 ]

[gorgi_19]

En sloop de On Error Resume Next er uit

[Verwijderd]

<% %> gebruik ik ja

De IUSR_Server heeft alle rechten ivm WMI.

response.write's tussenvoegen, dat is juist het probleem, scherm blijft altijd wit.

[WvdWest]

Het je dan al de On Error Resume Next eruit gesloopt?

[azuidhof]

Verwijderd schreef op dinsdag 02 mei 2006 @ 14:49:
<% %> gebruik ik ja

De IUSR_Server heeft alle rechten ivm WMI.

response.write's tussenvoegen, dat is juist het probleem, scherm blijft altijd wit.

je hele pagina bestaat uit de code in je start post met <% %> er omheen dus Dat moet werken. Begin es bij het begin: wat doet een helemaal lege pagina met

ASP:

<%
response.write "test"
%>

Als dat werkt voeg dan je code toe, misschien stap voor stap gelardeerd met response.write's, om uit te sluiten dat er toch nog ergens een tikvoudje ofzo zit...

[Voutloos]

Verwijderd schreef op dinsdag 02 mei 2006 @ 14:49:
response.write's tussenvoegen, dat is juist het probleem, scherm blijft altijd wit.

Al die write calls staan in de for each loop en kunnen mogelijkerwijs niet bereikt worden. Op regel 10 "waa?" writen heeft dus zeker wel nut.

[Verwijderd]

Na veel ge-debug geeft hij een fout op deze regel:

code:

Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" &  _
        strComputer & "\CIMV2\Applications\Exchange")

"\CIMV2\Applications\Exchange" bestaat wel degelijk en de IUSR_Server heeft daar alle rechten op.

Foutmelding:

code:

error '8004100e'

/exchange.asp, line 4

[RobIII]

Verwijderd schreef op dinsdag 02 mei 2006 @ 15:46:

code:

error '8004100e'

/exchange.asp, line 4

Come on....

[Verwijderd]

RobIII schreef op dinsdag 02 mei 2006 @ 16:12:
[...]

Come on....

Dat heb ik al lang gedaan hoor..

De antwoorden zijn bijna altijd:

- Typfout gemaakt in het pad naar de CIMV2
- IUSR_Server heeft niet de juiste rechten om uit te voeren

Beide antwoorden heb ik al allemaal gechecked.

[RobIII]

Verwijderd schreef op dinsdag 02 mei 2006 @ 16:51:
[...]


Dat heb ik al lang gedaan hoor..

De antwoorden zijn bijna altijd:

- Typfout gemaakt in het pad naar de CIMV2
- IUSR_Server heeft niet de juiste rechten om uit te voeren

Beide antwoorden heb ik al allemaal gechecked.

Ik kom anders toch nog héél wat andere oplossingen tegen (zoals de standaard namespace checken in je register enzovoorts).

Hierbij een greep uit wat ik er zo 1 2 3 uit haal:
• hier -> Register checken
• hier -> al minimaal 3 (mogelijke) oplossingen:
(1) Check je TCP/IP settings en loadbalancing,
(2) probeer wat met ADSIedit,
(3) probeer wat met MOFCOMP, enz. enz.
• Enz.

Dat je "beide" de oplossingen hebt geprobeerd is dus wat "karig". Ik zie er zo tientallen. En dan heb ik het nog niet eens over Google Groups...

Ik heb het idee dat als je het niet in de eerste of 2e hit vind maar meteen hier komt vragen. Devven is zelf denken en verder kijken dan je neus lang is. En een beetje moeite doen kan geen kwaad hoor.

[ Voor 54% gewijzigd door RobIII op 02-05-2006 17:03 ]

[TeeDee]

Mag je IUSR_<%Server%> ook bij de Exchange machine?

Verder zeg je:

code:

"\CIMV2\Applications\Exchange"

Terwijl er in jouw code zou moeten staan: (als ik 'm goed bekijk)

code:

".\CIMV2\Applications\Exchange"

Heb je trouwens ook on error resume next eruit gesloopt?

Verwijderd schreef op dinsdag 02 mei 2006 @ 16:51:
[...]


Dat heb ik al lang gedaan hoor..

Beide antwoorden heb ik al allemaal gechecked.

Als je dat dan ook even aangeeft, dan hoeven wij dat ook niet uit je te vissen.

[ Voor 6% gewijzigd door TeeDee op 02-05-2006 16:56 ]