Been a while since I blogged on SharePoint. For the past year I have been more involved in DBA work, and have been more active in my other blog (http://sqlmusings.wordpress.com)
Anyway, here is an old script I have been meaning to post:
#* FileName: PowerShellTemplate.ps1#*=============================================================================#* Created: [11 December 2007]#* Author: Donabel Santos#* Reqrmnts: #* Keywords: #*=============================================================================#* Purpose: #* #* This Powershell script queries ActiveDirectory for OU-specific#* users and inserts those users as new records in a Sharepoint#* out-of-the-box Contact List#*=============================================================================#*=============================================================================#* SCRIPT BODY#*=============================================================================#Powershell Script that queries a specific OU in AD,#and populates the Contact List#based on the members that are queried#IMPORTANT NOTE:#This needs to be run on the MOSS Server because the#SP Object Model cannot be invoked remotely#Step 1: Install Powershell RC2#http://support.microsoft.com/kb/925228#Step 2: Set Execution Policy to RemoteSigned (uncomment below)#Set-ExecutionPolicy RemoteSigned#Step 3: Set the following variables$siteUrl = "http://moss/sites/test" $ou = "LDAP://OU=My Group,OU=Guest Users,DC=domain,DC=ca"#Step 4: Run this script on Powershell on the Sharepoint Server#Rest of code follows#Load Sharepoint DLL[System.Reflection.Assembly]::LoadWithPartialName("Microsoft.SharePoint") #we want to query just the top web of the "test" site collection$webName = "" #create a site object$spSite = new-object Microsoft.SharePoint.SPSite($siteurl)
#the following just displays URL, ID, Name and Users in a table format$spSite.AllWebs | format-table Url, ID, Name, AllUsers
#open web$spWeb = $spSite.OpenWeb($webName)
#we want to get a handle on contacts$listName = "Contacts"#get a handle to the Contacts list$spList = $spWeb.lists[$listName]
#Create an AD DirectorySearcher object$searcher = new-object DirectoryServices.DirectorySearcher([ADSI]"$ou")#sample filter below, if you need to filter further#$searcher.filter = "(&(objectClass=user)(givenName=Belle))"#find all that matches$groups = $searcher.findall()
#the following for loop just displays@(foreach($group in $groups)
{[string]$firstname = $group.properties.givenname
[string]$lastname = $group.properties.sn
if (($firstname.length -gt 0) -and ($lastname.length -gt 0))
{ "Given Name:{0} {1}" -f $firstname, $firstname.length}
}
)
#this code block inserts the AD user as a new user #into the Sharepoint Contact list@(foreach($group in $groups)
{ #extract all properties we need first #add fields here if necessary[string]$name = $group.properties.name
[string]$firstname = $group.properties.givenname
[string]$lastname = $group.properties.sn
[string]$company = $group.properties.company
[string]$email = $group.properties.mail
[string]$objectclass = $group.properties.objectclass
[string]$distinguishedname = $group.properties.distinguishedname
#now add this to the sharepoint list only if first name #and last name are not empty #add fields here if necessaryif (($firstname.length -gt 0) -and ($lastname.length -gt 0))
{$spitem = $spList.Items.Add()
$spitem["Last Name"] = $lastname $spitem["First Name"] = $firstname $spitem["Company"] = $company $spitem["E-mail Address"] = $email$spitem.Update()
}
}
)
#voila! we're done!#*=============================================================================#* END OF SCRIPT: #*=============================================================================
