2ちゃんねる ★スマホ版★ ■掲示板に戻る■ 全部 1- 最新50  

■ このスレッドは過去ログ倉庫に格納されています

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

1 :名無し~3.EXE:01/12/24 15:33
使いこなせばかなり便利だと思われる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/

488 :11:02/02/18 03:33
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>

489 :11:02/02/18 03:33
<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>


490 :11:02/02/18 03:33
<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>


397 KB
★スマホ版★ 掲示板に戻る 全部 前100 次100 最新50

read.cgi ver 05.02.02 2014/06/23 Mango Mangüé ★
FOX ★ DSO(Dynamic Shared Object)