$dev = Win32::OLE->new("ISWiAutomation.ISWiProject") || die "Failed to instantiate : Win32::OLE::LastError()";