Dim strComputerName ' The Computer Name to be queried via WMI
Dim strWinMgt ' The WMI management String
Dim objCon ' A Connection Object for database connectivity
Dim objRS ' A Recordset Object for database connectivity
Dim sProviderName ' The OLE Provider Type
Dim iCursorType ' The Cursor...
This code is working but it only returns the first value that is queried into the database. How do I make it write all info it finds into the database?
Sub subWriteSoftwareInfo
set colItems = GetObject(strWinMgt).ExecQuery("select * from Win32_Product")
objRS.CursorType =...
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.