Addextender("WWWNT32I.DLL")


H="C:\Date.txt"
old = FileOpen(H, "READ")

while @TRUE
		j = FileRead(old)
		rmt=RegConnect("%J%",@REGUSERS)
		If rmt ==@false then goto WRITE1 
			For x=1 to 999
   			skey=RegQueryKey(rmt, x)
   			If skey == "" then break
				subkey=ItemExtract(x,skey,@tab)
    			key=RegOpenkey(rmt,"%skey%\Control Panel\International")
	 			test=RegSetValue(rmt,"%skey%\Control Panel\International[sShortDate]","M/d/yyyy")
				RegCloseKey(key)
				IF test==@false then goto WRITE1
				If test==@True then goto WRITE2
			Next	
		If x == "*EOF*" Then Break
endwhile

:WRITE1
handle = FileOpen("c:\TimeFail.txt", "APPEND")
FileWrite(handle," %j%		%skey%")
FileWrite(handle,"")
FileClose(handle)
return

:WRITE2
handle = FileOpen("c:\TimeGood.txt", "APPEND")
FileWrite(handle," %j%		%skey%")
FileWrite(handle,"")
FileClose(handle)
return

mainkey="SOFTWARE\Microsoft\Windows NT\CurrentVersion\NetworkCards\"
subkeylist=RegQueryKeys(@REGMACHINE,mainkey)
count=ItemCount(subkeylist,@tab)
	
	for xx=1 to count
	   thissubkey=ItemExtract(xx,subkeylist,@tab)
	   srvkey= strcat(mainkey,thissubkey, "[servicename]"
	   thisname=RegQueryValue(@REGMACHINE,srvkey)
	   Message(thissubkey,thisname)
	next