Thank You Ilian, but I seems not working -- see below
In[1]:= AstronomicalData["Planet"]
AstronomicalData::dlfail: Internet download of data for AstronomicalData failed. Use Help > Internet Connectivity... to test or reconfigure internet connectivity. >>
Out[1]= $Failed
In[2]:= Evaluate[$UserBaseDirectory]
Out[2]= "C:\\Users\\Tomá\\AppData\\Roaming\\Mathematica"
In[3]:= $UserBaseDirectory = \
"c:\\Users\\TomasMathematica\\AppData\\Roaming\\Mathematica"
Out[3]= "c:\\Users\\TomasMathematica\\AppData\\Roaming\\Mathematica"
In[4]:= Evaluate[$UserBaseDirectory]
Out[4]= "c:\\Users\\TomasMathematica\\AppData\\Roaming\\Mathematica"
In[5]:= AstronomicalData["Planet"]
During evaluation of In[5]:= AstronomicalData::dlfail: Internet download of data for AstronomicalData failed. Use Help > Internet Connectivity... to test or reconfigure internet connectivity. >>
Out[5]= $Failed