私、マッ黒い人なの?
UWSC掲示板にコードを書き込んだら、セキュリティ上の脅威となるコードだったみたい。http://d.hatena.ne.jp/junjun777/20141219/powershell_script_run#seemore私、「マッ黒い人」じゃないんです。悪いことはしていません。信じてください…。黒いついでに、掲示板に書いたコードの完全版を載せておこうっと。///////////////////////////////////////////////////外部PS1スクリプトを実行//ps1ファイルが存在すればそれをスクリプトとして実行。なければps1をスクリプトソースとして実行する。//msgbox( ExecPs1( pssrc ) )//////textblock pssrc//"\ab\c\"+"def"+"\"+"ghi\"//"\ab\c\"+"def"+"\\"+"ghi\"//"\ab\c\"+"def"+"\\\"+"ghi\"//endtextblockfunction ExecPs1( ps1 ) if fopen( ps1, f_exists ) result =powershell( replace( _src_exec_ps1, "##PS1##", ""+ps1+"" ) ) else dim fso =CreateOleObj( "Scripting.FileSystemObject" ) dim tmp,dir repeat tmp =fso.GetTempName() dir =fso.GetSpecialFolder( 2 ) tmp =fso.BuildPath( dir, tmp ) until !fso.FolderExists( tmp ) and !fso.FileExists( tmp ) dim fd =fopen( tmp, f_write16 ) fput( fd, ps1, f_alltext ) fclose( fd ) result =ExecPs1( tmp ) deletefile( tmp ) endiftextblock _src_exec_ps1$encoded= [Convert]::ToBase64String([System.Text.Encoding]::Unicode.GetBytes((gc ##PS1## ) -join "`r`n"))powershell -EncodedCommand $encodedendtextblockfend