PowerShell.com
Library » Script Library » SharePoint » Slideshow

SharePoint Slideshow

  1. Param ( 
  2.     $DocLibSite = "http://MyMOSS/Reports",     # SHAREPOINT Document Library site 
  3.     $DocLibName  = "Daily"                    # SHAREPOINT Document Library Name 
  4. ) 
  5.  
  6. #REGION EXCEL FUNCTIONS 
  7. function Invoke([object]$m, [string]$method, $parameters) 
  8. { 
  9. $m.PSBase.GetType().InvokeMember( 
  10. $method, [Reflection.BindingFlags]::InvokeMethod, $null, $m, $parameters, 
  11. $ciUS) 
  12. } 
  13.  
  14. Function RefreshExcel {  
  15. Param ( $xls) 
  16. #Only XL* files 
  17. if ($xls.split(".")[-1] -match "xl*") { 
  18.     # US culture 
  19.     $ciUS = [System.Globalization.CultureInfo]'en-US' 
  20.     $Excel = New-Object -ComObject excel.application 
  21.     $thisThread = [System.Threading.Thread]::CurrentThread 
  22.     $originalCulture = $thisThread.CurrentCulture 
  23.     $thisThread.CurrentCulture = New-Object System.Globalization.CultureInfo("en-US") 
  24.  
  25.     $Excel.Visible = $false 
  26.     $Excel.Displayalerts=$false 
  27.  
  28.     $Books = $Excel.Workbooks 
  29.     Write-Progress -Activity "Open file" -status "f:" -PercentComplete 10 -CurrentOperation $xls 
  30.     Try { 
  31.         $ExcelWB = Invoke $Books open($xls); 
  32.     } catch {Write-Host "Open:$_"; $Excel.quit() | Out-Null;Return $false} 
  33.         Write-Progress -Activity "Run Macro" -status "f:" -PercentComplete 40 -CurrentOperation $xls 
  34.     #Run Refresh Macro 
  35.     Try { 
  36.         $Excel.Application.Run("Refresh"); 
  37.     } catch {Write-Host "Run:$_"; $Excel.quit() | Out-Null;Return $false} 
  38.         Write-Progress -Activity "Save file" -status "f:" -PercentComplete 60 -CurrentOperation $xls 
  39.     Try { 
  40.         invoke $ExcelWB Save| Out-Null 
  41.     } catch {Write-Host "Save:$_"; $Excel.quit() | Out-Null;Return $false} 
  42.         invoke $ExcelWB Close | Out-Null 
  43.      
  44.     $Excel.quit() | Out-Null 
  45.     $thisThread.CurrentCulture = $originalCulture 
  46.     Return $true 
  47. } else {} 
  48. } 
  49.  
  50. #REGION SHP 
  51. Function Get-SHPDocList { Param ($site,$listName,$rowLimit = "100") 
  52.     $uri = $site + "/_vti_bin/lists.asmx?WSDL"     
  53.     # Create the service             
  54.     try{             
  55.         $service = New-WebServiceProxy -Uri $uri  -Namespace SpWs  -UseDefaultCredential               
  56.     }             
  57.     catch{              
  58.         Write-Error $_ -ErrorAction:'SilentlyContinue'              
  59.     } 
  60.     # Create xml query to retrieve list.              
  61.     $xmlDoc = new-object System.Xml.XmlDocument             
  62.     $query = $xmlDoc.CreateElement("Query")             
  63.     $viewFields = $xmlDoc.CreateElement("ViewFields")             
  64.     $queryOptions = $xmlDoc.CreateElement("QueryOptions")             
  65.     $query.set_InnerXml("FieldRef Name='ID'")              
  66.      
  67.     $list = $null              
  68.     if($service -ne $null){             
  69.         try{      
  70.             $list = $service.GetListItems($listName, "", $query, $viewFields, $rowLimit, $queryOptions, "") 
  71.         }             
  72.         catch{              
  73.             Write-Error $_ -ErrorAction:'SilentlyContinue'             
  74.         }             
  75.     } 
  76.     if ($list) { 
  77.         $list.data.row | % {$_.ows_EncodedAbsUrl} 
  78.     } 
  79. } 
  80. #ENDREGION SHP 
  81. #ENDREGION EXCEL FUNCTIONS 
  82.  
  83. Get-SHPDocList $DocLibSite $DocLibName 1000 | % { 
  84.     if ($_) { 
  85.         Write-Host "Refreshing ... $_" 
  86.         if (RefreshExcel $_) {Write-host "    SUCCESS Refresh on $_"} else {"    FAILED Refresh on $_"} 
  87.     } 
  88. } 
 
Loading...
View all files
Concentrated Tech NSoftware Dell Compellent Sponsored by Idera and Concentrated Tech and NSoftware and Dell Compellent
Copyright 2011 PowerShell.com. All rights reserved.