light-hearted.net - September, 2007

Home

人は計画を立て、神はそれを笑う

Sunday, September 30, 2007

Windows Server 2008 RC0 by yama3

ダウンロード可能になっています。
いろんなところで入手可能となっていますね。

とりあえず、インストールだけ完了。
こないだから、評価用に仮想化環境を構築中(ディスク周りが未完了)なので
そちらにインストールしましたが、Beta3にくらべかなりサクサク動作している印象です。

9/28に一時的にサイトが落ちてたみたいですね。
サーバに障害でもあったのかな？

Sunday, September 30, 2007 1:06:53 AM (東京 (標準時), UTC+09:00)

Comments [0] Windows |

Thursday, September 13, 2007

PowerShell と SharePoint まとめ by yama3

其の1と其の2をまとめるとこんな感じ。手抜きコードですが。。。

[Reflection.Assembly]::LoadWithPartialName("Microsoft.SharePoint")
$site = New-Object Microsoft.SharePoint.SPSite("http://wssv3/")
$web = $site.OpenWeb()

function AddListItem([string]$listName, [System.Xml.XmlElement]$item)
{
    $isExists= $false
    $list = $web.Lists[$listName]
    $list.get_items() | foreach{ if($_["ContentId"] -eq $item.guid.get_innertext()){$isExists = $true};}
    if ($isExists) {return}

    $newItem = $list.items.Add()
    $newItem["タイトル"] = $item.title
    $newItem["url"] = $item.link
    $newItem["本文"] = $item.description
    $newItem["ContentId"] = $item.guid.get_innertext()
    $newItem.Update()
}

function GetRss([string]$url, [string]$listName)
{
    $wc = New-Object System.Net.WebClient
    $stream = $wc.OpenRead($url)
    $reader = New-Object System.IO.StreamReader($stream)
    $xml = New-Object System.Xml.XmlDocument
    $xml.LoadXml($reader.ReadToEnd())
    $xml.rss.channel.item | ForEach-Object { AddListItem $listName $_ }
}

GetRss "http://blogs.msdn.com/MainFeed.aspx?Type=AllBlogs" "Blog - MSDN"
GetRss "http://blogs.technet.com/MainFeed.aspx?Type=AllBlogs" "Blog - TechNet"

細かい説明は省きますが、重複してたらはじく仕組みも実装してます。
が、コンテンツが増えるに従って処理時間が伸びること、OOになってないことは改良ポイント。

Thursday, September 13, 2007 10:02:04 PM (東京 (標準時), UTC+09:00)

Comments [0] PowerShell | SharePoint |

Tuesday, September 11, 2007

PowerShell と SharePoint 其の2 by yama3

其の1に続いて。

PowerShell から SharePoint の、リストにデータを追加するスクリプト。

[Reflection.Assembly]::LoadWithPartialName("Microsoft.SharePoint")
$site = New-Object Microsoft.SharePoint.SPSite("http://wssv3/")
$web = $site.OpenWeb()
$list = $web.Lists["お知らせ"]
$newItem = $list.items.Add()
$newItem["タイトル"] = "Title (" + [System.DateTime]::Now.ToString("yyyy/MM/dd HH:mm:ss") + ")"
$newItem.Update()

私はこんな感じでテストデータを自動的に作成しています。

Tuesday, September 11, 2007 10:09:10 PM (東京 (標準時), UTC+09:00)

Comments [0] PowerShell | SharePoint |

PowerShell と SharePoint 其の1 by yama3

いろいろと連携について考えている最中です。

とりあえずとっかかりは以下の通り。

$url = "http://www.light-hearted.net/SyndicationService.asmx/GetRss"
$wc = New-Object System.Net.WebClient
$stream = $wc.OpenRead($url)
$reader = New-Object System.IO.StreamReader($stream)
$xml = New-Object System.Xml.XmlDocument
$xml.LoadXml($reader.ReadToEnd())
$xml.rss.channel.item | ForEach-Object { $_.title + "(" + $_.pubDate + ")" }