Added M query for Active Directory Users and template for quick start development

Author: aduguid

Miscellaneous/Miscellaneous.vbproj

@@ -130,6 +130,7 @@
     <None Include="App.config" />
     <None Include="Scripts\DAX\Dynamic_Number_Format.dax" />
     <None Include="Scripts\DAX\Calendar.dax" />
+    <None Include="Scripts\M\Users.M" />
     <None Include="Scripts\RSS\Apply_Header_Footer.rss" />
     <None Include="Scripts\RSS\Backup_Reports.rss" />
     <None Include="Scripts\DAX\Calendar_Ageing.dax" />
@@ -138,6 +139,7 @@
     <None Include="Scripts\M\Calendar.M" />
     <None Include="Scripts\RSS\Deploy_Reports.rss" />
     <None Include="Config\SSRS_Branding.xlsm" />
+    <None Include="Templates\Template.pbix" />
   </ItemGroup>
   <ItemGroup>
     <Content Include="Config\Notepad++ DAX.xml" />
@@ -161,9 +163,7 @@
       <Install>false</Install>
     </BootstrapperPackage>
   </ItemGroup>
-  <ItemGroup>
-    <Folder Include="Templates\" />
-  </ItemGroup>
+  <ItemGroup />
   <Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" />
   <!-- To modify your build process, add your task inside one of the targets below and uncomment it. 
        Other similar extension points exist, see Microsoft.Common.targets.

Miscellaneous/Scripts/M/Users.M

@@ -0,0 +1,17 @@
+//Active Directory list of users, set the parameter "domain_name"
+
+let
+    Source = ActiveDirectory.Domains(domain_name),
+    domain_name = Source{[Domain=domain_name]}[#"Object Categories"],
+    user1 = domain_name{[Category="user"]}[Objects],
+    #"Removed Other Columns" = Table.SelectColumns(user1,{"organizationalPerson", "displayName"}),
+    #"Reordered Columns" = Table.ReorderColumns(#"Removed Other Columns",{"displayName", "organizationalPerson"}),
+    #"Expanded organizationalPerson1" = Table.ExpandRecordColumn(#"Reordered Columns", "organizationalPerson", {"mail", "thumbnailPhoto", "title", "department"}, { "User Email", "thumbnailPhoto", "title", "department"}),
+    #"Changed Type" = Table.TransformColumnTypes(#"Expanded organizationalPerson1",{{"thumbnailPhoto", type text}}),
+    #"Added Prefix" = Table.TransformColumns(#"Changed Type", {{"thumbnailPhoto", each "data:image/jpeg;base64," & _, type text}}),
+    #"Filtered Rows" = Table.SelectRows(#"Added Prefix", each ([thumbnailPhoto] <> null)),
+    #"Removed Duplicates" = Table.Distinct(#"Filtered Rows", {"User Email"}),
+    #"Filtered Rows1" = Table.SelectRows(#"Removed Duplicates", each ([User Email] <> null and [User Email] <> "-")),
+    #"Renamed Columns" = Table.RenameColumns(#"Filtered Rows1",{{"displayName", "User_Full_Name"}, {"User Email", "User_Email"}, {"thumbnailPhoto", "User_Photo"}, {"department", "Department"}, {"title", "Title"}})
+in
+    #"Renamed Columns"