タグ

TipsとVBScriptに関するkatowのブックマーク (13)

  • VBS for Adobe InDesign+

    InDesignのスクリプトを中心に、その他もろもろ。ここに置いてあるスクリプトは、全てサンプルです。 使用者がスクリプトを適宜変更して使用することを前提にしています。 これらのスクリプトや記述を利用して、何らかの損害が生じたとしても、 当方では一切責任を負いません。 一部を除き、CS3での動作は未確認です。確認が取れ次第更新します。 Special Contents [InDesign CS3用 部首別字形セット] InDesign CS3の字形パネルに部首別字形セットを追加し、漢字を探しやすくします。 [InDesign Object Model CS-CS3] InDesign CSからCS3(日語版)までのオブジェクトモデル図。表記はVBですが構造はどの言語でも同じだと思います。間違いが少なからずあるので十分注意してください。 InDesign JavaScript

  • 「ローカル エリア接続」の有効・無効をコマンドラインから制御するメモ - Passing days

    Windows Server 2003であれば以下で出来るらしい。がWindowsXPでは出来ない。 >netsh interface set interface "ローカル エリア接続" enabled >netsh interface set interface "ローカル エリア接続" disableXPの場合は… >netsh interface set interface "ローカル エリア接続" disable 必要なパラメータが指定されていません このコマンドの構文が無効です。ヘルプで正しい構文を参照してください。 使用法 set interface [name = ] IfName [ [admin = ] ENABLED|DISABLED [connect = ] CONNECTED|DISCONNECTED [newname = ] NewName ] インターフェイス

    「ローカル エリア接続」の有効・無効をコマンドラインから制御するメモ - Passing days
    katow
    katow 2009/04/23
    WindowsXPではnetshでは適用できない;;;が、VBScript(Wsh)での対処例がある。
  • VBS for WMI サンプル

    サービス終了のお知らせ いつもYahoo! JAPANのサービスをご利用いただき誠にありがとうございます。 お客様がアクセスされたサービスは日までにサービスを終了いたしました。 今後ともYahoo! JAPANのサービスをご愛顧くださいますよう、よろしくお願いいたします。

  • Windows 2000: Script Heaven

    katow
    katow 2009/02/19
    プロセスをVBScriptで扱う場合の話。
  • Hey, Scripting Guy!: 発言には注意しましょう

    このブラウザーはサポートされなくなりました。 Microsoft Edge にアップグレードすると、最新の機能、セキュリティ更新プログラム、およびテクニカル サポートを利用できます。 Hey, Scripting Guy!発言には注意しましょう Microsoft Scripting Guy アメリカ南北戦争中 (正確にはスポットシルバニアの戦いに際し) に、北軍のジョン・セジウィック将軍は、部下たちが南軍の狙撃兵たちによる不規則かつ無作為な発砲におじけづいているのを見て落胆していました。言い伝えによれば、セジウィックは部下たちにこう言いました。「そんな風に逃げ回るな。恥を知れ。南軍はこの距離では象でも撃てまい。」その直後に、セジウィックは戦死した最高位の北軍将校となりました。セジウィックにとっては不幸なことに、南軍の狙撃兵は象を撃つことはできなかったかもしれませんが、将軍を撃つことはでき

    Hey, Scripting Guy!: 発言には注意しましょう
    katow
    katow 2009/02/13
    初めて知った、CreateObjectできるCOMコンポーネントは全てHKEY_CLASSES_ROOTに一覧化されており、.NETのアセンブリでも一部はCOM互換でこの一覧に加わっている。でもIntellisenseには対応してないらしい。Collectionの利用例
  • WSH のデバッグ方法とOS側設定 - しおそると

    WSH用デバッグツールがMSから提供されている。 Windows Script Debugger かなり古いが、今でも利用可能。 楽な利用方法 デバッガを起動 C:\Program Files\Microsoft Script Debugger\msscrdbg.exe オプション //X を利用して wscript/cscriptを実行 例 wscript //x "My Documents\test.vbs" 適当に利用 知りたいところあたりにブレークポイントを設定、「ステップアウト」ボタン押 知りたい変数の値は、コマンドウィンドウで ?変数名 を記入。 例:?msg 条件分岐の確認は「ステップイン」で1行ずつ実行 「ステップオーバー」は関数はすっ飛ばしてくれる ただし、WinXP/2003ではそのままではうまく動かない模様。下記2つを確認、設定。 Wi

    katow
    katow 2008/12/29
    デバッガの導入について。
  • TechNet Script Center

    Summary: Using PowerShell to identify RPC ports in use by capturing content from PowerShell We'd like to introduce you today to one of our newest bloggers!  It's a froopingly awesome friend of ours, Joel Vickery, PFE.  (did I mention Dr. Scripto is a big fan of books written by Douglas Adams?....oops!) Take it away Joel! Thanks Doc!  So ...

    katow
    katow 2008/12/29
    MicrosoftのWSH総本山、サンプルスクリプト配布センター
  • ホームページデータを取得する/サイトが有効か確認する|VBScript Tips

    '#################################################################################### '# '# 関数名:GetHtmlSource '#----------------------------------------------------------------------------------- '# 機能 :指定のURLからHTMLソースを取得する '# 引数 :strURL I URL '# strRetVal O 取得した文字列 '# isSJIS I ソースが Shift-JIS の場合 True '# strID I ドメイン認証が必要な場合のユーザーID '# strPass I ドメイン認証が必要な場合のパスワード '# 戻り値:True 正常、False 失敗 '# '######

    katow
    katow 2008/12/28
    HTTPダウンロード
  • XMLファイルの作成(VBS) - メモ帳

    Dim xdoc Dim pi Dim root Dim cdata Dim ele Dim attr Dim txt Set xdoc = CreateObject("Microsoft.XMLDom") Set pi = xdoc.createProcessingInstruction("xml", "version='1.0' encoding='Shift_JIS'") xdoc.appendChild(pi) Set root = xdoc.createElement("ルート") Set cdata = xdoc.createCDATASection("ごにょごにょ") root.appendChild(cdata) Set ele = xdoc.createElement("子") Set attr = xdoc.createAttribute("id") attr.valu

    XMLファイルの作成(VBS) - メモ帳
    katow
    katow 2008/12/28
    XMLデータの作成
  • DOMを利用してXMLデータへアクセス

    Dim objDOM, rtResult Set objDOM = WScript.CreateObject("MSXML2.DOMDocument") rtResult = objDOM.load("Sample.xml") If rtResult Then procDispDatas objDOM.childNodes Else MsgBox "XMLオブジェクトの作成に失敗しました。" End If Set objDOM = Nothing Sub procDispDatas(objNode) Dim obj For Each obj In objNode If obj.nodeType = 3 and obj.parentNode.nodeName = "title" Then MsgBox obj.parentNode.nodeName & " : " & obj.nodeVal

  • XML文書を読み込む|VBScript Tips

    ファイル読み込みの場合は load メソッド 文字列としての読み込みは loadXML メソッドを使用します。 <load メソッド> '□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□ ' ファイルとしてXML文書が与えられた場合 '□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□ Dim objDOM, rtResult Set objDOM = WScript.CreateObject("MSXML2.DOMDocument") rtResult = objDOM.load("FileName.xml") MsgBox rtResult, vbInformation, "実行結果" '□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□ ' 文字列データ(変数など)としてXML文書が与えられた場合 '□□□□□□□□□□□□□□

  • @IT:Windows TIPS -- Tips:Windows標準機能とWSHを使ってメールを送信する

    対象OS:Windows 2000 Professional/Windows XP Professional/Windows 2000 Server/Windows Server 2003 解説 いまや、メールがさまざまな仕事の起点になっているという人も多いのではないか。チームでの情報交換や会議の案内、社外の取引先との連絡などに加え、備忘録代わりのメッセージを自分自身にメールしているという人もいるようだ。 こうなってくると、すべての情報通知をメールに一化したくなる。特に読者がシステム管理者なら、さまざまな管理業務の通知をメールで受け取りたいと考えているかもしれない。例えば、サーバがハングアップしたとき、ファイアウォールがワームのアタックを受けたとき、ハードディスクの容量がいっぱいになったとき、アプリケーションのメモリ・リークによって使用可能メモリが逼迫(ひっぱく)したときなど、メールで通

    @IT:Windows TIPS -- Tips:Windows標準機能とWSHを使ってメールを送信する
    katow
    katow 2008/12/23
    VScriptでメール送信する書き方。仕事で使おうとすると、外部のSMTPサービスを利用する場合がほとんどのような気が。
  • BASP21と同等のメール送信機能 - CDOを使ってみた - とあるプログラマーの平凡な日記

    katow
    katow 2008/12/23
    VBScriptからメール送信する方法、CDOを利用する場合。成功しました。
  • 1