VBScript

現在VBScriptを実務で使用しています。VBSCriptでは配列の種類が複数あります。 今回はVBScriptの配列についてまとめます。 環境 静的配列と動的配列の違い 静的配列 動的配列 配列の初期化 静的配列 動的配列 参考 最後に 環境 Windows 11 Pro 22H2 Microsoft-IIS/10.0 ASP 5.8 (16384) 静的配列と動的配列の違い 静的配列 要素数が決まっているときに使用する ' ()内は最大インデックス数を入れる Dim arr(2) arr(0) = "a" arr(1) = "b" arr(2) = "c" Response.Write(…

スマホゲームのガチャに課金してしまい、後悔したことがある人は世の中にたくさんいる。中には課金しすぎて借金をしたり、家族との関係が悪化して取り返しのつかないことになった人さえいる。 おそらく、そういう人たちはガチャに課金してどれぐらいのリターンがあるのか計算していないのだろう。だから、当たりが出るまで課金し続けてしまうのだ。 欲しいキャラが出る確率が1パーセントのガチャがあるとする。100回引いた場合、お目当てのキャラが出る可能性はどれくらいなのか。高校数学を勉強していれば計算で求めることはできるが、体感として知るには実際にガチャを引いてみるのがいい。 そこで、100連ガチャを1000回やってみ…

数値を漢数字に変換するプログラム Function KanSuuK(num) Kingaku=0 '0=漢数字 1=金額漢数字 If Kingaku=0 Then saKeta=Array("","万","億","兆","京","垓","𥝱","穣","溝","澗","正","載","極","恒河沙","阿僧祇","那由他","不可思議","無量大数") Else saKeta=Array("","萬","億","兆","京","垓","𥝱","穣","溝","澗","正","載","極","恒河沙","阿僧祇","那由他","不可思議","無量大数") End If If IsNumeric…

指定時間後にWindowsをシャットダウンかスリープにするVBscriptをつくってみました。 このスクリプトを使用するには、テキストエディタにコードをコピーし、.vbs拡張子で好きな名前で保存します。 スクリプトが実行されると、カウントダウン時間（秒）をユーザーに問い合わせます。好きな秒数を入力してください。 次に、カウントダウンを開始するかどうか、ユーザーに確認を問い合わせます。 ユーザーが確認すると、カウントダウンが開始され、残り時間が5秒ごとに表示されます。 カウントダウンが完了すると、Windowsはシャットダウンまたはスリープモードに移行します。 シャットダウンかスリープモードかを…

VBScript で、変数の宣言と値の代入（初期化）を一行で書く方法を記載します。 １行で書く方法 Dim で宣言して、コロン : の後で代入します。 Option Explicit Dim num: num = 0 Dim str: str = "文字列" Dim fso: Set fso = WScript.CreateObject( _ "Scripting.FileSystemObject" _ ) オブジェクトの場合は Set が必要になります。 型は不要 VBA のように、型を指定するとエラーになります。 Option Explicit Dim num As Long: num =…

やりたいこと パワーポイントのスライドに複数画像ファイルを貼り付ける 操作方法は、作成したVBSに画像ファイルをドロップする知恵袋 detail.chiebukuro.yahoo.co.jp の回答・ヒントになるか？自信無いが作成してテスト#VBScript #PowerPointVBA #パワポ #画像貼り付け #マクロ #デバッグ #Shapes #AddPicture下記、いつもの解説動画・・・あのあの イライラ動画ですがよろしく・・・ youtu.be https://youtu.be/jZV4o_Uz0oY 目次 00:00 挨拶、やりたいこと 00:48 いきなりテストしてみる 0…

VBSコード csvファイルを1行づつ読み込み、特定の列に特定の値があった場合その行をスキップする。それ以外なら新しく作ったcsvファイルに出力するコード。ハイエナコード。 Option Explicit'------------------ Dim objFso Dim objWshShell'------------------ Dim InfilePath Dim OutfilePath'------------------ Dim InObjFile Dim OutObjFile'------------------ Dim OutFileCreate'----------------…

このブログは別の場所でSOCにも携わっている経験のある株式会社Armorisのseanが、本人の興味範囲に基づいて収集したサイバーセキュリティ関連の出来事をまとめたものです。 各出来事に関するコメントは個人の意見です。 サイバー世界情勢 地域的なサイバーセキュリティの話題。サイバー攻撃の話題の場合は、攻撃を受けた側の地域別に分類。地域分けが間違っていたらご容赦ください。 アジア 10/2 Attacks on Azerbaijan Businesses Drop Malware via Fake Image Files https://www.darkreading.com/dr-global…

病院のSEとして10年以上働いている@whitefox21seです。 ▼Xで最新記事をツイートしてます。こちらもよろしくお願いします！Follow @whitefox21se 季節外れの暑さが続くと思ったら、急激に冷え込んできましたね。北海道では初雪を観測するなど、秋をすっ飛ばして一気に冬が到来しました。年々、寒暖差の変化に厳しさを感じます…。

(動作せず。ダメ） 0 準備 たとえば、対象として「locked.xlsm」ファイルを解除したいなら、名前の変更で「locked.xlsm.zip」に変更し、ダブルクリックで解凍し、xlフォルダ内のvbaProject.binファイルに対して変更処理を行うためのコードをchatGpt4に教えてもらう。 1 Bing(ChatGpt4)への質問 Vbscriptでバイナリファイル内の文字列DPBを文字列APBに変更して上書き保存するコードは？文字列の長さは同じことが前提で良いからコードは短い記載でお願い。変数名は長くても良いから分かりやすく命名して。コード内のコメントは各行について、小学生でも分…

先月、非推奨がアナウンスされていたんですね。 知りませんでした。 VBScriptが非推奨になった？その理由と代替言語を解説 | アンドエンジニアん～結構痛いなぁ。 web関連では既に使われなくなったような気はしていますが、 ちょっとしたものには、単体のスクリプトファイルとして 結構利用しています。代替えの最有力候補は、恐らくPowerShellでしょうね。 良く分かっていないですPowerShell。個人的にはpythonも候補ですが、インストールが必要ですよね。 ん～どうしよう。

要点 VBScript、NTLM認証とワードパットが廃止予定ですよ DDEはおそらくだけど当面生き残りますよ（話題には出ないけど理由はある） VBScript 実はこれローカルで動かす言語というよりは、Webのサーバサイドスクリプトとして簡単に使えるScriptとして開発された経緯があり、IISなんかでWebサイトを構築した場合にHTMLに埋めて動かすようなイメージでした。 その為、本来はあんまり機能を追加する訳ではないのですが。 しかしまあ、初期のIISで使われましたが、今IISでは非推奨ですし、行き場のない言語ではありました。 ローカルでバッチスクリプトの上級版として考えられていた場合、実…

nyagos には、ファイルをゴミ箱へ移動させる trash というコマンドがあります。 実装は Lua で、こんな感じで COM オブジェクトで実現してました。 nyagos.d/trash.lua : if not nyagos then print("This is a script for nyagos not lua.exe") os.exit() end nyagos.alias.trash = function(args) if #args <= 0 then nyagos.writerr("Move files or directories to Windows Trashbo…

前回「VBSを使わずに画面非表示のバッチファイル連続実行（最小化実行編）」で用意したバッチファイルを使って今回はタスクスケジューラの動きを使ってVBSに頼らない画面非表示でのバッチファイル連続実行を試しました。いままで意識せずに使っていたオプションに新しい発見がありました。

Officeアプリにサインインする際に「エラー問題が発生しました。[1200]」と表示され、サインインができない場合の回避策についてご紹介したいと思います。 Outlook／Excel／Word／PowerPoint／Teamsなどにてエラーが発生し、ウェブ版では問題がないというシナリオです。 本エラーについては、端末内に残存する Office のサインイン情報を削除することで改善する可能性がありますので、以下手順をお試しください。 Office からサインアウトする [職場または学校アカウント] に登録した、アカウントの切断について OlicenseCleanup.vbs を実行する WAM…

VBScript終了に備えて画面非表示バッチファイルを検証してみたのでご報告です。今回はバッチファイルの制御だけでVBSに頼らずにできるだけ画面表示を抑えた形でのバッチファイル連続実行を試してみます。

Windowsは長いこと、まともなシェルを標準搭載していないOSであった。コマンドプロンプトという貧弱なシェル上で、バッチというこれも貧弱なシェルスクリプトを実行するという、なかなかの苦行を必要とするOSであったが、Windows98とかWindows2000の頃に、すこしまともなシェルスクリプト動作環境が誕生する。それがWSHで、WSH上で動作する言語が「jscript」と「vbscript」だった*1。言語仕様の良しあしはともかくとして、vbscriptはバッチなんかよりははるかにマシで、ファイルやDBをまともに扱うことができるありがたいスクリプト言語であった。特別な処理系がインストールさ…

>|| Function ExtractCompanyNumber(inputHTML As String) As String Dim regex As Object Dim matches As Object Dim match As Variant ' 正規表現パターンを定義 Dim pattern As String pattern = "弊社管理番号.*?</TR>" Set regex = CreateObject("VBScript.RegExp") With regex .Global = False .MultiLine = True .IgnoreCase = True .…

【インシデントに関する情報】 ・不正アクセスによる情報流出に関するお知らせとお詫び | リコーグループ 企業・IR | リコー 【脆弱性情報】 ・Attacks on NetScaler Gateways aim for user credentials | SC Media ・Citrix Patches Critical NetScaler ADC, Gateway Vulnerability - SecurityWeek ・Hackers hijack Citrix NetScaler login pages to steal credentials ・CISA Warns of Act…