カウンタ
プロフィール

sc440ge

Author:sc440ge
「あめた」です。大ケガをして拾われたニャン。サーバーの空き箱に入ってるニャン。
「あめた」ありがとう。
20130603

sc440ge@yahoo.co.jp
パソコン価格情報

 [2009/09/10] *

WHS (Windows Home Server)でクライアントのバックアップ




■■■■■■■■■■ Entry Start ■■■■■■■■■■


・ブログトップへ戻る




WHS (Windows Home Server)でクライアントのバックアップ

pc_1015.png


 ちょっと古いパソコンをWHSサーバーにしてクライアントをバックアップしてみました。合計で200GB程度のデータです。一回目のバックアップにかかった時間は、約7時間でした。 ちょっと時間がかかりすぎているような気がします。WHSはバックアップファイルを作成するときに圧縮しているようですので、その時にCPUのパワーが必要なのかもしれません。 4GBのファイルがいくつかあるので、このあたりの転送で時間がかかっているのか。

もう少しスペックが高いサーバーでは、これほどバックアップに時間がかからなかったと思います。 サーバー側もスペックが高い方が良いのかもしれません。




[ルーター]
・100BASE-TX


[サーバー(WHS)のスペック]
・自作PC
・マザーボード:P4G800-V
・CPU:セレロン 2.3GHz
・メモリ 1GB
・HDD: IDE 80GB
・ドライブ:GSA-4082B

*バックアップ時のサーバーの状態
pc_1017.png



[クライアントのスペック]
・NEC Express5800/110Gd
・CPU:CeleronD 341 2.93GHz
・メモリ 512MB
・HDDは下図

*バックアップするHDD
pc_1014.png





関連記事



・ブログトップへ戻る



ちょっと待ってニャン。まだ何か買うニャンか? パソはやめれないニャンか?いたずらしないからゲージから出してニャン。拍手はちょっとだけ好きニャン。
ame-thinks.jpg




WHS (Windows Home Server) | 【2009-09-10(Thu) 16:44:50】 | Trackback(-) | Comments(-)
編集  

 
Ads by Google 1
最新記事

[Key]
vbCrLf Chr(10) Chr(13) Application.WorksheetFunction.Max End(xlUp) ActiveCell.Row - 1 Cells(11,"B").Select Worksheet_SelectionChange UserForm Application.Wait Now() Application.Speech.Speak CreateObject("SAPI.SpVoice") voice.getdescription() Do While  TimeValue< Len vbNarrow Replace trim Until  Exit Do Like Right UBound Split vbLf ActiveSheet.Hyperlinks.Add Anchor Range GetVoices.Count voice.getdescription Item ColumnCount ColumnWidths  ColumnCount ColumnWidths Cells(10, "IV").End(xlToLeft).Column .PageSetup.PrintArea Label ComboBox CheckBox OptionButton ListBox vlookup NumberFormatLocal  Application.GoTo Reference:=Range("$B$4"), Scroll:=True ActiveSheet.ScrollArea = "A1:D65536"  Cells(1, "A").NumberFormatLocal = "yy/mm/dd" Selection.Delete Shift:=xlUp IsError Application.VLookup DoEvents Loop CriteriaRange AdvancedFilter Action:=xlFilterInPlace .SaveAs , xlCSVActiveSheet.Hyperlinks.Add Anchor:=Selection, Address< Dir(ThisWorkbook.Path & "\*") Set myRng = myData.Find(myWord, LookAt:=xlPart) Application.WorksheetFunction.Match InStr Left Mid Trim Replace StrConv vbNarrow ComboBox1.AddItem ListBox1.AddItem Like 'ActiveCell.Interior.ColorIndex = 37 Rows(ActiveCell.Row).Interior.ColorIndex = xlNone Selection.ClearContents Selection.Clear Range(Cells(myRow1, "A"), Cells(myRow2, "C")).ClearContents ActiveSheet.PageSetup.PrintArea = "$A$2:$C$10"