Needs["CUDALink`"]

TabView[Table[ii->Grid[Replace[#,Rule[x_,y_] -> {x,y}] &/@CUDAInformation[ii],Frame->All],{ii,1,$CUDADeviceCount}]]