Sample WMI code to access Config

 

Imports WbemScripting

Public Class wmi

Public Function RetrieveDiscInfo(ByVal strServerName As String, ByRef str_ar As Array)

Dim objSWSet As SWbemObjectSet
Dim objSWObject As SWbemObject
Dim objSWService As SWbemServices

objSWService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strServerName & "\Root\CimV2")

objSWSet = objSWService.InstancesOf("Win32_LogicalDisk")

For Each objSWObject In objSWSet

Debug.Write(objSWObject.description)
Debug.Write(objSWObject.FileSystem)

Next

End Function

End Class

WE URGENTLY NEED CLASS DESIGNER!!! Conctact me!