strComputerDN = "CN=reyes,CN=Computers,DC=virtual,DC=net"
Set objComputer = GetObject("LDAP://" & strComputerDN)
objComputer.Put "isVirtual" , true
objComputer.SetInfo