vbScript pour utiliser logparser

Version imprimable

salut,
J'ai chopper un script sur le net qui conviendrait à mes attentes pour me retourner les events de serveurs en utilisant logparser.

cependant sa ne joue pas comme prévue, alors je fait appel à vos connaissances d'experts pour savoir ce que je dois modifier dans ce script pour avoir cette

requete :

LogParser "SELECT * INTO dbo.LogRepository FROM System,Application where (EventTypeName = 'Error event') AND (TimeWritten >= SUB( TO_LOCALTIME(SYSTEM_TIMESTAMP()), TIMESTAMP('0000-01-02', 'yyyy-MM-dd') ) )"

Script :

'
Code:

1 2 3 4 5 6 7 Define query to get list of available logs strQueryEvtLogs ="select distinct KeyName from \\" & strSystem & _ "\HKLM\SYSTEM\CurrentControlSet\Services\EventLog where KeyName = 'EventLog'" ' Define template for pulling event logs strQueryTemplate = "Select '" & strSystem "',*" &_ "into " & strSQLTable & " from '\\" & strSystem & "\"

09/08/2007, 16h14
ced600

Utilises les balises de codes pour ton code quand tu postes.
Peux tu donner plus de détail sur ce que tu veux faire et sur ce qu'est strSystem, et strSQLTable ?

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
Option Explicit
On Error Resume Next

' ******************************************************************************
' Define Variables

' Define strings
Dim strQueryEvtLogs, strSystem, strQueryTemplate, strQuery, strUserName, strPassword
Dim strCheckPointLoc, strSQLTable
' Log Parser Objects
Dim oLogQuery, oInputReg, oInputEvt, oOutputSQL
' Results objects
Dim oLogList, oCurLog, oSQLBatch
' Netowrking objects
Dim oNetwork

' ******************************************************************************
' Check for Arguments

Wscript.Echo "Checking Arguments...."

' Check for host name argument
If Wscript.Arguments.Count = 3 Then

    strSystem = Wscript.Arguments(0)
    strUserName = Wscript.Arguments(1)
    strPassword = Wscript.Arguments(2)

Else ' if there are no arguments supplied

    EndProg(1) ' Quit Returning Error Code 1 (bad or missing arguments)

End If

Wscript.Echo "Performing pull on host: " & strSystem ' Debugging
Wscript.Echo ""


' ******************************************************************************
' Define initial variables
Set oNetwork = CreateObject("WScript.Network")
' Instantiate LogParser Objects
Set oLogQuery = CreateObject("MSUtil.LogQuery")
Set oInputReg = CreateObject("MSUtil.LogQuery.RegistryInputFormat")
Set oInputEvt = CreateObject("MSUtil.LogQuery.EventLogInputFormat")
Set oOutputSQL = CreateObject("MSUtil.LogQuery.SQLOutputFormat")

'strSystem = "pc-lab35.ca.descartes.com" ' Define system to work on
oInputReg.recurse = 1 ' Define options for registry input for log list

strCheckPointLoc = "r:\events\"
strSQLTable = "TestSystems"
oOutputSQL.server = "server name" ' Define ODBC Settings
oOutputSQL.database = "database name" ' Define ODBC Settings
oOutputSQL.username = "user name" ' Define ODBC Settings
oOutputSQL.password = "password" ' Define ODBC Settings
oOutputSQL.driver = "SQL Server" ' Define ODBC Settings
'oOutputSQL.CreateTable = True ' only used to initially create table

' Define query to get list of available logs
strQueryEvtLogs = "select distinct KeyName from \\" & strSystem & _
                  "\HKLM\SYSTEM\CurrentControlSet\Services\EventLog where KeyName <> 'EventLog'"

' Definte template for pulling event logs
strQueryTemplate = "Select '" & strSystem & "' as System, *, RESOLVE_SID" & _
                   "(SID) into " & strSQLTable & " from '\\" & strSystem & "\"

' ******************************************************************************
' Map Network Drive

oNetwork.MapNetworkDrive "", "\\" & strSystem, , strUsername, strpassword

If Err.Number = -2147023570 Or Err.Number = -2147023677 Then ' bad credentials or different credentials on existing share
    wscript.echo Err.Description
    EndProg(2)
End If
Wscript.echo "Successfully mapped " & "\\" & strSystem

' ******************************************************************************
' Begin Code Execution

' Generate list of log files
Set oLogList = oLogQuery.Execute(strQueryEvtLogs, oInputReg)

' Visit all event logs
Do While Not oLogList.atEnd

    ' Get the event log name
    Set oCurLog = oLogList.getRecord

    ' Build new query using log to pull from
    strQuery = strQueryTemplate & oCurLog.getValue ( 0 ) & "'"

    ' display query to string (debugging)
    wscript.echo strQuery

    ' Define checkpoint file for specified log
    oInputEvt.iCheckpoint = strCheckPointLoc & strSystem & "_" & oCurLog.getValue ( 0 ) & ".lpc"    ' Local testing version

    ' Execute pull to SQL
    oLogQuery.ExecuteBatch strQuery, oInputEvt, oOutputSQL

    wscript.echo "Records Processed: " & oLogQuery.inputUnitsProcessed
    wscript.echo Err.Description ' Output any error messages encountered

    ' Advance LogList to next record
    oLogList.moveNext

Loop

EndProg(0) ' End Program Successfully

' ******************************************************************************

' Procedure to end the program and properly close all used objects and return
' any associated error messages.

Sub EndProg(intCode)
    oNetwork.RemoveNetworkDrive "\\" & strSystem, true

    ' Release objects
    Set oLogQuery = Nothing
    Set oInputReg = Nothing
    Set oInputEvt = Nothing
    Set oOutputSQL = Nothing
    Set oLogList = Nothing
    Set oCurLog = Nothing
    Set oNetwork = Nothing

    If intCode = 0 Then
        Wscript.Quit 0
    Else
        Wscript.echo ""
        Wscript.echo ""
        If intCode = 1 Then wscript.echo "Failed to run - bad or missing arguments" End If
        If intCode = 2 Then wscript.echo "Unable to make connection to server, bad credentials." End If

        Wscript.echo ""
        wscript.echo "Usage: logparser.vbs <host FQDN> <username> <password>"
        Wscript.echo ""
        Wscript.echo ""
        Wscript.Quit intCode
    End If
End Sub

Voilà je souhaite modifier ce script pour pouvoir utiliser ma requête, que j'ai affiché plus haut en vert. Je pense que cela se situe dans ce que j'ai mis en rouge.

09/08/2007, 17h09
ced600

Et en copiant ta requete dans strQueryEvtLogs cela donne koi ?
09/08/2007, 17h10
ced600

Et pour les balises de codes il faut utiliser le # lorsque tu postes un message.
09/08/2007, 17h16
Yodaf

1 pièce(s) jointe(s)

voilà ce que ça donne.

1 pièce(s) jointe(s)

Voilà mes dernière modifs, mais ça marche tjs pas...:(

Code:

1
2
3
4
5
6
' Define query to get list of available logs
strQueryEvtLogs ="SELECT * FROM System,Application where (EventTypeName = 'Error event') AND (TimeWritten >= SUB( TO_LOCALTIME(SYSTEM_TIMESTAMP()), TIMESTAMP('0000-01-02', 'yyyy-MM-dd') ) )"
 
 
' Define template for pulling event logs
strQueryTemplate = "Select * into " & strSQLTable & " from '\\" & strSystem & "\"

et voilà ma nouvelle erreur.

10/08/2007, 11h36
ced600

Si tu regardes ta deuxième fenetre tu t'aperçois que "strSystem" est vide.
Qu'elles sont les arguments que tu passe à ton VBS et de quel façon ?

Je passe mes arguments de la manière suivante :

Code:

1
2
3
4
 
    strSystem = Wscript.Arguments("numMachine")
    strUserName = Wscript.Arguments("userName")
    strPassword = Wscript.Arguments("Password")

10/08/2007, 13h45
ced600

???

Comment tu lances le script ?
10/08/2007, 13h50
Yodaf

J'ai un fichié sur le bureau que je lance en cliquant dessus :
"nomFichier.vbs"
10/08/2007, 13h51
ced600

Un fichier VBS ou un raccourci vers celui-ci ?
10/08/2007, 14h01
Yodaf

Ouais, mais c'est faut la manière dont je passe mes arguments.
-Comment je pourrais faire, sinon?
10/08/2007, 14h04
ced600

Citation:

Ouais, mais c'est faut la manière dont je passe mes arguments.

Cela ne me dit pas si tu utilises un fichier .vbs pour le lancer (dans ce cas la c'est le script lui meme) ou un raccourci.
Je suppecte en effet la maniere de passer tes arguments. Tu dois les passer au lancement du script. C'est pour ça que je te demandais si tu utilisais un raccourci car celui peut contenir l'appel à l'executable + les arguments à passer.

SI tu ne fais que double cliquer sur le vbs cela ne marchera jamais.
10/08/2007, 14h07
Yodaf

effectivement c'est un fichier "nomFichier.vbs", mais alors où dans mon sript je dois mettre ces arguments?
10/08/2007, 14h09
ced600

Ce n'est pas dans ton script. Argument est une collection qui contient l'ensemble des arguments passer à l'execution du script.
Tu sais une exécution du genre :
nom.vbs arg1 arg2 arg3 ....
10/08/2007, 14h27
Yodaf

1 pièce(s) jointe(s)

Je pense avoir trouvé où je deavais définir mon strSystem.
Cependant cela me met tjs des erreurs.
10/08/2007, 14h32
ced600

ton strSystem ne vaut toujours rien.