約 3,760,144 件
https://w.atwiki.jp/bottle/pages/12.html
スクリプトからWSHを動かすスクリプト例 参照 ツッコミ・コメント スクリプトからWSHを動かす ロングファイルネームのファイルを取得するときにスクリプトがエラーになる場合、 スクリプトからWSHを起動することでムリヤリ回避できます。 スクリプト例 ある文書にパスと複数のファイル名が設定されているとします。 その複数のファイルを取得し、一度ローカルにコピーしたものを メール文書に添付してメール送信を行います。 (c \dataのフォルダはすでに在ると仮定。) Set db = session.CurrentDatabase Dim wksp As New NotesUIWorkspace Dim Parent As NotesDocument Set Parent = wksp.CurrentDocument.Document --WSH使用のための宣言 Dim oWSH Set oWSH = CreateObject("Scripting.FileSystemObject") Dim newFile As String --DL対象ファイルのファイル名とファイルパスを取得 Dim DllFileName As Variant Dim DllFilePath As String, DllFilePath2 As String DllFileName = Parent.d_FileName DllFilePath = Parent.d_DownloadName(0) --メール文書作成 Set MyMemo = db.CreateDocument MyMemo.Form = "Memo" Set MyRich = New NotesRichTextItem(MyMemo, "Body") --DLファイルを添付(WSHで一度ローカルにコピーし、添付を実施) Forall x In DllFileName DllFilePath2 = DllFilePath + "\" + Cstr(x) newFile = "c \data\" + Cstr(x) If oWSH.FileExists(DllFilePath2)=True Then oWSH.CopyFile DllFilePath2, "c \data\" Call MyRich.EmbedObject(EMBED_ATTACHMENT, "", newFile) --処理が終わったファイルをローカルから削除 oWSH.DeleteFile newFile, True End If End Forall Call MyMemo.Send(False, Parent.SendTo(0)) 参照 Re 添付ファイルの編集について(by ドミノ懇談室(2006~)) #作成者 :Notes 野郎 (Yaroh Notes) 2007/2/23 (金) 午後 02 40 キーボードの操作で、 メニューバーの「添付ファイル」-「編集」 の操作を式かLotusScriptで記述するにはどのようにすればいいのでしょうか? #作成者 :すー しーほー (Su Syhoo) 2007/2/26 (月) 午後 04 56 NotesでSendkeys使えます。ただしクライアントはwindows限定です。方法は、 Dim oWSH Set oWSH = CreateObject("Wscript.Shell") oWSH.sendkeys "%TE" formのアクションに上記をコーディング後、 添付ファイルを選択してこのアクションを実行すればOKです。 keybd_eventより楽なので最近はこれ。 ツッコミ・コメント 名前 コメント
https://w.atwiki.jp/lotro_jp/pages/40.html
【注】以下は海外版のパッチノートです。日本版のそれとは違う可能性があります。 See also Known Issues for the known bugs... Patches 1.x [[./Patch Notes - June 21, 2007]] [[./Patch Notes - June 12th, 2007]] [[./Patch Notes - May 15th, 2007]] (EU Patch) [[./Patch Notes - May 3, 2007]] (May 15th on EU Servers) [[./Patch Notes - April 18, 2007]] (May 2nd on EU Servers) [[./Patch Notes - April 9, 2007]] [[./Patch Notes - April 3, 2007]] (April 13th on EU servers) [[./Patch Notes - March 19, 2007]] (April 13th on EU servers) Patch 1.12 For details see [[./Patch 1.12 (Release Notes)]]. br Released US March 6, 2007 | EU March March 29, 2007 Patch 1.11
https://w.atwiki.jp/memo77/pages/63.html
PageLastUpdate 2009-06-09/today - /yesterday - クリックすると見出し一覧を表示します WSHでMDBファイルからZIP圧縮のバックアップを作成&原本は最適化 WSHでZIPファイルに圧縮 WSH-vbsでは引数を省略した関数は作れない WSHで定型書式でログを記録するクラス WSHでクラスを作成 WSHで別のスクリプトファイルをinclude WSHで一意キーのために新たなGUIDを取得する インストールされているアプリケーションを列挙するスクリプト comment WSHでMDBファイルからZIP圧縮のバックアップを作成&原本は最適化 2009/06/09 MDBファイルを運用していると肥大化対策とバックアップが必要なので、VBSで対応。 MDBCompactAndBackup "ソースのMDBファイルのパス" "バックアップフォルダのパス" という感じで呼び出すと、バックアップフォルダに[ファイルの更新日時(yyyyymmddhhnnss)+ファイル名.zip]でバックアップファイルを作ります。 バックアップフォルダを省略した場合はMDBと同じフォルダに生成するので、MDBをスクリプトにドラッグ&ドロップしてもok。 元のファイルは最適化されます。 Dim fso Set fso = WScript.CreateObject("Scripting.FileSystemObject") If WScript.Arguments.Count = 0 Then WScript.Quit End If Dim SourceDBName SourceDBName = WScript.Arguments(0) Dim BackupFolderName If WScript.Arguments.Count = 2 Then BackupFolderName = WScript.Arguments(1) Else BackupFolderName = fso.GetParentFolderName(SourceDBName) End If バックアップフォルダーがなければ処理中止 If fso.FolderExists(BackupFolderName) = False Then WScript.Quit End If Dim SourceLFName SourceLFName = fso.BuildPath(fso.GetParentFolderName(SourceDBName),fso.GetBaseName(SourceDBName) ".ldb") ロックファイルがあったら処理中止 If fso.FileExists(SourceLFName) Then WScript.Quit End If Dim TempDBName TempDBName = fso.BuildPath(fso.GetParentFolderName(SourceDBName),fso.GetBaseName(SourceDBName) ".compact.tmp") 一時ファイルがあったら削除 If fso.FileExists(TempDBName) Then fso.DeleteFile TempDBName End If 最適化 Dim Jet Set Jet = WScript.CreateObject("JRO.JetEngine") Jet.CompactDatabase ";Data Source=" SourceDBName, ";Data Source=" TempDBName 圧縮 Dim f Set f = fso.GetFile(SourceDBName) Dim FileName FileName=f.Name Dim ZipFileName ZipFileName = fso.BuildPath(BackupFolderName,GetYYYYMMDDHHNNSS(f.DateLastModified) FileName ".zip") If fso.FileExists(ZipFileName) = False Then Dim Shell Set Shell=CreateObject("Shell.Application") Set SourceFolder = Shell.NameSpace(fso.GetParentFolderName(SourceDBName)) Set SourceFolderItem = SourceFolder.ParseName(FileName) fso.CreateTextFile(ZipFileName,False).Write "PK" Chr(5) Chr(6) String(18,0) Dim ZipFolder Set ZipFolder = Shell.NameSpace(ZipFileName) ZipFolder.CopyHere SourceFolderItem While ZipFolder.Items().Count = 0 WScript.Sleep 100 Wend End If リネーム f.delete Set f = Nothing fso.MoveFile TempDBName,SourceDBName Function GetYYYYMMDDHHNNSS(dt) GetYYYYMMDDHHNNSS = RIGHT("0000" Year(dt),4) RIGHT("00" Month(dt),2) RIGHT("00" Day(dt),2) RIGHT("00" Hour(dt),2) RIGHT("00" Minute(dt),2) RIGHT("00" Second(dt),2) End Function WSHでZIPファイルに圧縮 2009/06/09 参考アドレス:http //www.vector.co.jp/soft/dl/winnt/util/se355605.html MDBの最適化と圧縮をシンプルにvbsでやりたかったので、上記スクリプトを参考に圧縮するのに最低限必要な部分のみを自分なりに組んでみた。 「ZIPフォルダさえ作ってしまえばFileSystemObjectのファイルコピーでもいけるかも」と思ったけど、これはダメでした。 シェルは使わないといけないようです。 存在チェックとかエラー処理とか何も書いてないのでこのままでは使えませんが、理解の助けになれば。 SourceFileName = "圧縮したいファイルのパス" ZipFileName = "作成したい圧縮ファイルのパス" Set fso=CreateObject("Scripting.FileSystemObject") Set Shell=CreateObject("Shell.Application") FileName=fso.GetFileName(SourceFileName) Set SourceFolder = Shell.NameSpace(fso.GetParentFolderName(SourceFileName)) Set SourceFolderItem = SourceFolder.ParseName(FileName) fso.CreateTextFile(ZipFileName,False).Write "PK" Chr(5) Chr(6) String(18,0) Set ZipFolder =Shell.NameSpace(ZipFileName) ZipFolder.CopyHere SourceFolderItem コピーが非同期のようでこのループを入れたほうがよいようです。 While ZipFolder.Items().Count = 0 WScript.Sleep 100 Wend MsgBox "OK!" WSH-vbsでは引数を省略した関数は作れない 2009/05/085 下記のLogRecorderクラスを引数ひとつにできないかなと調べたけどvbsではできないっぽい。 JScriptならできるらしい。 WSHで定型書式でログを記録するクラス 2009/05/07 WSHで複雑な処理を実行する必要が出てきたので、恒常的にログを記録できるようにクラス化。 includeして使う感じ。 インスタンス起こした後「myLog.Write 整数値,メッセージ」と書くだけで下記のレイアウトのログを積み上げていってくれる。 クラスの生成時刻 処理毎の一意キー 処理毎のカウンタ ステップ実行時刻 実行PC名 実行ユーザー名 整数値 メッセージ Err.NumberとErr.Descriptionをそのまま記録できるように整数値とメッセージの指定にした。 既存のログを指定すれば追記します。 途中で記録ファイルを再指定できるので、特定の処理だけ別ログに切り出すようなことも可能。 呼び出しはこんな感じ。 Option Explicit インクルード Dim fso Set fso = CreateObject("Scripting.FileSystemObject") Execute fso.OpenTextFile("Hoge\Moge\LogRecorder.vbs", 1, False).ReadAll() インスタンスの生成 Dim myLog Set myLog = New LogRecorder myLog.SetLogFile("ログファイルのパス") myLog.Write 1000000000000,"TE" """" "ST""" myLog.Write 1.1,"TESTTAB" myLog.Write "xdar","TES" vbCrLf "Tvbcrlf" クラス定義はこんな感じ。 Class LogRecorder 定型書式でログを記録するクラスです。異なる処理や異なるPCで行ったログファイルを最終的に集積できるように GUIDで一意キーを生成しています。前3列でソートすれば、完全に実行順に処理が並びます。 ログファイルのパスをセットしないときはスクリプトの実行フォルダにLogRecorder.txtを生成します。 ログファイルはTab区切りで、記録項目は下記の通りです。 クラスの生成時刻/処理毎の一意キー/処理毎のカウンタ/ステップ実行時刻/実行PC名/実行ユーザー名/Number/Description Private GUID Private fso Private net Private logfile Private counter Private startdt Private openstate 0-開いていない/1-開けた/2-開けなかった コンストラクタ Private Sub Class_Initialize() Set fso = CreateObject("Scripting.FileSystemObject") Set net = WScript.CreateObject("WScript.Network") GUID = MID(CreateObject("Scriptlet.Typelib").GUID,2,36) counter = 0 startdt = Now() openstate = 0 End Sub Sub SetLogFile(Value) ログファイルが開いていたらクローズ If TypeName(logfile) = "TextStream" Then logfile.Close End If On Error Resume Next Set logfile = fso.OpenTextFile(Value,8,True) If Err.Number = 0 Then openstate = 1 Else MsgBox Err.Number vbCrLf Err.Description openstate = 2 End If On Error Goto 0 End Sub Sub Write(number,description) If openstate = 0 Then SetLogFile(fso.GetParentFolderName(WScript.ScriptFullName) "\LogRecorder.txt") End If If openstate = 1 Then If IsNumeric(number) Then number = Int(number) Else number = 0 End If description = Replace(description,vbCrLf,vbLf) description = """" Replace(description,"""","""""") """" logfile.WriteLine startdt _ vbTab GUID _ vbTab counter _ vbTab Now() _ vbTab net.ComputerName _ vbTab net.UserName _ vbTab number _ vbTab description counter = counter + 1 End If End Sub デストラクタ Private Sub Class_Terminate() ログファイルが開いていたらクローズ If TypeName(logfile) = "TextStream" Then logfile.Close End If End Sub End Class WSHでクラスを作成 2009/05/07 こんな感じで定義して Class myClass コンストラクタ Private Sub Class_Initialize() End Sub デストラクタ Private Sub Class_Terminate() End Sub End Class こんな感じで呼び出し Set myInstance = New myClass WSHで別のスクリプトファイルをinclude 2009/05/07 Set fso = CreateObject("Scripting.FileSystemObject") Execute fso.OpenTextFile("includeしたいスクリプトのパス", 1, False).ReadAll() WSHで一意キーのために新たなGUIDを取得する 2009/05/07 WSHでデータベースを使わずにいろいろなスクリプトから吐き出したログを統括する為に一意キーが欲しい。 どうするか考えた末にGUIDを使うことにした。 GUID = CreateObject("Scriptlet.Typelib").GUID GUID = MID(GUID,2,36) なぜかGUIDの結果は40文字帰ってきて、末尾二文字にはNullと5が入ってくるので{}括弧ともども除外する為にMIDで取り出している。 インストールされているアプリケーションを列挙するスクリプト 2007/07/31 Const HKEY_LOCAL_MACHINE = H80000002 strComputer = "." Set objRegistry = GetObject("winmgmts \\" strComputer "\root\default StdRegProv") Set objFSO = WScript.CreateObject("Scripting.FileSystemObject") Set objOutput = objFSO.OpenTextFile(".\ApplicationList.txt", 8, True) strKeyPath = "SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall" objRegistry.EnumKey HKEY_LOCAL_MACHINE, strKeyPath, arrSubkeys For Each strSubKey in arrSubkeys strValueName = "DisplayName" strSubPath = strKeyPath "\" strSubKey objRegistry.GetStringValue HKEY_LOCAL_MACHINE,strSubPath,strValueName,strValue If Not IsNull(strValue) Then objOutput.WriteLine strValue End If Next objOutput.Close 2007/08/03 同じことをやってるスクリプト発見。ちょっと細かな指定ができそうなのであとで研究。 http //dmyoh.exblog.jp/1446060 comment このページの記述で聞きたいこととか間違ってることとかありましたらコメントを。 名前 コメント すべてのコメントを見る
https://w.atwiki.jp/jacoby/pages/53.html
wshメモ 命名規則 変数のプレフィックス 変数型 プレフィックス ブール型 bln バイト型 byt 整数型 int 長整数型 lng 単精度浮動小数点型 sng 倍精度浮動小数点型 dbl 文字型 str 日付型 dtm エラー型 err オブジェクト型 obj 参考URL □Wsh@workshop http //wsh.style-mods.net/ □Scr.002 逆引きWSH(VBScript)サンプル集 http //www1.u-netsurf.ne.jp/~tomo_c/tips/Scr002.html □WSHで誰でも簡単プログラミング(WSH入門) http //homepage2.nifty.com/pasocon/nyumon/main.html □チェック式 WSH入門―― 演習方式で身につけるWSH超入門 ―― http //www.atmarkit.co.jp/fwin2k/tutor/cformwsh01/cformwsh01_01.html
https://w.atwiki.jp/rouga/pages/23.html
Notes らくがきノートにして備忘録。 分類不能の戯れ言集。 C#学習帳 最近始めたC#の学習記録。 Emacsen? Emacs/xyzzyなど、日々使うツールについて。 Memories of FFXI 既に引退したゲームのスクリーンショットなどを掲載。
https://w.atwiki.jp/actresss42notes/
https://w.atwiki.jp/choices-game/pages/14.html
notes 更新が2週間以上されていないものは削除します。 性行為、暴力行為などの表現、又は画像などが張られていた場合、見つかり次第即削除します。 作り方は何でもいいですが、あまり雑にしないでください。 以上だ。
https://w.atwiki.jp/r-type/pages/19.html
NOTES 1/4 BABYモードでクリア達成! KIDSモードでクリア達成! HUMANモードでクリア達成! BYDOモードでクリア達成! R-TYPERモードでクリア達成! ステージ1.0発見! ステージ2.0発見! ステージ2.1発見! ステージ2.2発見! ステージ2.3発見! ステージ2.4発見! ステージ3.0発見! 2/4 ステージ3.5発見! ステージ4.0発見! ステージ5.0発見! ステージ6.0発見! ステージ6.1発見! ステージ6.2発見! ファイナルステージA発見! ファイナルステージB発見! ファイナルステージC発見! ファイナルステージAをクリア! ファイナルステージBをクリア! ファイナルステージCをクリア! 3/4 AI対戦10勝達成! AI対戦100勝達成! チャンピオンシップモードクリア! AI対戦10回達成! AI対戦100回達成! 20機体開発達成! 50機体開発達成! 99機体開発達成! 全ての機体開発達成! 101機体で出撃達成! バイド図鑑 全敵確認完了! バイド図鑑 全敵調査完了! 4/4 1クレジットでクリア達成! 1機体でクリア達成! フォースを一度も取らずにクリア達成! アイテムを一度も取らずにクリア達成! 波動砲を撃たずにクリア達成! スペシャルウェポンを使用せずにクリア達成! 全スペシャルウェポン使用達成! 総波動砲使用エネルギー1000000ポイント達成! 出撃数100回達成! 総プレイ時間10時間達成! 総プレイ時間100時間達成! 総プレイ時間1000時間達成!
https://w.atwiki.jp/type-saturn/pages/6.html
正式にはNotes.(鋼の大地 over count 1999)。と言った方がいいかもしれない。 『鋼の大地』(はがねのだいち)は、奈須きのこの小説。部分的なエピソードを描いた『Notes.』のみが発表されている。 天使を題材にした同人誌『angel voice』(1999年5月、竹箒)のために書かれた短編小説。TYPE-MOON 同人誌『月姫読本』(通称・青本)に(2001年、TYPE-MOON)に再録された。アリストテレスとの戦いに既に入っており、アリストテレス8体のうち3体が倒されているため、『鋼の大地』の中でも後の方に位置すると思われる。最後の人間(新人類でない)銃神と天使の触れ合いおよびアリストテレスとの戦いを描く。「angel notes.」と題した用語説明が章ごとに挿入されている。 作者によると、ジャンルはエセSF。『月姫』・『Fate/stay night』の未来の世界で、世界観を同一にする。ただし人類はほぼ絶滅しているので、世界観を同一にしながら、全く内容を異にする。例えば両作品ではあたりまえに存在する「魔術」は、ここでは失われている。 登場キャラや世界設定について詳しく知りたい方は『鋼の大地』の項目を参照してください。
https://w.atwiki.jp/babanan/pages/17.html
ほとんどのことは以下のサイトで網羅している。 VBScript/JScriptプログラミング&Tips for WSH - cafe de VBS 以下は作業メモ。 拡張子vbs(VBScript) js(JScript) wsf エディタテキストエディタ(注:保存時に拡張子を指定すること) Visual Basicエディタ