There is a new form tag in the login page.
So, Change:

WITH .DOCUMENT.FORMS(0)

To:

WITH .DOCUMENT.FORMS(1)

and it should work again...



>Well, I just got a new workstation at work and it is XP Professional and my old pc is Windows 2000 Pro. IT does not work on either system but both systems are running the same IE version...possible...
>
>>Might it have broken as a result of Windows Update patches recently applied?
>>
>>I noticed yesterday that one that I applied was to IE.
>>
>>good luck
>>
>>
>>>I've been using this code via a menu in VFP to access the UT for months now. However, starting yesterday, it no longer works. It now returns an error message: OLE error code 0x80020006:Unknown name. Any ideas why?
>>>

>>>lc_User = "mylogin"
>>>lc_PW	= "mypassword"
>>>lo_IE   = CREATEOBJECT("InternetExplorer.Application")
>>>
>>>lo_IE.Navigate("www.levelextreme.com")
>>>*-- UT modifies the Web-Address. all You really need is
>>>*-- the web-address
>>>
>>>
>>>INKEY(1)
>>>ln_Now = SECONDS()
>>>
>>>DO WHILE lo_IE.Busy AND SECONDS() <= ln_Now+30
>>>	WAIT WIND "Please wait... connecting to levelextreme.com" TIME 1
>>>ENDDO
>>>
>>>WAIT CLEAR
>>>
>>>WITH lo_IE
>>>	IF VARTYPE(.DOCUMENT) = "O" AND ! ISNULL(.DOCUMENT);
>>>			AND LOWER(.DOCUMENT.ReadyState) = "complete"
>>>
>>>		WITH .DOCUMENT.FORMS(0)
>>>			.Username.VALUE = lc_User
>>>			.PASSWORD.VALUE = lc_PW
>>>			.Submit
>>>		ENDWITH
>>>		.VISIBLE = .T.
>>>		*	   .Width = 640
>>>		*	   .Height = 480
>>>	ELSE
>>>		=MESSAGEBOX(;
>>>			"Sorry, the Page is not ready-Please try again later.", ;
>>>			64, "Information")
>>>	ENDIF
>>>ENDWITH
>>>
>>>