Onderwerp: [win2k] Datatraffic per hostheader meten

Origineel geplaatst door MediaCreations
Volgens mij doet AWStats niets met bytes received. Als je het formaat van je IIS logs aanpast moet je ook even de instellingen van AWstats nalopen.

Oke dan zal ik het gewoon eens gaan testen.

om toch nog even terug te komen op het onderwerp
Zijn er ook tools/scripts die gewoon alleen het dataverkeer uit de logs lezen en in een databaseje gooien? Zonder al die andere statistieken dus?

Je kan in IIS instellen hoe je je logfile wilt opslaan, daarbij kan je ook kiezen om deze info in je SQL database te proppen.

Hieruit kan je dan weer querys maken om al je info uit te halen.

Wat ik wel ga doen is om in mijn eigen factuur systeem een functie te maken die automatisch de logfile van AWStats inleest en kijkt hoeveel data er is gebruikt om deze in de factuur te stoppen. Overschreiden ze het dataverkeer dan tel ik automatisch de kosten vna het extra verkeer er bij op.

Of dat gaat lukken ga ik denk ik vanmiddag of vanavond testen, dus mocht er intresse zijn voor dit stukje ASP code dan hoor ik het wel...

Je kan in IIS instellen hoe je je logfile wilt opslaan, daarbij kan je ook kiezen om deze info in je SQL database te proppen.

Hieruit kan je dan weer querys maken om al je info uit te halen.

Bedankt!! Geniaal
Dat ik dit nooit heb geweten

Wat ik wel ga doen is om in mijn eigen factuur systeem een functie te maken die automatisch de logfile van AWStats inleest en kijkt hoeveel data er is gebruikt om deze in de factuur te stoppen. Overschreiden ze het dataverkeer dan tel ik automatisch de kosten vna het extra verkeer er bij op.

Of dat gaat lukken ga ik denk ik vanmiddag of vanavond testen, dus mocht er intresse zijn voor dit stukje ASP code dan hoor ik het wel...

Ik heb daar wel interesse voor

Oke, die logfile moet ik even bekijken hoe ik die binnen kan lezen. Ik weet niet of daar een standaard ODBC connectie voor bestaad want de file's zijn logisch ingedeeld.

Nou je hoort wel als het af is

Ik heb dus een stukje ASP gemaakt die het mogelijk maakt om de totaal aantal bytes van domeinen bij elkaar op te tellen en netjes in een overzichtje zet.

Let wel op dat mijn database zo is opgemaakt dat ik een tabel naw hebt met al mijn klanten. Ook een tabel Domeinen waarin alle domeinen staan met de IISNaam (welke ook in je awstats.IISNaam.conf hebt). Hier zet ik dan een query zodat ik alle domeinen van die klant krijgt en deze worden netjes opgeteld.

Wil je dit gewoon voor 1 domein hebben dan moet je de LeesDB, Do While.. en IISNaam ff weghalen en ook op het eind de RS.MoveNext, Loop en LeesDBClose weghalen. In de variabele IISNaam zet je dan de config naam van het domein.

Code:

Dim FSO
Const ForReading = 1, ForWriting = 2, ForAppending = 8
Set FSO = CreateObject("Scripting.FileSystemObject")

'########################
Function SizeString(size)
'########################
	If NOT Isnumeric(Size) OR Size="" Then
		SizeString=""
	ElseIf Size<=0 Then
		SizeString="0B"
	ElseIf Size>1024*1024*1024 Then
		SizeString=Round(Size/1024/1024/1024,1) & " GB"
	ElseIf Size>10*1024*1024 Then
		SizeString=Round(Size/1024/1024) & " MB"
	ElseIf Size>1024*1024 Then
		SizeString=Round(Size/1024/1024,1) & " MB"
	'ElseIf Size<1024 Then
	'	SizeString=Round(Size/1024,1) & " kB"
	ElseIf Size<1024 Then
		SizeString="1kB"
	ElseIf Size>100*1024 AND Size<=1024*1024 Then
		SizeString=Round(Size/1024/1024,1) & " MB"
	Else
		SizeString=Round(Size/1024) & " kB"
	End If
End Function

Gebruikersnaam = Request.QueryString("Gebruikersnaam")

LeesDB "SELECT IISNaam FROM Domeinen, naw WHERE naw.KlantId=Domeinen.KlantId AND naw.Gebruikersnaam LIKE '" & Gebruikersnaam & "' GROUP BY IISNaam"

Do While NOT RS.EOF
	IISNaam = RS("IISNaam")
	
	splDatum = Split(Date(), "-")
	If Len(splDatum(1)) = 1 Then Maand = "0" & splDatum(1) Else Maand = splDatum(1)
	Jaar = splDatum(2)	
	

	Filenaam = "D:\Users\Beheer\db\statsdata\awstats" & Maand & Jaar & "." & IISNaam & ".txt"

	If FSO.FileExists(Filenaam) Then
		Set txtFile = FSO.OpenTextFile(Filenaam, ForReading)
		tmpData = txtFile.ReadAll
		
		
		splData = Split(tmpData, "BEGIN_TIME 24" & VbLf)
		tmpData = splData(1)
		splData = Split(tmpData, "END_TIME")
		tmpData = splData(0)

		x = 0
		DataBytes = 0
		splData = Split(tmpData, VbLf)
		Do While x <= 23
			splUurData = Split(splData(x), " ")
			DataBytes = DataBytes + splUurData(3)
			x = x + 1
		Loop
		
		tDataVerbruik = tDataVerbruik + DataBytes
		DataVerbruik = DataVerbruik & "<br>" & IISNaam & " = " & SizeString(DataBytes)
	Else
		DataVerbruik = DataVerbruik & "<br>" & IISNaam & " = 0 B"
	End If
	
	RS.MoveNext
Loop

LeesDBClose

If Left(DataVerbruik, 4) = "<br>" Then DataVerbruik = Right(DataVerbruik, Len(DataVerbruik)-4)

Response.Write DataVerbruik
Response.Write "<br>Totaal: " & SizeString(tDataVerbruik)

Set FSO = Nothing

Laat even horen wat je er van vind!

Script ziet er goed uit!
Ik kan hem nog even niet testen helaas, maar ik denk dat ik hier wel iets mee kan. Bedankt