[2000] E-mail genereren die status Back-up controleerd*

[Verwijderd]

ik ben al 4 weken bezig om een e-mail te maken die automatisch de volgende onderwerpen van mijn server kan halen, iemand tips of truuks hoe ik dit kan doen

• Customer
• Date&Time
• Full servername (domein.dns.local)
• TCP/IP Adress
• Backup success yes/no
• Free disk space system disk
• Free disk space system disk
• Virusscan engine date

me Windows 2000 server moet om 06:00 een e-mail te genereren met bovenstaande informatie, waarin de mail er als volgt uit moet komen te zien:

From:
[e-mail]

Subject
Report: %Customer%- %servernaam% - %Backupstatus% - %Virusenginedate%


hehe volgens mij is dit onmogelijk maar ja je weet het nooit

[ Voor 4% gewijzigd door Verwijderd op 25-02-2004 09:38 ]

[elevator]

mitsu,

Ik zie dat dit je eerste post op GoT is - welkom
Op GoT hebben we een aantal richtlijnen opgesteld waar we graag van zien dat een topic aan voldoet - jouw topic is op zich een net topic, maar toch ontbreken er nog wat zaken - ik lijst ze eventjes op:

• Je topic titel - in Windows Operated Systems zien we graag dat het OS tussen vierkante haken staat. Verder is het OS bijna in alle software vragen een onontbeerlijk stuk informatie.
• Laat zien dat je zelf wel een en ander probeert. Als ik nu je topicstart lees, lijkt het net ofdat je een opdracht van school of van je werk, hier rechtstreeks overschrijft zonder zelf iets gedaan te hebben, terwijl dat ongetwijfeld niet het geval is. Pas je topicstart dus nog eventjes aan zodat je aangeeft wat je zelf gedaan hebt, en wat je tot nu toe zelf al hebt.
• Maak een nette topic start - dat is voldoende

Mocht je nu niet uit dit probleem in een groot stuk komen, probeer je probleem dan op te delen in kleine stukjes. Uiteindelijk is je probleem namelijk:

• Het kunnen versturen van een mail geautomatiseerd (zoek eens op 'blat' op google?)
• Hoe wil je 'Customer' kunnen opvragen?
• Hoe zou je normaal het IP address opvragen?

etcetera

Success

[Verwijderd]

ok sorry

[Verwijderd]

ik ben al uit dat je met het programma www.kixtart.org zulke taken kan doen.
iedergeval dat beweren ze op de website, maar ja hoe dit porgramma werkt
geen idee, ik heb de help en de readme gelezen. denk dat je in vbscript moet maken.. dat is me ook nog nioet duidelijk?
iemand ervaring met KIXtart

[ Voor 12% gewijzigd door Verwijderd op 25-02-2004 15:41 ]

[elevator]

Heb je al eens geprobeerd je probleem te onderverdelen in kleine stukjes zoals ik hierboven aanraadde?

Heb je bv. al een manier gevonden om een mailtje te sturen?
Heb je al een manier gevonden om het ip address op te vragen?

Er zijn voor zowel Kix als VBScript als normale batch scripting echt genoeg manieren te vinden - maar je zal toch zelf eerst eens een voorbeeld moeten geven van wat je tot nu toe hebt voordat we verder kunnen

[Verwijderd]

ah okey sorry ben erg onduidelijk.

ik wil gewoon dat ik elka dag een mailtje krijg zoals met hierboven genoemde
specs:, ja het liefst wil ik het doen met kixtart omdat dat me de makkelijkste oplossing lijk ? ( iemand die andere manier weet ),
Hoe maak je zo`n scripts, dat als eerste ? waar begin je mee

[elevator]

Ik snap wel wat je bedoelt - maar tot nu toe heb ik (ondanks dat je ongetwijfeld wel zal willen) - nog erg weinig gezien van wat jij nou zelf al gedaan hebt om dit voor elkaar te krijgen

Je begint gewoon met een texteditor als notepad - op http://www.kixstart.org/ is veel informatie over Kixstart te vinden.

[Brahiewahiewa]

Voor VBScript kun je het Script Centre raadplegen:
Enumerate Available Disk Space
Send Email from a Script
Returning IP Configuration Data
Retrieve Specific Events from an Event Log
Enumerate Registry Values and Types
Allemaal effe aan elkaar plakken en klaar is je script

[Verwijderd]

en dan opslaan als vbs ?? op volgorde zou dat dit zijn:


\\diskspace
Const HARD_DISK = 3
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colDisks = objWMIService.ExecQuery _
("Select * from Win32_LogicalDisk Where DriveType = " & HARD_DISK & "")
For Each objDisk in colDisks
Wscript.Echo "DeviceID: "& vbTab & objDisk.DeviceID
Wscript.Echo "Free Disk Space: "& vbTab & objDisk.FreeSpace
Next


\\ email zenden
Set objEmail = CreateObject("CDO.Message")
objEmail.From = "[e-mail]"
objEmail.To = "[e-mail]"
objEmail.Subject = "Atl-dc-01 down"
objEmail.Textbody = "Atl-dc-01 is no longer accessible over the network."
objEmail.Send


\\ eventlog
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colLoggedEvents = objWMIService.ExecQuery _
("Select * from Win32_NTLogEvent Where Logfile = 'System' and " _
& "EventCode = '6008'")
Wscript.Echo "Improper shutdowns: " & colLoggedEvents.Count


\\Enumerate Registry Values and Types
const HKEY_LOCAL_MACHINE = &H80000002
const REG_SZ = 1
const REG_EXPAND_SZ = 2
const REG_BINARY = 3
const REG_DWORD = 4
const REG_MULTI_SZ = 7

strComputer = "."
Set StdOut = WScript.StdOut

Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" &_
strComputer & "\root\default:StdRegProv")

strKeyPath = "SYSTEM\CurrentControlSet\Control\Lsa"

oReg.EnumValues HKEY_LOCAL_MACHINE, strKeyPath,_
arrValueNames, arrValueTypes

For i=0 To UBound(arrValueNames)
StdOut.WriteLine "Value Name: " & arrValueNames(i)

Select Case arrValueTypes(i)
Case REG_SZ
StdOut.WriteLine "Data Type: String"
StdOut.WriteBlankLines(1)
Case REG_EXPAND_SZ
StdOut.WriteLine "Data Type: Expanded String"
StdOut.WriteBlankLines(1)
Case REG_BINARY
StdOut.WriteLine "Data Type: Binary"
StdOut.WriteBlankLines(1)
Case REG_DWORD
StdOut.WriteLine "Data Type: DWORD"
StdOut.WriteBlankLines(1)
Case REG_MULTI_SZ
StdOut.WriteLine "Data Type: Multi String"
StdOut.WriteBlankLines(1)
End Select
Next


boelkloedig, uhh gaat dit werken

[akimosan]

Open deur -> TRAP

Probeer het eens?

[Verwijderd]

Ik zou je wel willen aanraden om als je data in een mailtje plempt het wel een soort van xml formaat op te slaan, is ietjes makkelijker verwerken aan de kant van de ontvanger

[Brahiewahiewa]

Verwijderd schreef op 25 februari 2004 @ 16:08:
en dan opslaan als vbs ?

Nou nee, 't idee is dat je met enige intelligentie naar die code kijkt en de dingen d'r uit pikt die je nodig hebt. Jij wilt:

Subject
Report: %Customer%- %servernaam% - %Backupstatus% - %Virusenginedate%

Dan is het dus niet handig om

code:

objEmail.Subject = "Atl-dc-01 down"

te laten staan. Bijv: %servernaam% haal je uit het TCP/IP properties script objAdapter.DNSHostName. Voor de backup status zoek je in het eventlog het laatste event wat door je backup programma gelogged is (dat zal niet event 6008 zijn maar een ander nummer). De virus engine date kun je vast wel ergens uit de registry uitlezen; aan jou om uit te zoeken waar precies.

Capice?