WSH(・∀・)ｽﾚｯﾄﾞ!

1 名前：デフォルトの名無しさん [03/06/08 21:31] (　´ゝ`)　無ので立ててみた。 誰か詳しい情報ｷﾎﾞﾝﾇ 222 名前：デフォルトの名無しさん [2005/05/20(金) 23:09:32 ] そこでﾊｲﾊﾟｰｽﾚｯﾃﾞｨﾝｸﾞな俺様の登場ですよ！！ 223 名前：デフォルトの名無しさん [2005/05/23(月) 01:18:56 ] おまいらちっとはwsh使へ 224 名前：デフォルトの名無しさん mailto:sage [2005/05/23(月) 23:05:05 ] いやぷぅ(~o~) 225 名前：デフォルトの名無しさん mailto:sage [2005/05/24(火) 23:12:11 ] バッチファイルと違って、タスクマネージャくらいからしか強制終了できないのが辛い。 あとは時間指定ぐらいですかね？ でも、環境によって実行時間が違ってくるから時間による終了は入れたくないなぁ。 226 名前：デフォルトの名無しさん mailto:sage [2005/05/25(水) 02:25:23 ] バッチで強制終了させりゃいいじゃん。 バッチでできんことはWSHにやらせて。 227 名前：デフォルトの名無しさん mailto:sage [2005/05/25(水) 19:59:47 ] 向き不向きを考えて使えって事か。 そりゃそうか。 バッチファイルで何行も同じようなこと書きたくないなぁと思って vbsならスマートかな、と思ってやってみたんですた。 まぁコマンドプログラム呼び出すたびにアクティブなウインドウがそっちに移るんで それも困ってたﾄｺなんでやっぱバッチのほうが向いてるかも 228 名前：デフォルトの名無しさん mailto:sage [2005/05/26(木) 05:03:19 ] >225-227 cscript.exe もちゃんと使おうな 229 名前：225=227 mailto:sage [2005/05/26(木) 19:59:30 ] ttp://www.atmarkit.co.jp/fwin2k/operation/wsh02/wsh02_02.html コマンドラインスクリプトのことかーーーー！！！ 初めて知りました。 多謝でつ。 230 名前：デフォルトの名無しさん mailto:sage [2005/05/27(金) 12:38:44 ] WSHは略だけど CScriptも略してCSHとは言わんな 231 名前：デフォルトの名無しさん mailto:sage [2005/05/27(金) 22:27:43 ] wshはwscript.exeの略じゃないし 232 名前：デフォルトの名無しさん [2005/06/01(水) 13:26:13 ] JScriptでショートカットのファイルを吐き出したいです どうすれば出来ますか？ 233 名前：デフォルトの名無しさん mailto:sage [2005/06/01(水) 14:11:25 ] >>232 www.microsoft.com/japan/msdn/library/default.asp?url=/japan/msdn/library/ja/script56/html/wsmthcreateshortcut.asp 234 名前：デフォルトの名無しさん mailto:sage [2005/06/01(水) 15:51:26 ] >>233 ありがとう 235 名前：デフォルトの名無しさん [2005/06/01(水) 18:24:40 ] 一定の間隔をおいて標準入力をテキストファイルに出力するにはどーしたらいい？ おしえてー 236 名前：デフォルトの名無しさん mailto:sage [2005/06/01(水) 22:30:52 ] >235 一定の間隔とは行間のことだと勝手に想像して書いてみる んでもって言語の指定ないから勝手にJScript var ROW_SPACES=1; var a=WScript.StdIn.ReadAll().split("\r\n"); var f=new ActiveXObject("Scripting.FileSystemObject").CreateTextFile("outfile.txt"); for(var i=0;i<a.length;i++){ f.WriteLine(a[i]); for(var c=0;c<ROW_SPACES;c++)f.WriteLine(); } f.Close(); 237 名前：デフォルトの名無しさん mailto:sage [2005/06/02(木) 01:45:36 ] 間隔っつったらやっぱ時間じゃねえの？ while (!WScript.StdIn.AtEndOfStream) { WScript.StdOut.Write(WScript.StdIn.ReadAll()); WScript.Sleep(10000); } 238 名前：236 mailto:sage [2005/06/02(木) 02:20:20 ] >237 標準入力→テキストファイル、ってあるから 多分行間じゃないかなあと予測した 逆なら劣化ページャみたいな物と予測したのだけど あと StdIn.AtEndOfStream() は試したら 存在しないみたいでエラー出たから ReadAll() 239 名前：デフォルトの名無しさん mailto:sage [2005/06/02(木) 03:24:38 ] 時間だとすると標準入力をテキストファイルに出力するのに一定の間隔を空ける意味が良く分からん 240 名前：236 mailto:sage [2005/06/02(木) 15:24:26 ] >239 そう、私もそれが言いたかった、ごめん＿|￣|○ てか、StdIn.AtEndOfStream てプロパティだから 括弧付けると駄目なのね…逝って来る＿|￣|○ 241 名前：デフォルトの名無しさん mailto:sage [2005/06/03(金) 17:59:10 ] ひょっとしてこういうことがしたいのかも do while True do while (not WScript.StdIn.AtEndOfStream) WScript.StdOut.Write(WScript.StdIn.ReadAll()) loop WScript.Sleep(5000) loop 242 名前：デフォルトの名無しさん mailto:sage [2005/06/05(日) 17:59:02 ] >241 ReadAllなのにAtEndOfStreamを待つのか？ 243 名前：デフォルトの名無しさん mailto:sage [2005/06/05(日) 20:51:29 ] tail -f みたいな動きをさせるためじゃないかな 244 名前：デフォルトの名無しさん [2005/06/10(金) 09:57:18 ] 「デヴァイスマネージャ」の 「USBルートハブ」を無効にして 再度，有効にするという操作を WSH にしてみてください 245 名前：デフォルトの名無しさん mailto:sage [2005/06/10(金) 12:35:24 ] msgbox "USBハブのコード抜け" msgbox "抜いたらもう一回挿せ" 246 名前：デフォルトの名無しさん mailto:sage [2005/06/10(金) 12:50:41 ] >>245 【ご主人様】メイドさんスクリプト【ご命令を】 pc8.2ch.net/test/read.cgi/tech/1115218878/ 247 名前：デフォルトの名無しさん mailto:sage [2005/06/10(金) 14:01:26 ] Private Sub Command1_Click() Dim UsbSet As SWbemObjectSet Dim Usb As SWbemObject Dim Locator As SWbemLocator Dim Service As SWbemServices Dim MesStr As String Set Locator = New WbemScripting.SWbemLocator Set Service = Locator.ConnectServer Set UsbSet = Service.ExecQuery("Select * From Win32_USBHub") For Each Usb In UsbSet MesStr = MesStr + "USBハブの名前：" + Usb.Description + vbCrLf + _ "USBハブのデバイスID：" + Usb.DeviceID + vbCrLf Next MsgBox "USBハブの情報です。" + vbCrLf + _ vbCrLf + MesStr + vbCrLf + "ですよ。" Set UsbSet = Nothing Set Usb = Nothing Set Locator = Nothing Set Service = Nothing End Sub 248 名前：デフォルトの名無しさん mailto:sage [2005/06/10(金) 14:03:22 ] Private Sub Command1_Click() Dim UsbSet As SWbemObjectSet Dim Usb As SWbemObject Dim Locator As SWbemLocator Dim Service As SWbemServices Dim MesStr As String Set Locator = New WbemScripting.SWbemLocator Set Service = Locator.ConnectServer Set UsbSet = Service.ExecQuery("Select * From Win32_USBController") For Each Usb In UsbSet MesStr = MesStr & Usb.Name & vbCrLf Next MsgBox "USBコントローラの一覧です。" & vbCrLf & _ vbCrLf & MesStr & vbCrLf & "ですよ。" Set UsbSet = Nothing Set Usb = Nothing Set Service = Nothing Set Locator = Nothing End Sub 249 名前：デフォルトの名無しさん mailto:sage [2005/06/10(金) 14:10:00 ] ttp://www.microsoft.com/japan/whdc/system/pnppwr/default.mspx 250 名前：デフォルトの名無しさん mailto:sage [2005/06/10(金) 14:44:59 ] >>244 UWSC使ってみ ttp://www.h7.dion.ne.jp/~umiumi/ 251 名前：デフォルトの名無しさん [2005/06/15(水) 10:03:13 ] ご存知の方いらしたらご指導お願い致します var oShell = WScript.CreateObject("Shell.Application"); var oFolder = oShell.NameSpace("ftp://192.168.*.**/保存/"); var desktop = oShell.NameSpace(0); var objFolderItems = desktop.Items(); for(var i = 0; i < objFolderItems.Count; i++) { var ofitem = objFolderItems.Item(i); if(ofitem.Name == "日報.xls") { oFolder.CopyHere(ofitem); WScript.Sleep(6000); break; } } 日報.xlsをサーバーにFTPを使ってコピーするプログラムを作成しました 前日の同名ファイルに上書きして毎日保存しているのですが ファイルの上書き確認ダイアログが出てしまうの非表示にして自動的に 上書きしたいのですが、よろしくお願い致します。 252 名前：デフォルトの名無しさん mailto:sage [2005/06/15(水) 10:17:31 ] ふつうにftpコマンド使った方がよくね？ 253 名前：デフォルトの名無しさん [2005/06/15(水) 10:47:54 ] >>252 というと確認ダイアログをちゃんと出したほうが良いということでしょうか？ 一応、転送終了後にファイルの更新日時や内容を軽くchkしていますので サーバー側で定期的に別フォルダにバックアップしているので、間違いで 上書きしてもとりあえず問題ないのです objFolder.CopyHere vItem, [vOptions] FOF_NOCONFIRMATION 0x0010 上書きしますかとか聞いてこなくなる oFolder.CopyHere(ofitem, 0x0010); oFolder.CopyHere(ofitem , 0x0010); こんなのを見つけて直してみても直りませんね 254 名前：252 mailto:sage [2005/06/15(水) 11:35:37 ] >>253 いあ、ftpでファイルをアップするだけの用途なら、 -sオプション付けて、動作指定したファイル記述するだけで良さそうだなー と思っただけ 255 名前：デフォルトの名無しさん [2005/06/15(水) 12:30:00 ] なるほどそういう事でしたか、コマンドプロンプトでやるのでしょうか wshで記述できるのでしょうか？ 勉強不足でして、バッチファイルの作り方も危ういので >>251 で晒したソースもよそ様のサンプルを使って作成したので理解度0に近いのです 256 名前：デフォルトの名無しさん mailto:sage [2005/06/15(水) 13:08:51 ] コマンドプロンプトでもwshでも可能 ftpの-sオプションについては↓みれば大体分かると思う www.atmarkit.co.jp/fwin2k/win2ktips/270ftpscript/ftpscript.html 257 名前：デフォルトの名無しさん mailto:sage [2005/06/15(水) 20:02:10 ] その前に、ftpコマンドの成功、失敗の判定をスクリプトやバッチファイルでできるのか？ 258 名前：デフォルトの名無しさん mailto:sage [2005/06/15(水) 20:20:50 ] もう一回アクセスしてファイルの日付がアップロードした日時になってるかとか サイズがローカルのものと同じになっているかとかをチェックすれば出来なくはない 259 名前：251 [2005/06/16(木) 10:07:09 ] 報告遅くなりまして申し訳御座いません それと皆様に助言頂き感謝しております。 ftpの-sオプションについて教えて頂いたサイトを目下勉強中ですが 構文エラーが出てしまいうまくいかない状況です。しばらくサンプルを 作成して試してみますので、どうしても分からなかったら又ご助言を よろしく御願い致します 260 名前：デフォルトの名無しさん mailto:sage [2005/06/16(木) 14:20:45 ] おしごとでWSH使ってるんですが、 WSHのファイルインクルードって vbs しかインクルードできんのですか？ <script langage=VBScript src="aaaaaaa.vbs"/> これでWSHスクリプトをインクルードしようとすると最初のJOBタグでエラーになってこのやろうちくしょう。 vbsでファイルインクルードがあればいいんですが・・・。 261 名前：デフォルトの名無しさん mailto:sage [2005/06/16(木) 18:48:58 ] langage 262 名前：デフォルトの名無しさん mailto:sage [2005/06/16(木) 18:58:11 ] で、vbsのインクルードはできたのか？ 日本語で質問してくれると助かる。 263 名前：デフォルトの名無しさん mailto:sage [2005/06/16(木) 19:19:11 ] JScriptはほぼ同じ方法で取り込める だがwsfを取り込むってのは出来ないハズ wsfにコードを書くと再利用するときに困るから 私の場合、コードは全てvbsに書き、wsfは取り込むのみで使う 264 名前：260 mailto:sage [2005/06/16(木) 23:55:51 ] >>261 ちょっとあせってたのさ。 >>262 おいっす。落ち着きます。で。対象のvbsファイルをFileSystemObjectで開いて、 ReadAllメソッド使ってソースをひとつの変数に突っ込んでExecute関数で実行っていう方法なら見つかった。 vbsには正式なインクルードはないみたい。wsfにはあるけど。 ↓詳しくは見てください。 www.trickpalace.net/windows/tips/wsh.include.htm >>263 やっぱりそうなるのね orz 再利用できる共通コードの中で、別の共通コード使いたい場合で困りますよね。 265 名前：デフォルトの名無しさん mailto:sage [2005/06/17(金) 05:46:46 ] まずはここの情報は全て押さえとくとヨロシ。 MS社員の有志というか暇というか。一応純正だからｗ ttp://groups.msn.com/windowsscript/home.msnw FAQやDOWNLOADに情報満載。 266 名前：デフォルトの名無しさん mailto:sage [2005/06/17(金) 13:24:19 ] >>265 Σ（ﾟдﾟlll）ｽﾞｶﾞｰﾝ。英語！？ｗｗｗ （´∀｀；）ゝいやぁ。漏れ純正の日本人だから英語ﾀﾞﾒｽｗｗｗ と思ったけど、FAQはクリックすればサンプルコード出てくるだけだからわかりやすいね。ｱﾘｶﾞﾀｽ 267 名前：デフォルトの名無しさん [2005/07/18(月) 02:39:27 ] ﾎｽ 268 名前：デフォルトの名無しさん [2005/07/20(水) 01:42:04 ] ﾎｼｭﾎｼｭ 269 名前：デフォルトの名無しさん [2005/07/25(月) 22:41:51 ] ﾎｼｭﾎｼｭ 270 名前：デフォルトの名無しさん [2005/07/27(水) 16:45:29 ] Windows2000にて WSH使って、タスクスケジューラへ 自動的にタスクを追加するには どうすればいいか御存知の方いますか？ 昔、どこかで出来るような発言してる人がいたので 結構ググッたけど、見つからなかった・・・ 271 名前：デフォルトの名無しさん mailto:sage [2005/07/27(水) 17:22:24 ] XPだったらschtasks使えば楽そう Win32_ScheduledJobはATコマンドと同等だったはずだし、 IScheduledWorkItemとかITaskScheduler辺りを使えばどーだろ・・・ 272 名前：270 [2005/07/28(木) 15:13:25 ] >271 調べてみたけど、使い方よくわかんなかったので ATコマンドで妥協しました。('A`) XPはschtasksがあるからいいですね。 273 名前：デフォルトの名無しさん mailto:sage [2005/07/28(木) 15:29:52 ] ATコマンドってモデムのアレですか？ 274 名前：デフォルトの名無しさん mailto:sage [2005/07/28(木) 15:36:55 ] >>273 釣りなのか、マジなのか、なんかの揚げ足取りなのか知らないけど コマンドプロンプト開いて、「at /?」と入力してみれ 275 名前：デフォルトの名無しさん mailto:sage [2005/07/28(木) 15:41:41 ] ああ、UNIXのat相当なんですね。大文字で書かれると分からんもんですね。 276 名前：デフォルトの名無しさん mailto:sage [2005/07/28(木) 15:55:30 ] >>274 いや、モデムの方だろ 277 名前：デフォルトの名無しさん mailto:sage [2005/07/29(金) 02:35:30 ] ｓｃｈｔａｓｋｓはユーザー権限でログオンしている時 管理者アカウントでタスクを実行しようとしても 拒絶されるから嫌いだ。 そのくせ10回に1回うまくいったりするあたり、 単なるバグなんじゃねぇかと。 278 名前：デフォルトの名無しさん mailto:sage [2005/07/31(日) 12:46:54 ] >>277 うほっタイムリーなネタ だから実行できなかったのか！ なんかいい解決方法ないのかな。 XPでATコマンドってまだ使えたっけ？ 279 名前：デフォルトの名無しさん mailto:sage [2005/07/31(日) 14:39:24 ] >>278 そう実行できない。 2002年から2003年にかけて死ぬほど検証したし 海外までググったしMSプレミアムサポートに問い合わせもした。 結局使えそうで使えないコマンドなんだわ。＜schtasks XPでもATコマンドは使える。 ただ管理者アカウントでログオンしてないと コマンドが受け付けられないので注意。 これはNT4時代からずっとそうなので諦めるしかない。 管理者アカウントでログオンするなら schtasksだって使えるんだよね。。。 > なんかいい解決方法ないのかな。 これまで携わったプロジェクトでは 配布ソリューション(SMSやその類似品)を使って バッチを配布して管理者権限でキックしたり、 管理端末から(ドメインAdminでログオン)から 目的の端末にリモート実行させたりしてた。 あとはスタートアップスクリプトに仕掛けたりとかそういう感じ。 あとはサーバーに「特定のテキストファイルがあれば ファイル名と同名のユーザーの端末上でコマンド実行」 という趣旨の定期監視タスクを仕掛けておいて、 ユーザーがバッチを起動すると、 サーバー側で監視してるフォルダに テキストファイルが作られるみたいな構成とか。 わずかな事やるのに結構遠回りしてるなぁ。orz 280 名前：デフォルトの名無しさん mailto:sage [2005/07/31(日) 16:07:05 ] >>279 >海外までググったし そうか。プログラミングのノウハウは国内にはあまり無いから ググる時にも必ず「ウェブ全体」を選んでたけど まだそういう時代じゃないんだな 281 名前：デフォルトの名無しさん mailto:sage [2005/07/31(日) 16:26:33 ] >>280 や、失礼。 ググった結果(主に英語サイト)から 海外サイトを延々見てまわり、の方が正確。 お詫びして訂正します。ｺﾞﾒﾝﾁｬｲ。 どうでもいいがヘブライ語みたいなサイトも見たよ。 チンプンカンプンだっつーの。 282 名前：デフォルトの名無しさん mailto:age [2005/08/04(木) 22:35:08 ] （・∀・）ｱｹﾞ!! 283 名前：デフォルトの名無しさん [2005/08/06(土) 22:53:34 ] WSHで起動中の特定の名前のウィンドウの 存在の有無を確認する方法ってありますか？ 284 名前：デフォルトの名無しさん mailto:sage [2005/08/07(日) 09:40:02 ] >>283 WMIでWin32_Processをクエリーするしかないんじゃねーの？ でもこの方法、WindowsXP以外はWMICoreのインスコが必要だったと思うが。 285 名前：283 [2005/08/07(日) 13:10:15 ] >>284 レスありがとうございます。自己解決しました。 VBScriptのappactivate("ウィンドウ名")=Falseで 判定することができました。 286 名前：デフォルトの名無しさん [2005/08/08(月) 14:53:27 ] リンクリストみたいなコレクションありませんか？ ハッシュ(Scripting.Dictionary)と配列はあったのですが･･･。 やりたいことは、文字列をコレクションに溜め込んで、最後にJoinで一つの文字列にしたいのですが、 ハッシュだと溜め込むことはできそうですが、最後にJoinしたときに順番がバラバラになりそうで利用できません。 要素の追加にコストが掛からず、最後に文字列結合できるコレクションなどはないでしょうか。 287 名前：デフォルトの名無しさん mailto:sage [2005/08/08(月) 16:55:07 ] >>286 Arrayではコストがかかりすぎるのでしょうか。 288 名前：デフォルトの名無しさん mailto:sage [2005/08/08(月) 17:53:42 ] >>286 そりゃあデータ構造を考えれば普通に不可能だろう。 289 名前：デフォルトの名無しさん [2005/08/16(火) 20:39:16 ] みんなデバッグ環境はナニを使ってる? 290 名前：デフォルトの名無しさん mailto:sage [2005/08/16(火) 21:56:50 ] jsファイル ダブルクリックして テキストファイル出力で変数の値みる 291 名前：デフォルトの名無しさん [2005/08/21(日) 01:11:37 ] var WShell = new ActiveXObject("WScript.Shell"); WShell.Run("c:\\******\\hoge.exe"); のように実行ファイルを動かし、hoge.exeからJScriptの変数に何らかの値を代入することは可能でしょうか？ 292 名前：デフォルトの名無しさん mailto:sage [2005/08/22(月) 13:25:15 ] >>291 こんな感じでしょうか。 この例ではHello, world!の後の改行までsに代入されてしまってますが。 ---------- D:\>type hello.js print("Hello, world!"); D:\>type hello2.js var WshShell = new ActiveXObject("WScript.Shell"); var oExec = WshShell.Exec("d:\\hello.exe"); var s = oExec.StdOut.ReadAll(); WScript.StdOut.Write("[" + s + "]"); D:\>jsc /nologo hello.js D:\>hello.exe Hello, world! D:\>cscript //nologo hello2.js [Hello, world! ] D:\> ---------- 293 名前：デフォルトの名無しさん mailto:sage [2005/08/22(月) 13:49:53 ] >>289 //X オプション + VSでデバグ。 294 名前：291 mailto:sage [2005/08/24(水) 16:04:26 ] >>292 ありがとうございます。 解決しました。 295 名前：286 mailto:sage [2005/08/30(火) 16:39:36 ] >>287-288 レスありがとう。 やりたいことは Java のStringWriterクラスでしたが、 writeメソッドで受け取った文字列を溜め込んで、 toStringメソッドで結合して返すってことをやりたかったのです。 それで実際に Scripting.Dictionary で、試してみたら Joinしたときに順番がバラバラになるかと思ったんですが、 追加した順番に文字列が結合されたので大丈夫でした。 なんかラッキーでした。ありがとう。 296 名前：デフォルトの名無しさん mailto:sage [2005/09/05(月) 12:59:10 ] vbsやりはじめて３日目です Subプロシージャに引数としてオブジェクトを渡したいのですが 渡されたオブジェクトのプロパティをSubプロシージャ内で参照しようとすると オブジェクトがありませんと言われます ぐぐってもVBの事例はいくつか出てきたのですがVBSの事例は見つけられませんでした どのようにしたらいいんでしょう 297 名前：デフォルトの名無しさん mailto:sage [2005/09/05(月) 19:38:27 ] >>296 書け 298 名前：名無しさん＠そうだ選挙に行こう mailto:sage [2005/09/11(日) 00:41:35 ] >>11 >>12 >>16 おそらく、↓のスレのことだと思われ。 // Windows Script Host を使い尽くす // pc3.2ch.net/tech/kako/1010/10104/1010400289.html 299 名前：デフォルトの名無しさん mailto:sage [2005/09/12(月) 20:52:33 ] win板のwsh スレはどこ？ 300 名前：デフォルトの名無しさん mailto:sage [2005/09/12(月) 22:31:35 ] 落ちたみたいね 301 名前：デフォルトの名無しさん mailto:sage [2005/09/13(火) 00:27:09 ] おいっす。了解っす。 302 名前：1/2 [2005/09/15(木) 23:43:08 ] どなたかお知恵をお貸しください。 あるテーブルの抽出結果を、ADODB.Recordset.GetStringで文字列にする関数 strResults を、 VBSから呼び出してテキストファイルに保存しようとしました。 Dim sFS, strParam, oTS, strResultText, intResultLetters, i strParam = WScript.Arguments(0) strResultFName = WScript.Arguments(1) Set appAc = CreateObject("Access.Application") appAc.OpenCurrentDatabase "V:\・・・\GrepRecordsets.mdb" strResultText = appAc.Run("strResults", strParam) Set appAc = Nothing Set sFS = CreateObject("Scripting.FileSystemObject") Set oTS = sFS.CreateTextFile("V:\・・・\result.txt", True) oTS.WriteLine "MS Access ファイルからの検索結果" intResultLetters = Len(strResultText) For i=100 To intResultLetters Step 100　　　　　' デバッグのため分割して書き込む 　　　　MsgBox Left(strResultText,100)　 　 　 　 ' デバッグのための内容表示 　　　　oTS.Write Left(strResultText,100) 　　　　strResultText = Right(strResultText,intResultLetters - i) Next 303 名前：デフォルトの名無しさん mailto:sage [2005/09/15(木) 23:43:34 ] ここで、ある特定の文字が、MsgBoxでは表示されるものの、 書き込もうとした時点でコンソール上に以下のエラーが出てしまいます。 　　　　Microsoft VBScript 実行時エラー: プロシージャの呼び出し、または引数が不正です。 その文字とは、中華料理店の店名らしいのですが、 　　 　 　 　 火 　 　 日　　　 金 　　　　　　火火　　日日　　金金 テキストエディタ等で見ると ?晶? となりますが、MS Wordなどで見ると上記のような文字です。 このため、文字コード変換で改善するかと思い、nkfwin.exe なるツールではどうかとやってみたところ、 上記の文字を含むテキストファイルを nkfwin.exe の引数に指定したところ、 　　　　┌────────────────────────┐ 　　　　│16 ﾋﾞｯﾄ MS-DOS ｻﾌﾞｼｽﾃﾑ　　　　　　　　　　　　 　 　 　 ×│ 　　　　├────────────────────────┤ 　　　　│　 　 　 C:\WINNT\System32\cmd.exe - 　　　　│　 　 　 V:\・・・\nkfwin.exe 　　　　│　×　　-s -I TestKanji.txt 　　　　│　 　 　 NTVDM CPU は不正な命令を検出しました。 　　　　│　 　 　 CS:0000 IP:e2d7 OP:00 00 00 00 　　　　│　　　　 　　　　│　　　　　　　　[ 強制終了(T) ]　　　　[ 無視(I) ] 　　　　└────────────────────────┘ となってしまいました。 このような現象は、どう対処したらよいのでしょうか？ お教えいただけますと大変助かります。 OS : Windows NT 4.0　　　　Access 2000, ADO 2.6, WSH 5.6 304 名前：デフォルトの名無しさん mailto:sage [2005/09/16(金) 05:08:50 ] >Set oTS = sFS.CreateTextFile("V:\・・・\result.txt", True) ここを Set oTS = sFS.CreateTextFile("V:\・・・\result.txt", True, True) にしたんじゃダメか？ 出力内容がUNICODEになっちまうけど。 (SJISには無い文字コードみたいだからそうするしかないんだけどね。) 305 名前：デフォルトの名無しさん mailto:sage [2005/09/16(金) 09:06:23 ] >>304 ありがとうございます！ あっさり出力できました！ 大変助かりました。m(_　_)m 306 名前：デフォルトの名無しさん mailto:sage [2005/09/16(金) 20:27:56 ] ユニコードの28977 焱 、 ユニコードの37995 鑫 と判明しました。 これらの文字を取り除いてメールで送れるテキストにする方法を探し中です。 307 名前：デフォルトの名無しさん mailto:sage [2005/09/16(金) 23:13:23 ] 報告です。 まず unicodeテキストとして保存し、 その後 フリーソフトの cherset converter で →　ISO-2022-JP　→ Shift_JIS で出来ました。 ２段階でやったところ、通常 ? で置き換わるところ _ で置き換わっていました。 ありがとうございました。。 308 名前：デフォルトの名無しさん mailto:sage [2005/09/28(水) 18:18:34 ] ここで聞くのが正しいのかも少々不安ですが 質問させてください。 前提： プログラミングは大昔に20年ほど前にFORTRANいじったことがありますが 中途半端だった上にその後すっかりで、基本的に知識ゼロです。 要望： ・下記の事がWSHで実行可能か知りたい ・可能な場合は参考になるスレはどこにあるのか知りたい ・ヒントになるようなスクリプトがあれば手に入れたい やりたいこと： (WindowsXP上で動いているアプリケーションに対してです) 起動 1.任意の座標(固定)のcolorをチェックする 2.任意のcolorではない(または任意のcolorである)場合に 3.任意の座標をマウス(右)クリック(相当の信号?コマンド?送出) 終了までループ 座標系はやったことがないのでまるでわかりません。 ヒントを頂いて勉強もしたいのですがちょっと差し迫った事情が あって時間もないので、どなたかお教えいただければ幸いです。 そんなのプログラム組めば簡単簡単・・・などとできもしないのに 大見得切るんじゃなかった。。。^^; よろしくお願いします。 309 名前：デフォルトの名無しさん mailto:sage [2005/09/28(水) 18:48:01 ] 無理…だと思う。 310 名前：デフォルトの名無しさん mailto:sage [2005/09/28(水) 21:37:52 ] >>308 俺もWSHじゃ無理だと思う。 Win32系のスレでAPIの使い方を訊きながら、C言語でコンソールアプリとして作ればそんなには難しくないと思うよ。 C言語のコンパイラは Borland C++ Compiler とか Microsoft Visual C++ toolkit 2003 とか無料のがあるからそれを使いね。 ( Microsoft Visual C++ toolkit 2003 は別途PlatformSDKも入手しなきゃならんから Borland のほうが手軽かな？ ) 311 名前：デフォルトの名無しさん mailto:sage [2005/09/28(水) 21:42:27 ] 宿題スレでやってもらうのがいいかも。 312 名前：デフォルトの名無しさん mailto:sage [2005/09/29(木) 10:15:43 ] >>309 >>310 >>310 ありがとうございます。 そもそもWSHでは無理がありそうなのですね。 宿題スレも見てみます。 313 名前：デフォルトの名無しさん mailto:sage [2005/09/30(金) 10:41:25 ] UWSCならデフォで出来るし UWSC内でVBSとか使えるけどね 314 名前：デフォルトの名無しさん [2005/10/04(火) 11:14:28 ] ネットワーク上にある約200台の端末の指定ファイルの最終更新日を一気に取得したいんですが、 電源が入っていない端末にアクセスすると処理が遅くなってしまいます。 315 名前：デフォルトの名無しさん mailto:sage [2005/10/04(火) 11:38:29 ] そうですか 316 名前：デフォルトの名無しさん [2005/10/04(火) 12:25:53 ] そうなんです 317 名前：デフォルトの名無しさん mailto:sage [2005/10/04(火) 12:41:18 ] じゃあ電源が入ってるかどうか管理しておけばいいじゃない 318 名前：デフォルトの名無しさん mailto:sage [2005/10/04(火) 14:16:06 ] そうですか? 319 名前：デフォルトの名無しさん [2005/10/04(火) 21:22:51 ] このスクリプト簡単でおもしろいね。 知らない人に時間が来たらメモ帳開いて１秒間隔くらいで 「お・ま・え・は・明・日・死・ぬ」とか書いちゃったりして おもしろーいｗ きゃははｗ 320 名前：デフォルトの名無しさん mailto:sage [2005/10/04(火) 23:12:28 ] そうですか 321 名前：デフォルトの名無しさん [2005/10/04(火) 23:32:54 ] >>320 そんな素っ気ないレスじゃなくて、友人がいないに違いない >>319 に仲良くしてやれよ。 俺はくっだらなくも陰湿な >>319 なんか、まっぴらごめんだけどなｗ 322 名前：デフォルトの名無しさん mailto:sage [2005/10/05(水) 00:34:44 ] そうだな

---

---

[ 続きを読む ] / [ 携帯版 ]

read.cgi ver5.27 [feat.BBS2 +1.6] / e.0.2 (02/09/03) / eucaly.net products.
担当:undef