[Vb]Rilevare software in pc remoto

mercoledì 22 aprile 2009 - 11.54

Elenco Threads

Stanze Forum

Aggiungi ai Preferiti

Cerca nel forum

Hope Profilo | Junior Member

71 messaggi | Data Invio: mer 22 apr 2009 - 11:54

Ciao a tutti,
Ho uno script che mi permette di eseguire l'inventario dei pc(rilevazione HARDWARE-S.O.-STAMPANTI-SOFTWARE)
Mi viene rilevato tutto tramite script WMI,ma la parte relativa al software non mi funziona
Per eseguire una connessione remota ad un pc ho inserito:

Set objLocator = CreateObject( "WbemScripting.SWbemLocator" )
Set objWMIService = objLocator.ConnectServer ( strComputer, "root\cimv2", "UtenteAdmin", "password")
objWMIService.Security_.impersonationlevel = 3

Vi allego la parte relativa al software:

Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & _
strComputer & "\root\default:StdRegProv")
strKeyPath = "Software\Microsoft\Windows\CurrentVersion\Uninstall"
oReg.EnumKey HKEY_LOCAL_MACHINE, strKeyPath, arrSubKeys
For Each subkey In arrSubKeys
strsubkey = subkey
strValueName = "DisplayName"
strKeyPath = "Software\Microsoft\Windows\CurrentVersion\Uninstall\" & strsubkey
oReg.GetStringValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,strValue
If IsNull(strValue) Then
strValue = strsubkey
End If

Se eseguo lo script in locale funziona,ma in remoto non c'è verso,il software non mi viene rilevato.
Grazie mille per ogni vostro aiuto.

Saluti

Torna su

Stanze Forum

Elenco Threads

Partecipa anche tu! Registrati!

Hai bisogno di aiuto ?
Perchè non ti registri subito?

Dopo esserti registrato potrai chiedere
aiuto sul nostro Forum oppure aiutare gli altri

Consulta le Stanze disponibili.

Registrati ora !