Tengo el siguiente código, pero me da error
Set objSWbemLocator = CreateObject("WbemScripting.SWbemLocator")
Set objWMIService = objSWbemLocator.ConnectServer(strComputer,"root\ci mv2",strUser,strPassword,"MS_409","NTLMDomain:" + strDomain)
Set colOSes = objWMIService.ExecQuery("Select * from Win32_OperatingSystem")
For Each objOS in colOSes
Response.write( "Computer Name: " & objOS.CSName)
Response.write( "Operating System<br>")
Response.write( " Caption: " & objOS.Caption&"<br>") 'Name
Response.write( " Version: " & objOS.Version&"<br>" )'Version & build
Response.write( " BuildNumber: " & objOS.BuildNumber&"<br>") 'Build
Response.write( " BuildType: " & objOS.BuildType&"<br>")
Response.write( " OSProductSuite: " & objOS.OSProductsuite&"<br>") 'OS Product suite
Response.write( " OSType: " & objOS.OSType&"<br>")
Response.write( " OtherTypeDescription: (2003 Server R2 release only)" & objOS.OtherTypeDescription&"<br>")
Response.write( " ServicePackMajorVersion: " & objOS.ServicePackMajorVersion & "." & _
objOS.ServicePackMinorVersion&"<br>")
Next
ERROR
SWbemLocator error '80070005'
Access is denied.
