{
	文字列:"",
	Write:function(path, str){
		var AXO=function(n){return new ActiveXObject(n)}, fs=AXO('Scripting.FileSystemObject'), pathTMP=fs.GetSpecialFolder(2)+''
		pathTMP = pathTMP.replace(/[\\\/]$/,'') + '/' + (new Date()).getTime()
		fs.CreateFolder(pathTMP)
		var W=function(p,s){with(fs.CreateTextFile(p)){Write(s);Close()}}
		W(pathTMP+'/0.js','a='+function(){
			fs = new ActiveXObject('Scripting.FileSystemObject')
			R = function(p){with(fs.OpenTextFile(p)){var s=AtEndOfStream ? '' : ReadAll();Close()}; return s}
			W = function(p,s){with(fs.CreateTextFile(p)){Write(s);Close()}}
			P = fs.GetParentFolderName(WScript.ScriptFullName)
			path = R(P+'/path')
			str  = R(P+'/str')
			fs.DeleteFolder(P)
			pathLock = path+'.lock'
			flag = 0
			while(!flag){
				// 成功するとflagにlockフォルダのpathが入る
				try{ flag = fs.CreateFolder(pathLock) }catch(e){
					// lockフォルダが無いにも関わらず作成できないという場合は書き込み権限がないかPathが不正
					if(!fs.FolderExists(pathLock)){return}
				}
				WScript.Sleep(Math.random() * 5000)
			}
			W(path,str)
			fs.DeleteFolder(pathLock)
		}+'()')
		W(pathTMP+'/path',path)
		W(pathTMP+'/str' ,'{\r\n\t文字列:"'+str.replace(/\\/g,'\\\\').replace(/\r/g,'\\r').replace(/\n/g,'\\n').replace(/\"/g,'\\"')+'",\r\n\tWrite:'+this.Write+'\r\n}\r\n')
		AXO('WScript.Shell').Run(pathTMP+'/0.js', 0)
	}
}