カタログeとipad

私たちのサービスの一つに「カタログe－ファイル共有システム」ってのがあります。
簡単に言うと、カタログに使用する素材や写真なんかを一つのDBに登録して、みんなで使いましょ　って感じな物です。
まぁ、最近はカタログにこだわらず、データの共有化って事で売り込んでます。

そのサービスの一つに「Wordでチラシ作成」ってのがあるのですが、これは、
・カタログeから素材を選び、
・自分のパソコンにDLし、
・自分のパソコンのワードで自動組版してチラシを作る
って物があります。

１．「カタログe－ファイル共有システム」ログイン
amiza_retのブログ

2.総合メニュー
amiza_retのブログ

3. WORDチラシ管理をクリック
　過去に作成したWORDチラシがリスト表示
amiza_retのブログ



4.　［新規登録］ボタンクリック
　　チラシにしたいタイトルなどを入力
amiza_retのブログ

5. Wordのチラシに載せたい画像を選択
amiza_retのブログ


ここで、「組版データダウンロード」ってやると、自分のパソコンに選択した画像と商品紹介がダウンロードされて、Wordからマクロを起動させると自動組版するのですが、iPadで「組版データダウンロード」をすると、i文庫HDが入っている私のiPadではi文庫HDが起動します。

amiza_retのブログ

［読む］を選ぶと、選択した画像が表示されます。（当然、ワードの自動組版は動作しません）
まぁ、これだけなんですけど……。
下記のような事が可能かと…。

1.あらかじめ画像に商品のスペックを入れておく。
2.お客さんの所でiPadでカタログeを閲覧。
3.お客さんの意見をお聞きしながら商品を選択。
4.商品のスペック情報（もちろん画像ですけど）がiPadにダウンロードされi文庫HDで閲覧が可能。
5.iPadを利用し、その場でお客様向けのカタログが出来上がる。
ってのが可能となります。

また、商品スペックの変わりに「提案書」を画像化し体系づけして登録しておけば、お客様の意見を聞きながら、その場で最適な提案書が出来上がります。
出来上がったiPad上の提案書は自分とお客様へメール送信。

もう少し、工夫は必要ですけど電子書籍以外でのiPadの活用方法を考えていたので、いいヒントになりました。

カタログeについては下記まで！！

カタログe

資料請求・問い合わせ


ping 20回

「昨日のバッチは動いたけど、一回の操作で行いたい」
という要望があり、手直し。

よくよく考えれば、バッチに書き出さなくてもいい訳で…。
ついでに、回数は20回。パケットは1024と言われ、それも修正。

たぶん、完成。
－－－－－－－－－－－－－－－－－－－－－－－
Dim FSO
Dim oBat
Set FSO = CreateObject("Scripting.FileSystemObject")

Set objShell = WScript.CreateObject("WScript.Shell")
Set objExec = objShell.Exec("ipconfig.exe")

Do Until objExec.StdOut.AtEndOfStream
strLine = objExec.StdOut.ReadLine ' 1行読み込み
If InStr(strLine, "Default Gateway") <> 0 Then ' "Default Gateway" が含まれているか？
iColon = Instr(strLine, ":") ' ":" の位置を調べる
strDGateway = Mid(strLine, iColon + 2) ' アドレス部分の切り出し
strDGateway = Mid(strDGateway, 1, Len(strDGateway)-1) ' 改行の切り出し
exit do
End If
Loop

'/k=DOS窓を終了しない。　l = パケットのデータサイズ。　n=施行回数
objShell.Run "cmd /k ping " & strDGateway & " -l 1024 -n 20"

ping 10回

「ipconfig　で、Default Gatewayのアドレスを取り、そのアドレスにpingを10回行うっていうバッチを作って」
っていう依頼があり、調べた所、
「あぁ、割と簡単」
と思って作ったのが、これ

ipconfig > ipconfig.txt
setx defG -f ipconfig.txt -a 9,12
ping %defG% -n 10
cmd

あれ？　動かない。
いや、何度か適当に動かしていたら、動いた。
けど、%defG%の値が変わらない！？

なんか、一度に動かしても変数の値が変わらないって事で、バッチを分けたりしたけど、どうもちゃんと動作しない…。

仕方ないので、これまたネットで色々しらべてvbsにて、

Dim FSO
Dim oBat
Set FSO = CreateObject("Scripting.FileSystemObject")

Set objShell = WScript.CreateObject("WScript.Shell")
Set objExec = objShell.Exec("ipconfig.exe")

Do Until objExec.StdOut.AtEndOfStream
strLine = objExec.StdOut.ReadLine ' 1行読み込み
If InStr(strLine, "Default Gateway") <> 0 Then ' "Default Gateway" が含まれているか？
iColon = Instr(strLine, ":") ' ":" の位置を調べる
strDGateway = Mid(strLine, iColon + 2) ' アドレス部分の切り出し
strDGateway = Mid(strDGateway, 1, Len(strDGateway)-1) ' 改行の切り出し
exit do
End If
Loop

Wscript.Echo strAddress ' 出力

Set oBat = FSO.CreateTextFile("defg.bat")
oBat.WriteLine( "ping " & strAddress & " -n 10")
oBat.WriteLine( "cmd")
oBat.Close()
Set oBat = Nothing
Set FSO = Nothing

このvbsを動作して、バッチを作って、バッチを動作してもらう…。
う、うーん…。もし、vbsを動作し忘れると前のDefault Gatewayにpingしてしまうが…。
とりあえずはこれで良しとするか……。