Newsgroup: it.comp.appl.access
Titolo: Errore di Automazione

Salve a tutti,
cercando di connettermi da Access 97 al Win32_NTLogEvent tramite questo 
codice
GetObject("winmgmts://localhost").ExecQuery("select * from Win32_NTLogEvent)
mi da quasto errore
"Errore di Automazione".
su 1 pc con W2000 Server Funziona alla perfezione, sull'altro sempre con 
W2000 Server mi da l'errore.
Grazie anticipatamente. 

 wrote in message
news:OczXe.35619$
nT3....@tornado.fastwebnet.it

Perchè dici che su un'altro PC funziona alla perfezione che non
è possibile....??
Ora forse funziona:
GetObject("winmgmts://localhost").ExecQuery("select * from
Win32_NTLogEvent")
Non hai chiuso le virgolette a fine stringa.
@Alex
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 ha scritto nel messaggio 
news:d8919dc582d66823ab...@mygate.mailgate.org...

Grazie Alessandro per l'interessamento, però le virgolette mancanti sono 
solo un mio errore di scrittura nel riportare il codice, nella form 
originale le virgolette di chiusura sono presenti.
ti viene in mente altro????
Grazie ancora. 

 Grazie ancora.
Hai provato a non inserire il riferimento al LocalHost
che dovrebbe essere esplicito...?(non dovrebbe cambiare nulla)
Invece di :
("winmgmts://localhost").
questo:
("winmgmts:")
Altra cosa che non capisco visto che l'hai omesso
è se hai dichiarato variabili di tipo Object
per il LateBinding o se hai inserito i riferimenti
a WSH per l'uso di WMI...!
Potevi postare 2 righe di codice in più....


[CUT]
Potevi postare 2 righe di codice in più....
Hai perfettamente ragione.
Dim dbas As DAO.Database
Dim RS, rstins As DAO.Recordset
Dim item
Dim Data As String
Dim strdata As String
Dim inizio, fine As Integer
Set dbas = DBEngine.Workspaces(0).Databases(0)
Set RS = dbas.OpenRecordset("VericaFax")
**** For Each item In GetObject("winmgmts://localhost").ExecQuery("select * 
from Win32_NTLogEvent where SourceName='Fax Service' And RecordNumber<" & 
Me.Min & " and RecordNumber>" & Me.Mag)
Data = item.RecordNumber
    With RS
        .AddNew
        ![Tipo] = item.Type
        ![messaggio] = item.Message
        inizio = InStr(item.Message, "Numero destinatario: ") + 21
        If inizio <> 21 Then
            fine = InStr(inizio, item.Message, ".")
            ![telefono] = Mid(item.Message, inizio, fine - inizio)
        End If
        strdata = Mid(item.timegenerated, 7, 2) & "/" & 
Mid(item.timegenerated, 5, 2) & "/" & Mid(item.timegenerated, 1, 4) & " " & 
Mid(item.timegenerated, 9, 2) & "." & Mid(item.timegenerated, 11, 2) & "." & 
Mid(item.timegenerated, 13, 2)
        ![orario] = CDate(strdata)
        .Update
    End With
Next
**** qui mi da l'errore
Ecco il codice completo. 

 [CUT]
Sinceramente non ho trovato errori lampanti, ma ti posto
questo Script che puoi provare per vedere se effettivamente
il SourceName='Fax Service' che passi per filtrare la QRY
č presente ed č corretto:
Dim objWMIService as Object
Dim colLoggedEvents as Object
Dim objEvent as Object
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" _
    & strComputer & "\root\cimv2")
Set colLoggedEvents = objWMIService.ExecQuery _
    ("Select * from Win32_NTLogEvent " _
        & "Where Logfile = 'System'")
For Each objEvent in colLoggedEvents
    Debug.Print "Category: " & objEvent.Category & VBNewLine _
    & "Computer Name: " & objEvent.ComputerName & VBNewLine _
    & "Event Code: " & objEvent.EventCode & VBNewLine _
    & "Message: " & objEvent.Message & VBNewLine _
    & "Record Number: " & objEvent.RecordNumber & VBNewLine _
    & "Source Name: " & objEvent.SourceName & VBNewLine _
    & "Time Written: " & objEvent.TimeWritten & VBNewLine _
    & "Event Type: " & objEvent.Type & VBNewLine _
    & "User: " & objEvent.User
Next
Se questo funziona ed il tuo no usa questo e modifica quě la
query sostituendo alla condizione WHERE il LogFile con il
SourceName come da te richiesto.
Speriamo bene.....
Ciao


 [CUT]
Ho letto anche quanto dice MSDN e mi viene il dubbio che
nella macchina che non và tu non sia Amministratore
o che tu possa non avere i privilegi....!!!!!
Possibile...?
Se fosse così devi perforza andare tramite Impersonate
passando i dati di un Admin, e ti sarà più semplice
adattare lo script che ti ho passato....!
