カウンタ
プロフィール

sc440ge

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

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

 [2010/07/06] *

[ DWR-PG ] ハブを使って複数台のパソコンで有線接続する




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


・ブログトップへ戻る



[ DWR-PG ] ハブを使って複数台のパソコンで有線接続する


buffalo(NTTドコモ)のポータブルWi-Fiルーター「DWR-PG」をハブに有線接続して、複数台のパソコンでインターネットできるか試してみました。 2台のパソコンを有線接続してみましたが、問題なく動作しました。動画サイト(YouTube等)を同時にみたりするのは厳しいと思いますが、ISDNしか使えない地域では、救世主的な存在だと思います。

dwr-pg-hub-001.jpg





1. クレードルのスイッチを「LAN」にする
dwr-pg-hub-005.jpg





2. ハブの1番目にクレードルからのLANケーブルさします
3. ハブの4番・5番にパソコンからのケーブルをさします。
*どこにLANケーブルをさしても問題ありません。
dwr-pg-hub-003.jpg




ケーブルをつなげるだけで、自動的にIPアドレスがふられます。
dwr-pg-hub-006.png




[ DWR-PGのクライアントモニター ] 2台のパソコンにIPアドレスがふられています。
「端末同時接続数 6台」となっているようですので、6台まではIPアドレスがふられると思います。
dwr-pg-hub-007.png







関連記事



・ブログトップへ戻る



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




その他 | 【2010-07-06(Tue) 09:24:32】 | 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"