Newsgroup: it.comp.lang.visual-basic
Titolo: [?][UN PO' OT] Funzionamento inconsistente di WMI inVBA per Word (lunghetto)

Salve a tutti,
per un collaudo di diversi pc presso un cliente, ho realizzato un piccolo
script di VBA (che riporto dopo la firma) che usa WMI per verificare la
configurazione.
Il mio problema è che questo script, lanciato su pc tutti uguali , tutti con
W2000, su alcuni funziona perfettamente e su altri non dà la dimensione
dell'hd, o la memoria installata.
Data la frequenza degli errori, escluderei che sia un problema hardware,
anche perchè i pc funzionano tutti bene.
Per caso qualcuno ha qualche idea ?
Preciso che lo script viene lanciato nell'evento document.open di un doc.
Word, in modo che per verificare la configurazione del pc è sufficiente
aprire il file su dischetto.
Grazie in anticipo a chi mi risponderà.
Ciao
Alfonso
Script per analizzare alcuni aspetti della configurazione di un pc (lanciato
da dentro Word):
Sub AnalizzaConfigurazione()
Dim Probe As Object, Probes As Object
Dim sMsg As String
Selection.WholeStory
Selection.Delete Unit:=wdCharacter, Count:=1
Set Probes = GetObject("winmgmts:")
    For Each Probe In Probes.InstancesOf("Win32_Processor")
        sMsg = sMsg & "Tipo del processore: " & Probe.properties_("Name") &
vbNewLine _
        & "Velocità: " & Probe.properties_("Currentclockspeed") & " Mhz" &
vbNewLine
    Next
    For Each Probe In Probes.InstancesOf("Win32_PhysicalMemory")
        sMsg = sMsg & "Memoria installata: " &
Format(Probe.properties_("Capacity"), "###,###,###,###") & " Bytes" &
vbNewLine
    Next
    For Each Probe In Probes.InstancesOf("Win32_Sounddevice")
        sMsg = sMsg & "Scheda audio: " & Probe.properties_("Productname") &
vbNewLine
    Next
    For Each Probe In Probes.InstancesOf("Win32_CDROMDrive")
        sMsg = sMsg & "Cd Rom: " & Probe.properties_("Caption") & vbNewLine
    Next
    For Each Probe In Probes.InstancesOf("Win32_videocontroller")
        sMsg = sMsg & "Scheda Video: " & Probe.properties_("Caption") & "
Memoria: " & Format(Probe.properties_("Adapterram"), "###,###,###,###") & "
Bytes" & vbNewLine
    Next
    For Each Probe In Probes.InstancesOf("Win32_SerialPort")
        sMsg = sMsg & "Porta seriale: " & Probe.properties_("deviceid") & "
" & Probe.properties_("Providertype") & vbNewLine
    Next
    For Each Probe In Probes.InstancesOf("Win32_Parallelport")
        sMsg = sMsg & "Porta parallela: " & Probe.properties_("deviceid") &
vbNewLine
    Next
    For Each Probe In Probes.InstancesOf("Win32_Floppydrive")
        sMsg = sMsg & "Floppy disk: " & Probe.properties_("Caption") &
vbNewLine
    Next
    For Each Probe In Probes.InstancesOf("Win32_diskdrive")
        sMsg = sMsg & "Hard Disk " & Probe.properties_("Index") & ": " &
Probe.properties_("Model") & " Capacità: " &
Format(Probe.properties_("Size"), "###,###,###,###") & " Bytes" & vbNewLine
    Next
    For Each Probe In Probes.InstancesOf("Win32_OperatingSystem")
        sMsg = sMsg & "Sistema Operativo: " & Probe.properties_("Caption") &
" Versione: " &  Probe.properties_("Version") & vbNewLine
    Set Probes = Nothing
    Selection.TypeText Text:="Configurazione del pc" & vbNewLine
    Selection.TypeText Text:=sMsg
    DoEvents
    If MsgBox("Stampo il documento ?", vbYesNo + vbQuestion) = vbYes Then
       Me.PrintOut
    End If
End Sub

Per caso qualcuno ha qualche idea ?
[snip]
Ma non ti da' neanche un messaggio di errore ?
L' ho appena provato da un bas di vb ed e' andato benissimo.
Vorra' mica qualche impersonate adatto (problemi di permissions) ?
ciao, hal

 ha scritto nel messaggio
news:9hbbi3$cq49i$1...@ID-56381.news.dfncis.de...
[...]
