H

i am reading hardware information from the remote system
My system has windows 2000 but the remote system has windows 9

i get Access denied problem

how do i solve this problem

My code is like this ...

If txtUserName.Text.Trim.Length > 0 The
Dim objLocator As Object = CreateObject("WbemScripting.SWbemLocator"
objWMIService = objLocator.ConnectServer(txtSystemName.Text.Trim, "root\cimv2", txtUserName.Text.Trim, txtPassword.Text.Trim
objWMIService.Security_.ImpersonationLevel =
Els
objWMIService = GetObject("winmgmts:"
& "{authenticationLevel=Pkt}!\\" & txtSystemName.Text.Trim & "\root\cimv2"
End If