VBSで便利なプログラムを作れスレ 2

**デフォルトの名無しさん** · 2018/10/13(土) 22:56:48.61

素人丸出しお粗末で遅くてもいいので
いますぐ使えるちょっぴり便利プログラムを作れ
（例○○を自動処理してくれるプログラム）

前スレ
VBSで便利なプログラムを作れスレ
https://mevius.5ch.net/test/read.cgi/tech/1170492587/

**デフォルトの名無しさん** · 2022/06/04(土) 14:24:29.43

Accessに対してLoadFromTextをするとメッセージが出て鬱陶しい場合がある。
消す方法ありますかねえ？
objApp.Docmd.SetWarning 0は効果ありませんでした

**デフォルトの名無しさん** · 2022/07/14(木) 08:09:05.85

終端装置の設定画面を自動操作してIPアドレスを毎日変えられるようにしました。

IEのWEBページからのメッセージの操作はマウス操作自動化ソフトのショートカットキーをセンドキーして何とか完璧に動くようになりました。

スケジューラーに頼らずにiniで作動時刻や作動間隔を指定できて、vbsを動かしてる最中でも設定変更を反映させられるようにしました。

IPアドレスが変わったら自動でお知らせメールが届くので、停電でIPアドレスが変わってもドメイン無しでIPアドレスでアクセスできて便利です。

プログラムは全くの素人なので作るのに何日もかかりましたが、vbsって便利ですね。
先人の知恵とその無償提供にただひたすら感謝です。

**デフォルトの名無しさん** · 2022/07/16(土) 20:28:34.71

Windwos のタイムスケジューラでvbs 実行すると途中で止まるタスクが終わらない。
ある特定のとこで動かなくなってた。
以下のコマンドなんですけど、何が理由かわかりませんか？

＞ Set xxx = Fso.OpenTextFile("C:\xxxx.txt", 1, False, 0)

**デフォルトの名無しさん** · 2022/07/16(土) 20:29:18.97

>>821
手実行だと、うまく動きます。

**デフォルトの名無しさん** · 2022/07/17(日) 05:04:19.66

まあ、いやらしい！

**デフォルトの名無しさん** · 2022/07/17(日) 09:56:59.92

この程度で興奮しているのかい？
ならここから始めようか

Option Ecstasy

**デフォルトの名無しさん** · 2022/07/17(日) 14:10:50.12

ファイル/フォルダのアクセス権限かも？

例えば、VSCode 内の端末から、
ruby a.rb みたいに、Ruby スクリプトを実行すると、

そのスクリプト内にファイル操作が書いてある場合、
そのプログラムにはアクセス権限が無いと、エラーが出る

実行するプログラムに、そのファイル/フォルダのアクセス権限を許可する必要がある

OS のエラーログでも見てみれば？
それで、どういうエラーか判別する

**デフォルトの名無しさん** · 2022/07/17(日) 15:29:02.31

KИTAはうざい
消えて

**デフォルトの名無しさん** · 2022/07/17(日) 16:09:33.19

あわしろを先に何とかしたほうが良いのでは？

**デフォルトの名無しさん** · 2022/12/09(金) 07:59:46.45

久しぶり、何年ぶりかなここ来るの
生きてる？
最近機械学習の勉強を始めたので、VBS使って下準備いろいろするわ
しばらくいるからよろしくな

**デフォルトの名無しさん** · 2022/12/10(土) 16:47:20.18

さて質問、wavファイルの正確な長さを知りたい、１秒以下の小数点単位まで
ファイルのプロパティでは1秒単位までしか拾えず
バイナリヘッダにも長さの情報はない

windows media playerを使って取得する方法とかある？

**デフォルトの名無しさん** · 2022/12/11(日) 02:45:39.10

WAVEってビットレート固定じゃないの?
圧縮して拡張子だけ.wavにしてるやつ?
ファイル容量で分からん?

**デフォルトの名無しさん** · 2022/12/11(日) 09:37:57.57

ffmpegに付属するffprobeってのでwavの長さが出力されるみたいなので、それを使おうと思う
でもWshShell.Execでやっても標準出力のデータが取れないんだけど、どうしたらいいんだ

**デフォルトの名無しさん** · 2022/12/12(月) 12:24:10.22

とりあえずこれで小数点以下のwavファイルの長さ取れたわ、ffprobe.exe必須

Dim sCmd, Exec, result
sCmd = ws.CurrentDirectory & "\" & "ffprobe.exe -loglevel quiet -show_streams " & ws.CurrentDirectory & "\" & "hoge.wav"
Set Exec = ws.Exec("cmd /c " & sCmd & " 2>&1 | findstr -i duration=")
result = Split(Replace(Exec.StdOut.ReadAll, vbCrLf, ""), "=")
WScript.Echo result(1)

**デフォルトの名無しさん** · 2022/12/13(火) 20:27:40.67

vbsでエラーが発生した行数を得るには？

**デフォルトの名無しさん** · 2023/01/02(月) 10:17:23.27

office以外で無料でかつ、信頼されているcomオブジェクトでwinapiにアクセスできるものってない？

**デフォルトの名無しさん** · 2023/01/11(水) 16:31:27.76

winapi経由でキーダウンを検知するところまではできたのだけれど
押したキーの標準入力がついて来てしまうの、いらないのだけけれど
どうしたら削除できますか

**デフォルトの名無しさん** · 2023/03/28(火) 22:16:36.04

　　　∧∧　　ミ　＿　ドスッ
　　 (　　,,)┌─┴┴─┐
　　/　　　つ　おわり. 　|
～′　/´　└─┬┬─┘
　∪ ∪　　　　││　_ε３

**デフォルトの名無しさん** · 2023/04/04(火) 16:35:56.23

VBSでADO RecordsetにCSVファイルを取り込むと電話番号の先頭のゼロが落ちるのな｡
iniファイルを使わないと"0"　& するしかないのかな？

**デフォルトの名無しさん** · 2023/04/06(木) 00:16:15.07

ダミーの文字型の文字を何行か紛れ込ませて、そのカラムは文字型だと思い込ませるとか?

**デフォルトの名無しさん** · 2023/04/10(月) 19:40:04.80

>>838
それだと元のデータがファイルリストだとダミーのファイルが必要になりますね｡
そのうち､それがダミーなのを忘れて､なんかエラーを出しそうな予感が…

いろいろとVBSの限界を感じる今日この頃｡やっぱりpythonへ移るべきかなあ

**デフォルトの名無しさん** · 2023/05/27(土) 15:49:26.58

VBSの最大且つ唯一のメリットは開発環境がインストール済みということだから、Pythonをインストール出来る環境であればそ」もありかと。
自分の職場はインターネットから切り離された環境なのでVBSかVBAくらいしか使ってない。PowerShellはやらず嫌いだけど。

**デフォルトの名無しさん** · 2023/05/27(土) 20:26:14.82

ま、pythonに行くわ
pythonはみんな使ってるから得るものが多い

**デフォルトの名無しさん** · 2023/05/28(日) 03:21:43.65

>>837
Ruby では、オプションに変換関数・converter を指定できる

require 'csv'

input_csv = <<"EOT"
2022-10,あ,100
2023-01,い,200
EOT

require 'date'

# 月をDate 型へ、金額を整数型へ変換する
proc = Proc.new do |field, field_info|
case field_info.index # 列のインデックス
when 0 then Date.strptime( field, "%Y-%m" )
when 2 then field.to_i
else
field # 処理なし
end
end

options = { :converters => proc }

CSV.parse( input_csv, options ).each { |row| p row }

出力
[#<Date: 2022-10-01 ((2459854j,0s,0n),+0s,2299161j)>, "あ", 100]
[#<Date: 2023-01-01 ((2459946j,0s,0n),+0s,2299161j)>, "い", 200]

**デフォルトの名無しさん** · 2023/05/28(日) 03:22:27.58

>>834
Ruby では、win32ole を使う

require 'win32ole'

fso = WIN32OLE.new( 'Scripting.FileSystemObject' )
p WIN32OLE.codepage #=> 65001, UTF-8

**デフォルトの名無しさん** · 2023/05/29(月) 16:34:12.97

>>842
Rubyはつかったことないんですよねえ｡
でも､教えてくれてありがとうございます｡
暇なときにRubyで遊んでみますね｡

**デフォルトの名無しさん** · 2023/05/29(月) 17:35:48.58

いや、Rubyなんて使わん方がいい
もう終わってるし、Web以外では使われていない

**842** · 2023/05/29(月) 19:59:39.69

Ruby はウェブ開発で、Ruby on Rails がほとんどだけど、
テキスト処理やツール開発にも良い

Vagrant や、ログ収集基盤ソフト Fluentd、
Shopify のカスタマイズ用言語 Liquid、
GitHub の静的サイトジェネレーター Jekyll などはRuby製

Mastodon はRails 6。
PHP よりも可読性が高いから、Rubyに変わった

YouTube で有名な雑食系エンジニア・KENTA は、
初心者のキャリアパスは、Rails → Go だけと言ってる

米国年収でも、Rails, AWS Solution Architect が13万ドル

Ruby, Elixir : 9.3 万ドル
Go : 8.9
Rust : 8.7

Go/Rust/Elixir の3大言語を超えた

**デフォルトの名無しさん** · 2023/05/29(月) 20:03:53.88

実際には使われていない
それがRuby
だからスレ違いの場所で必死になって宣伝する
関わってはいけません

**デフォルトの名無しさん** · 2023/05/31(水) 07:59:45.59

batファイルからpython.exeを起動すればインストールされてなくても動くんだな
もう戻ってこれんよ

**デフォルトの名無しさん** · 2023/07/10(月) 11:16:00.95

質問です。
Outlookを経由してメールファイルをリッチテキスト形式に変換するVBSを組んだのですが、
msgファイルを変換した場合は正常に動作するのに、
emlファイルを変換しようとした場合「***を開けません。ファイルは既に開かれているか、またはファイルを開くための権限がない可能性があります。」というエラーが出てしまいます。
コード：80030050
ソース：Microsoft Outlook
と表示されています。
どうもApplication.CreateItemFromTemplate メソッド (Outlook)の部分でエラーになっているようなのですが…。
原因及び対策法お分かりになる方いらっしゃいませんか？

**デフォルトの名無しさん** · 2023/10/10(火) 09:42:52.20

非推奨になった言語は終わり

**デフォルトの名無しさん** · 2024/02/08(木) 17:58:08.82

>>0837
Schema.iniを書けばよろし

**デフォルトの名無しさん** · 2025/05/12(月) 14:30:31.34

VBSそろそろ死んだかな

**デフォルトの名無しさん** · 2025/05/20(火) 18:30:05.16

vbsの代わりにpowershellを使えというから、ネットを参考にエクセルブックを操作するコードを書いてみてるけど、COMオブジェクトっていうんですかね、タスクマネージャにEXCEL.EXEが残ったり、ガベコレ?に数十秒掛かってEXCELが消滅したり、慣れるまでかかりそうです

あと、psの冗長な記述、スイッチとか嫌だなぁ