新規投稿 記事一覧 ホーム
●ご利用方法,ご利用に際しての規約はこちらをお読みください。
こちらからの投稿は、先頭に表示されているコメントへの返信になります。
PCOMの転送　ID/Passwd DG さん [ 5月26日(月) 14時21分 ]

    こんにちは

    今迄WinXpとOffice2003を使用していたのですけどやっと入替えになりました。
    その際にExcelのVBでPCOMを絡めた物を作っていたのですけどWin7/Office2013になってPcomも5.8に
    なったら問題が発生しました。

    転送時にID/Passwdをそのパソコンで一回目は入力する必要はWinXPでも行っていましたので納得でき
    ました。
    2回目以降に関してはパソコンの電源を落さない限りID/Passwdは保持されるのです。
    AS400のログオン先/パスワードは記録されるのですけど毎回【OK】をクリックしなければなりません。
    エクセルのマクロで処理しているのですけどこの処理を4回ほど行うのですけど結構煩わしくなてき
    たのです。
    この処理問題を解決された方居ませんでしょうか？

    RE:PCOMの転送　ID/Passwd ASD さん [ 5月28日(水) 11時8分 ]

      PCOMM　5.8　のサポートは　XPまで。
      WIN7PRO　PCOMM　6.0　だけど　問題はない。

    RE:PCOMの転送　ID/Passwd Mew さん [ 5月29日(木) 8時36分 ]

      ASD様

      レスありがとう御座います
      エクセルのVBと絡めて
      Sub　test()

      Dim　Xmemo
      Dim　strS　　　As　String
      Dim　oShell　As　Object
      Dim　FSO　　　　As　Object
      Set　FSO　=　CreateObject("Scripting.FileSystemObject")
      Set　oShell　=　CreateObject("WSCript.shell")

      strS　=　FSO.GetFile("C:\Program　Files\Personal　Communications\pcsft5.exe").ShortPath　&　_
      "　"　&　_
      FSO.GetFile("C:\Program　Files\Personal　Communications\Private\TEST.TTO").ShortPath
      Xmemo　=　oShell.Run(strS,　1,　True)

      Set　oShell　=　Nothing
      Set　FSO　=　Nothing

      End　Sub

      で転送していたんです。
      そこで上記の問題になりました
      6.0では問題ないのですね。羨ましいです

      RE:PCOMの転送　ID/Passwd DG さん [ 5月29日(木) 17時51分 ]

        >　ASD様
        >　
        >　レスありがとう御座います
        >　エクセルのVBと絡めて
        >　Sub　test()
        >　
        >　Dim　Xmemo
        >　Dim　strS　　　As　String
        >　Dim　oShell　As　Object
        >　Dim　FSO　　　　As　Object
        >　Set　FSO　=　CreateObject("Scripting.FileSystemObject")
        >　Set　oShell　=　CreateObject("WSCript.shell")
        >　
        >　strS　=　FSO.GetFile("C:\Program　Files\Personal　Communications\pcsft5.exe").ShortPath
        　&　_
        >　"　"　&　_
        >　FSO.GetFile("C:\Program　Files\Personal　Communications\Private\TEST.TTO").ShortPath
        >　Xmemo　=　oShell.Run(strS,　1,　True)
        >　
        >　Set　oShell　=　Nothing
        >　Set　FSO　=　Nothing
        >　
        >　End　Sub
        >　
        >　で転送していたんです。
        >　そこで上記の問題になりました
        >　6.0では問題ないのですね。羨ましいです

        失礼しました名前間違えました

■お名前
■パスワード
■e-mailアドレス
■タイトル
■ホームページ
■アドレス