Hoi
ik zit hier op stage met een probleempje
via node manager willen we het netwerk een beetje in de gaten houden en dan zorgen bij critical errors dat er een email naar de beheerders wordt verstuurd
hiervoor heeft de stagair voor mij een scriptje gemaakt dat ZOU moeten werken
ik heb er zelf geen verstand van maar ook de beheerders zeggen dat het ooit gewerkt heeft (denken ze
)
nu is mijn taak om te zorgen dat het (weer) gaat werken....
ik zal ff het stukje code geven waar het om gaat:
als er nu een critical error voorkomt, komt de volgende error in beeld:
verder kan ik niet veel op de exchange server, omdat die niet in ons beheer zit....
nu geloof ik dat deze error nogal veel kan betekenen, maar misschien dat iemand hem bekend voorkomt in combinatie met mapi.session
ik zit hier op stage met een probleempje
via node manager willen we het netwerk een beetje in de gaten houden en dan zorgen bij critical errors dat er een email naar de beheerders wordt verstuurd
hiervoor heeft de stagair voor mij een scriptje gemaakt dat ZOU moeten werken
ik heb er zelf geen verstand van maar ook de beheerders zeggen dat het ooit gewerkt heeft (denken ze
nu is mijn taak om te zorgen dat het (weer) gaat werken....
ik zal ff het stukje code geven waar het om gaat:
code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
| Set objSession = CreateObject("MAPI.Session")
objSession.Logon "Microsoft Outlook Internet Settings","", True, True, 0, True
Dim teller
teller = 0
Do While emailarray(teller) <> ""
Set objMessage = objSession.Outbox.Messages.Add
MessBody = "Dear Admin(s), "&Event_node&" reported "&Event_IDshort
' MessBody = "<p>Dear Admin(s),</p><p>"&Event_Node&" reported "&Event_IDshort&"</p>" &_
' "<p><a href='http://lb002593/ovcgi/jovw.exe'>Netwerk overzicht</a></p>" &_
' "<p><a href='G:\VBS\Beheer\Documentatie\NT Beheer\Events\events.html'>Event overzicht</a></p>" &_
' "<p>"&Event_IDlong&"</p>"
' MessBody = "<HTML>" & MessBody & "</HTML>"
objMessage.Subject = emailsubject
objMessage.Text = MessBody
Set objOneRecip = objMessage.Recipients.Add
objOneRecip.Name = emailarray(teller)
objOneRecip.Resolve
objMessage.Update
objMessage.Send
teller = teller + 1
Loop
objSession.Logoff |
als er nu een critical error voorkomt, komt de volgende error in beeld:
ik heb al vanalles hierover gezocht, maar overal lees ik wat andersAtiveX component can't create object:'Mapi.session' code 800a01ad
verder kan ik niet veel op de exchange server, omdat die niet in ons beheer zit....
nu geloof ik dat deze error nogal veel kan betekenen, maar misschien dat iemand hem bekend voorkomt in combinatie met mapi.session
[ Voor 29% gewijzigd door Noedelsupke op 08-05-2003 11:39 ]
PIII 800@804 Mhz