カウンタ
プロフィール

sc440ge

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

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

 [2008/09/04] *

玄箱でトラブル / NAS機器のパスワードが弾かれる




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


・ブログトップへ戻る



[PC古箱]
<--- 最新価格情報へ
<--- パソコン・ソフトの記事へ





玄箱でトラブル / NAS機器のパスワードが弾かれる

080904_23.jpg

ちょっとほこりをかぶってますが、ご容赦下さい。 玄箱には余っていた160GBのHDDをつけてます。

玄箱にパスワードを設定してアクセスできるPCを制限しているのですが、Vistaでは何か動作がおかしい。 ・・・というか、アクセスできません。XPでは大丈夫なのにおかしいと思って調べてみると、同じ症状があちこちのサイトに載っていました。原因はVistaのセキュリティー機能によるものみたいでした。 Vistaの設定を変えないと玄箱にアクセスできないので、その回避方法を。 「Vista Ultimate」と「Vista Home」では方法が違うのでご注意下さい。





---------------------------------
NAS機器のパスワードが弾かれる
---------------------------------

[Vista Ultimate]
コントロールパネルー ---> 管理ツールー ---> ローカルセキュリティーポリシー
---> ローカルポリシー ---> セキュリティーオプション
---> [ネットワークセキュリティー:LAN Manager認証レベル] 
---> [NTLMv2 応答のみを送信する] から
---> [LMとNTLMを送信する - ネゴシエーションの場合、NTLMv2 セッション セキュリティを使う] に変更します。
080904_24.jpg




[Vista Home]  ---> レジストリーを直接編集

スタート---> すべてのプログラム ---> アクセサリ
 ---> 「ファイル名を指定して実行」 ---> 「regedit」と入力

HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Lsa : LmCompatibilityLevel
の値を 3 から 1 へ変更します。

080904_25.jpg












関連記事



・ブログトップへ戻る



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




パーツ・周辺機器 | 【2008-09-04(Thu) 20:40:28】 | 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"