質問をすることでしか得られない、回答やアドバイスがある。

15分調べてもわからないことは、質問しよう!

新規登録して質問してみよう
ただいま回答率
87.20%
ネットワーク

ネットワークとは、複数のコンピューター間を接続する技術です。インターネットが最も主流なネットワークの形態で、TCP/IP・HTTP・DNSなどの様々なプロトコルや、ルータやサーバーなどの様々な機器の上に成り立っています。

VB.NET

Microsoft Visual Basic .NETのことで、Microsoft Visual Basic(VB6)の後継。 .NET環境向けのプログラムを開発することができます。 現在のVB.NETでは、.NET Frameworkを利用して開発を行うことが可能です。

受付中

サーバ上のファイルアクセス時に「指定されたネットワーク名は利用できません」エラーが発生

kubocchi
kubocchi

総合スコア10

ネットワーク

ネットワークとは、複数のコンピューター間を接続する技術です。インターネットが最も主流なネットワークの形態で、TCP/IP・HTTP・DNSなどの様々なプロトコルや、ルータやサーバーなどの様々な機器の上に成り立っています。

VB.NET

Microsoft Visual Basic .NETのことで、Microsoft Visual Basic(VB6)の後継。 .NET環境向けのプログラムを開発することができます。 現在のVB.NETでは、.NET Frameworkを利用して開発を行うことが可能です。

1回答

0評価

0クリップ

7715閲覧

投稿2018/12/04 06:40

編集2022/01/12 10:55

サーバ上に配置した、VB.net(.NetFrameWork2.0)で作成した、サーバ上のテキストファイルをオープン~1行書込み~Closeを繰り返すアプリケーションをWindows10クライアントからショートカットで実行時に、ファイルオープンもしくは書き込み時に「指定されたネットワーク名は利用できません」という例外エラーが不定期に発生します。

異常が発生するWin10クライアントと同一ネットワーク内にあるWin7クライアントではエラーは発生しません。

使用しているサーバはWindows Server 2012 R2、別セグメントに存在します。

当該エラーの発生原因をご教示下さい。

追記
当該アプリケーションのソースコードを追加します。

Imports System.Net Public Class Form1 Public LogPath As String = "" Private Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" _ (ByVal lpApplicationName As String, _ ByVal lpKeyName As String, _ ByVal lpDefault As String, _ ByVal lpReturnedString As String, _ ByVal nSize As Integer, _ ByVal lpFileName As String) As Long Private Sub Button1_Click( sender As System.Object, e As System.EventArgs) Handles Button1.Click If Timer1.Enabled = False then Timer1.Enabled = True End If Button1.Enabled = False Button2.Enabled = True Button3.Enabled = False End Sub Private Sub Button2_Click( sender As System.Object, e As System.EventArgs) Handles Button2.Click If Timer1.Enabled = True then Timer1.Enabled = False End If Button1.Enabled = True Button2.Enabled = False Button3.Enabled = True End Sub Private Sub Button3_Click( sender As System.Object, e As System.EventArgs) Handles Button3.Click If Timer1.Enabled = False then End End If End Sub Private Sub Form1_Load( sender As System.Object, e As System.EventArgs) Handles MyBase.Load Timer1.Interval = 100 Timer1.Enabled = False Button1.Enabled = True Button2.Enabled = False Button3.Enabled = True Dim strResult As String = Space(255) Call GetPrivateProfileString("WEB", "LOG", "", _ strResult, Len(strResult), _ "web.ini") LogPath =GetIniFile("WEB", "LOG", "bsweb.ini") End Sub Private Sub Timer1_Tick( sender As System.Object, e As System.EventArgs) Handles Timer1.Tick Dim FName As String = "" Dim fno As Integer Dim HostName as String = "" If Not NTGetHostName(HostName) then End End If FName = LogPath & "\TEST_" & HostName & "_" & Now.ToString("yyyyMMdd") & ".log" fno = FreeFile() FileSystem.FileOpen(fno, FName, OpenMode.Append, OpenAccess.Write) FileSystem.Print(fno, Now.ToString("yy/MM/dd HH:mm:ss") & vbCrLf) FileSystem.FileClose(fno) End Sub Public Function GetIniFile(ByVal section As String, _ ByVal entry As String, _ ByVal iniFile As String) As String '!! GetIniFile = GetIni(section, entry, GetAppPath() & "\" & iniFile) Exit Function End Function Public Function GetIni(ByVal section As String, _ ByVal entry As String, _ ByVal iniFile As String) As String Dim strResult As String = Space(255) Call GetPrivateProfileString(section, entry, "", _ strResult, Len(strResult), _ iniFile) GetIni = Microsoft.VisualBasic.Left(strResult, _ InStr(strResult, Chr(0)) - 1) End Function Private Function GetAppPath() As String Return System.IO.Path.GetDirectoryName( _ System.Reflection.Assembly.GetExecutingAssembly().Location) End Function Public Function NTGetHostName(ByRef sHostName As String) As Boolean Try sHostName = Dns.GetHostName() NTGetHostName = True Catch ex As Exception NTGetHostName = False NTError() End Try End Function Private Sub NTError(Optional ByVal sPlus As String = "") Dim vErrMsg1 As String Dim vRc As Integer vErrMsg1 = strings.Right("000000" & Err.Number, 6) & ":" & Err.Description If sPlus = "" Then vErrMsg1 = vErrMsg1 & vbCrLf Else vErrMsg1 = vErrMsg1 & vbCrLf & "補足説明:" & sPlus End If vRc = MsgBox("ネットワークエラー" & vbCrLf & vErrMsg1, vbCritical) End Sub End Class

以上のコードをForm内に記載、ボタンを3つ並べ、Button1クリック時にTimer1のEnabledをTrueにし、Timer1_Tick内で Button2がクリックされるまでテキストファイルへの処理を繰り返し、Button3
でアプリケーションを終了しています。

ソースコードの開示方法がこれでよいか不安ですが、引き続きアドバイスの程よろしくお願い致します。

--マルチポストについて
SurferOnWww様
恥ずかしながらご指摘を受けるまで「マルチポスト」を知りませんでした。
御無礼をお詫びいたしますと共に、MSDN側での質問は完了とさせて頂きました。
引き続きアドバイスの程よろしくお願い致します。

良い質問の評価を上げる

以下のような質問は評価を上げましょう

  • 質問内容が明確
  • 自分も答えを知りたい
  • 質問者以外のユーザにも役立つ

評価が高い質問は、TOPページの「注目」タブのフィードに表示されやすくなります。

気になる質問をクリップする

クリップした質問は、後からいつでもマイページで確認できます。

またクリップした質問に回答があった際、通知やメールを受け取ることができます。

teratailでは下記のような質問を「具体的に困っていることがない質問」、「サイトポリシーに違反する質問」と定義し、推奨していません。

  • プログラミングに関係のない質問
  • やってほしいことだけを記載した丸投げの質問
  • 問題・課題が含まれていない質問
  • 意図的に内容が抹消された質問
  • 過去に投稿した質問と同じ内容の質問
  • 広告と受け取られるような投稿

評価を下げると、トップページの「アクティブ」「注目」タブのフィードに表示されにくくなります。

ozwind918

2018/12/04 08:18

ソースコードを記載するなどしてどのような通信方式でファイルオープンしているかなどの詳細情報があるとより回答が付きやすいかと思います。
YAmaGNZ

2018/12/04 13:46

ソースコードは<code>を押して、```と```の中に記述してください。
SurferOnWww

2018/12/05 01:16

マルチポストのようですので他のポスト先の URL を貼っておきます。 https://social.msdn.microsoft.com/Forums/ja-JP/9690fea2-250e-4a64-84aa-9d64f802f355/12469125401249619978123981250112449124521252312450124631247512?forum=vbgeneralja 質問者さんへ> 「マルチポスト」の意味が不明でしたら、それをキーワードにググってヒットする記事を 2, 3 読んでみることをお勧めします。ここ Teratail では非推奨で、それなりのルールが書いてあるので読んでください。 https://teratail.com/help#posted-otherservice

まだ回答がついていません

会員登録して回答してみよう

15分調べてもわからないことは
teratailで質問しよう!

ただいまの回答率
87.20%

質問をまとめることで
思考を整理して素早く解決

テンプレート機能で
簡単に質問をまとめる

質問する

関連した質問

同じタグがついた質問を見る

ネットワーク

ネットワークとは、複数のコンピューター間を接続する技術です。インターネットが最も主流なネットワークの形態で、TCP/IP・HTTP・DNSなどの様々なプロトコルや、ルータやサーバーなどの様々な機器の上に成り立っています。

VB.NET

Microsoft Visual Basic .NETのことで、Microsoft Visual Basic(VB6)の後継。 .NET環境向けのプログラムを開発することができます。 現在のVB.NETでは、.NET Frameworkを利用して開発を行うことが可能です。