let perl do that for you:

if ( Win32::OLE->LastError() ) {
    print Win32::OLE->LastError(), "\n";
}
else {
    print "Virtual Directory Create successfully with out Errors!\n";
}
[download]